Makros Funktion
Verfasst: Fr 10. Jan 2020, 12:07
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
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