LibreOffice-Forum

Hallo zusammen
Ich bin komplett neu in der Makroprogrammierung - und habe eine eigentlich ganz einfache Frage, kann diese aber nicht mit Hilfe verschiedener Suchmaschinen lösen. Und zwar möchte ich für eine Liste von Zahlen jeweils den selben Befehl ausführen. Ich habe bisher nur herausgefunden, wie ich für einen Bereich den Befehl ausführen kann. Konkret sieht dies so aus:

Code: Alles auswählen

Sub phase_1
Dim doc as object
Dim sheet as object
Dim row as object
Dim I as integer

doc = ThisComponent
sheet = Doc.Sheets(0)

For I = 1 To 21
	row = sheet.Rows(I)
	row.IsVisible = False
Next I

End Sub

Nun wird also Zeile 2 bis 22 ausgeblendet, wie befohlen. Ich möchte aber nun nicht 2 bis 22, sondern gerne die Zeilen 2, 3, 4, 5, 8, 11, 19 ausblenden (also 2-5, 8, 11, 19). Ich finde aber den Weg nicht, wie ich dies einfach machen kann. Kann mir hier jemand helfen? Ich wäre sehr froh, danke schön.

Hallo

Code: Alles auswählen

Sub Main
with ThisComponent.Sheets(0)

for each rowindex in array(1,2,3,4,7,10,18)
	.Rows( rowindex ).isVisible = false
next
end with
End Sub

und falls du Aus-/ und Einblenden willst:

Code: Alles auswählen

...
	.Rows( rowindex ).isVisible = not .Rows( rowindex ).isVisible
....

Karolus

Vielen Dank, ist genau das, was ich gesucht habe!
Super Hilfe!

LibreOffice-Forum

Selber Befehl für eine Liste von Werten

Selber Befehl für eine Liste von Werten

Re: Selber Befehl für eine Liste von Werten

Re: Selber Befehl für eine Liste von Werten