[de-users] Tastaturmakros

[Maas Torsten]

Hallo,

ich habe zwei Fragen zum Thema Tastaturmakros.

1. Ich habe ein Excel Dokument in dem zwei Tastaturmakros sind. Das
erste Makro wird mit Strg+D aktiviert und das zweite mit Strg+E. Wie
setzte ich dies in Open Office um?

Sub BesucheAusblenden()

    For Each zelle In [A5:A64000]
        If zelle Like "Messen*" Then
            bisZeile = zelle.Row - 2
            Exit For
        End If
    Next

    For zeile = 5 To bisZeile
        If Cells(zeile, 1) < Date And Cells(zeile, 2) < Date Then
            Range(Cells(zeile, 1), Cells(zeile, 1)).Select
            Selection.EntireRow.Hidden = True
        End If
    Next

End Sub
Sub BesucheEinblenden()

    For Each zelle In [A5:A64000]
        If zelle Like "Messen*" Then
            bisZeile = zelle.Row - 2
            Exit For
        End If
    Next

    Range(Cells(5, 1), Cells(bisZeile, 1)).Select
    Selection.EntireRow.Hidden = False
    Range("A5").Select
End Sub

2. Wie erstellt man ein Tastaturmakro das das aktuelle Datum in die
gerade aktuelle Zelle schreibt? Oder gibt es diese Funktion schon
irgendwo in Calc?

Gruss
Torsten