🙏 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. 🤗

Makro Frage

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
thyl
Beiträge: 3
Registriert: So 28. Apr 2013, 14:37

Makro Frage

Beitrag von thyl » So 28. Apr 2013, 14:41

Hallo zusammen,

ich bin neu in Libre Office umgestiegen von MS Office.

Ich habe ein Dokument mit folgenden Makros:

Könnt ihr mir das auf LibreOffice portieren? Meine Makro Kenntnisse sind leider begrenzt.

Sub Ausblenden()
Dim Zelle As Range
For Each Zelle In Tabelle1.Range("E20:E40")
If Zelle.Value = 0 Then Zelle.EntireRow.Hidden = True
Next
End Sub

Sub Einblenden()
Range("20:40").EntireRow.Hidden = False
End Sub

Vielen Dank! :-)

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

Re: Makro Frage

Beitrag von karolus » So 28. Apr 2013, 16:31

Hallo

Wir freuen uns immer wieder wenn wir den Übersetzungaffen für VBA-!?&$§§ geben dürfen.

Code: Alles auswählen

Sub Ausblenden()
with ThisComponent.Sheets.getByName("Tabelle1")
for i = 19 to 39	
	.Rows(i).isVisible = not (.getCellByPosition(4, i).value = 0)	
Next
end with
End Sub

Sub Einblenden()
with thisComponent.Sheets.getByName("Tabelle1")
.GetCellRangebyPosition(0,19,0,39).Rows.isVisible = 1
end with
End Sub
LO7.4.7.5 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO24.8.0.3 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)

thyl
Beiträge: 3
Registriert: So 28. Apr 2013, 14:37

Re: Makro Frage

Beitrag von thyl » So 28. Apr 2013, 19:31

Danke!!

gibt es noch die Möglichkeit den Makros Shortcuts zuzuweisen? Also dass ich z.B. mit alt+a ein Makro ausführe?

EDIT: Hat sich erledigt, habs gefunden


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