🙏 Helfen Sie jetzt mit, unser LibreOffice Forum zu erhalten! 🙏
Mit Ihrer Spende sichern Sie den Fortbestand, den Ausbau und die laufenden Kosten dieses Forums. 🌱

🍀 Jeder Beitrag zählt – vielen Dank für Ihre Unterstützung!🍀

❤️ DANKE >> << DANKE ❤️

>> Dank Ihrer Unterstützung -> Keine Werbung für alle registrierten LibreOffice-Forum User! <<
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Selber Befehl für eine Liste von Werten

Alles zur Programmierung im LibreOffice.
Antworten
whoever
Beiträge: 22
Registriert: Do 25. Apr 2013, 13:46

Selber Befehl für eine Liste von Werten

Beitrag von whoever » Do 25. Apr 2013, 13:53

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.

Benutzeravatar
karolus
* LO-Experte *
Beiträge: 2539
Registriert: Fr 10. Dez 2010, 10:01

Re: Selber Befehl für eine Liste von Werten

Beitrag von karolus » Do 25. Apr 2013, 19:16

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
LO7.4.7.5 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO24.8.0.3 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)

whoever
Beiträge: 22
Registriert: Do 25. Apr 2013, 13:46

Re: Selber Befehl für eine Liste von Werten

Beitrag von whoever » Mo 29. Apr 2013, 11:43

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


An alle, die das LibreOffice-Forum gern nutzen und unterstützen wollen:


Bitte helfen Sie uns mit 7 Euro pro Monat.
Durch Ihren Beitrag tragen Sie dazu bei, unsere laufenden Kosten für die kommenden Monate zu decken.
Unkompliziert per Kreditkarte oder PayPal.
Als ein kleines Dankeschön werden Sie im LO-Forum als SUPPORTER gekennzeichnet.



Antworten