LibreOffice-Forum

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

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

LibreOffice-Forum

Makros von MS Excel importieren

Makros von MS Excel importieren

Re: Makros von MS Excel importieren