Seite 1 von 1
Re: Makro z ausblenden v Zellen funktioniert nicht richtig!
Verfasst: Di, 02.09.2014 21:17
von balu
Hallo dkepay,
schau doch mal bitte schön bei
Dannenhöfer vorbei. Sollte das nicht reichen, dann durchsuch doch mal bitte schön das Forum nach
zeilen ausblenden.
Gruß
balu
Re: Makro z ausblenden v Zellen funktioniert nicht richtig!
Verfasst: Mi, 03.09.2014 05:47
von F3K Total
Moin,
hier ein Beispiel:
Code: Alles auswählen
Sub S_show_hide(Event)
obutton = Event.source.model
if oButton.Label = "Einblenden" then bShow = true else bShow = false
osheet = thiscomponent.sheets.getbyname("Tabelle1")
ocursor = osheet.createCursor
ocursor.gotoendofusedarea(false)
nEndRow = ocursor.Rangeaddress.EndRow
oRange = osheet.getcellrangebyposition(0,1,0,nEndRow)
for i = 0 to oRange.rows.count - 1
ocell = oRange.getcellbyposition(0,i)
if ocell.string = "a" OR ocell.CellBackColor = RGB(102,102,255) then 'Zellhintergrund BLAU oder Zellinhalt = a
orow = oRange.rows(i)
orow.isvisible = bshow
endif
next i
End Sub
und die Datei dazu.
Viel Erfolg
Gruß R