OpenOffice.info

danke karo :) funktioniert

nur was zum henker bedeutet "mysheet" ?? sowas wie aktuelle auswahl ? ach, soviele anfaengerfragen

Hallo
Ändere:
myCell.Cellbackcolor = RGB (57, 128, 244)
zu:
mysheet.getcellbyposition(2,i).Cellbackcolor = RGB (57, 128, 244)

Gruß Karo

Sub TeilstringSuchen
   myDoc = thisComponent
   Tabellenname=mydoc.currentcontroller.activesheet.name
   mySheet = myDoc.Sheets().getByName(Tabellenname) 'aktives Tabellenblatt
     for x = 0 to 999
   ZahlInput = inputbox ("Bitte Zahl eingeben / Ende mit 999")
   if ZahlInput = "999" then
   x = "999"
   end if

   for i = 0 to 999 
   myCell = mySheet.getcellbyposition(0,i) 'Zeile A1 bis A999 // 0=A, 1=B
   ZahlSheet = split(myCell.value,",")
   Zahl =  ZahlSheet(0)
   if ZahlInput = Zahl then 
   myCell.Cellbackcolor = RGB (57, 128, 244)
   end if
   Next i

  Next x
End Sub

da mir in meinem thread [url]http://de.openoffice.info/viewtopic.php?f=18&t=15855&p=66131#p66131[/url] mitgeteilt wurde, für ein neues problem einen neuen thread zu öffnen, tu ich das hiermit :)

also die lösung zu dem prob funzt wunderbar, NUR

[code]Sub TeilstringSuchen
myDoc = thisComponent
Tabellenname=mydoc.currentcontroller.activesheet.name
mySheet = myDoc.Sheets().getByName(Tabellenname) 'aktives Tabellenblatt
for x = 0 to 999
ZahlInput = inputbox ("Bitte Zahl eingeben / Ende mit 999")
if ZahlInput = "999" then
x = "999"
end if

for i = 0 to 999
myCell = mySheet.getcellbyposition(0,i) 'Zeile A1 bis A999 // 0=A, 1=B
ZahlSheet = split(myCell.value,",")
Zahl = ZahlSheet(0)
if ZahlInput = Zahl then
myCell.Cellbackcolor = RGB (57, 128, 244)
end if
Next i

Next x
End Sub[/code]

das makro markiert zellen einer bestimmten spalte, die zahlen beinhalten, die ich in einem fensterchen eingebe
dieses makro möchte ich so ändern, dass es nicht die aktuelle zelle markiert, sondern die zelle 2 spalten weiter.

bsp : zelle a23 hat den erforderlichen wert, so soll zelle C23 blau markiert werden

kann mir wer helfen ?? *ganz lieb guckt