Makro Frage

[thyl]

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!

[karolus]

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

[thyl]

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