Makros von MS Excel importieren

[zerfass]

Hallo, ich bin ganz neu bei LibreOffice. Ich habe ein paar Excel-Makros, die ich gerne importieren möchte.
Es sind:
- Sub Date_Time()
stellt den Wert von jetzt() in eine Zelle so,
dass der Wert nicht mehr updated wird.
- Sub Kopf_FußzeilenEinrichten()
schreibt den Dateipfad in die Fußzeile
und das Datum in die Kopfzeile des Blattes
- Sub Fedi()
öffne ein Formel-Editor Objekt

Die MS-Excel-Makros sehen so aus:
Sub Date_Time()
'
' Date_Time Makro
' Makro am 30.04.2009 von aufgezeichnet
'
' Tastenkombination: Strg+t
'
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub

Sub Kopf_FußzeilenEinrichten()

Pfad = ActiveWorkbook.Path

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&8&D"
.LeftFooter = "&8" & Pfad & "&8\&8&F - &8&A"
.CenterFooter = ""
' .RightFooter = "&8Seite &8&P &8von &8&N"
End With

End Sub

Sub Fedi()
' Tastenkombination Stg + f
ActiveSheet.OLEObjects.Add(ClassType:="Equation.3", Link:=False, DisplayAsIcon:=False).Activate
End Sub

Kann mir jemand einen Schubs geben und mir sagen, wie ich das machen kann?
In der Kurzanleitung Makroprogrammierung habe ich nichts Passendes gefunden.

Viele Grüße Andreas

[karolus]

Hallo

Den Zeitstempel kann man zB einfügen per

Code: Alles auswählen

Sub Datum_zeit
sel = thisComponent.currentSelection
sel.Formula = "=NOW()"
sel.FormulaLocal = sel.String
End Sub

Für das Öffnen des Formeleditors gibts einen Button direkt über Spalte B oder auch per Shortcut →strg+F2

Deine Kopf- und Fusszeileninhalte richtest du dir besser einmalig per Hand über →F11→Seitenvorlagen→→neu ein,
und weisst später die gewünschte Seitenvorlage zu.

Karolus