Makro z ausblenden v Zellen funktioniert nicht richtig! HELP

[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

[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