OpenOffice.info

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

Moin,
hier ein Beispiel:
[code]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[/code] und die Datei dazu.
Viel Erfolg
Gruß R

Hallo dkepay,

schau doch mal bitte schön bei [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmanZeilenoderSpaltenausblenden.html#Zweig219]Dannenhöfer[/url] vorbei. Sollte das nicht reichen, dann durchsuch doch mal bitte schön das Forum nach [url=https://www.google.de/search?sclient=psy&hl=de&source=hp&q=basic+makro++site%3Ade.openoffice.info&btnG=Suche&gws_rd=ssl#hl=de&q=basic+makro+zeilen+ausblenden+site:de.openoffice.info&spell=1]zeilen ausblenden[/url].



Gruß
balu