Seite 1 von 1

Makros Funktion

Verfasst: Fr 10. Jan 2020, 12:07
von MerlinsMini
Hallo,

bin die ganze Zeit schon am herum experimentieren und brings einfach nicht zusammen..
Wollte vom Excel ein Dokument mit Libreoffice öffnen, jedoch unterstützt es nicht mein im Office geschriebenes Makros.
Hab folgendes Makros is Excel drinnen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B4:B250")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1) = Format(Now, "dd.mm.yyyy\ hh:mm")
End If
End Sub


Also die Funktion sollte folgende sein:

Ich füge in die Spalte B2 bis B250 irgend was (in meinem Fall Namen) ein und in der Zeile daneben (C2 bis C250)
sollte dann das Datum und die Urzeit erscheinen.

Sollte so eine art Zeiterfassung werden..


Vielleich kann mir ja jemand das Makros schreiben ?! Dürfte wsh für jemanden der sich auskennt kein Problem sein.


Danke und LG

Re: Makros Funktion

Verfasst: Fr 10. Jan 2020, 12:47
von Mondblatt24
Hallo,
vielleicht bist Du im Bereich LibreOffice Programmierung
besser aufgehoben mit Deiner Frage.

Gruß Peter

Re: Makros Funktion

Verfasst: Fr 10. Jan 2020, 12:49
von MerlinsMini
Hab's jetzt auch mal im Bereich Programmierung gepostet!
Danke für den Tipp.

LG