nochmal formatierung mit macro
Verfasst: Di, 05.02.2008 16:23
da mir in meinem thread viewtopic.php?f=18&t=15855&p=66131#p66131 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
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
also die lösung zu dem prob funzt wunderbar, NUR
Code: Alles auswählen
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 Subdieses 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