von zero82 » So, 23.12.2012 19:56
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
- Dateianhänge
-
- beispiel1.ods
- (11.2 KiB) 70-mal heruntergeladen
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]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[/code]
Im Anhang die Beispieldatdei. Kennt einer den Fehler :?
Vielen Dank schonmal...
zero