Zeile ausblenden

[zero82]

Hallo,

ich bin gerade dabei ein Makro aufzusetzen. In einer Spalte befinden sich Monate von 01.09 - 12.12. In der Spalten daneben befinden sich Zahlen von 0 und 1. Ich habe versucht ein Makro zu schreiben, dass mir alle Zeilen wo eine 1 steht sichtbar lässt und alle Zeilen wo eine 0 steht ausblendet. Hier der Code:

Code: Alles auswählen

Sub Zeilen_ausblenden_bei '0

Dim myDoc As Object
Dim mySheet As Object

myDoc = ThisComponent
mySheet = myDoc.Sheets.GetByIndex(0) ' Tabelle1

for zi = 0 to 50 'zeile 1 bis 200
if getcellbyposition(1,zi).string = 0 or getcellbyposition(0,zi).string = 1 then
 rows(zi).isvisible = false
else
 rows(zi).isvisible = true
end if

End sub

Im Anhang die Beispieldatdei. Kennt einer den Fehler

Vielen Dank schonmal...
zero

[F3K Total]

Jupp,
versuche es mal so:

Code: Alles auswählen

Sub Zeilen_ausblenden_bei '0

Dim myDoc As Object
Dim mySheet As Object

myDoc = ThisComponent
mySheet = myDoc.Sheets.GetByIndex(0) ' Tabelle1

for zi = 0 to 50 'zeile 1 bis 200
if mySheet.getcellbyposition(1,zi).string = 0 then
 mySheet.rows(zi).isvisible = false
else
 mySheet.rows(zi).isvisible = true
end if
next zi

End sub

Gruß R