Makros Funktion Calc

[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

[craig]

Hallo,

der Ursprungscode stammt aus dieser Quelle.
http://de.openoffice.info/viewtopic.php?f=18&t=45026#p164051
Daraus habe ich eine Beispieldatei gebastelt und den Code angepasst:

Die Voraussetzungen, damit der Code funktioniert, sind im Dokument beschrieben.
Wenn im Zellbereich B4:B250 eine Änderung erfolgt, dann wird der
Datums-/Zeitstempel in die aktuelle Zeile der Spalte C eingetragen.

Wenn Änderungen am Codevorgenommen werden, dann
muss LibreOffice u.U. erst komplett geschlossen werden.
Der Grund hierfür ist ein vom Code geladener "Listener",
welcher speicherresistent, immer im HIntergrund auf eine
Benutzeraktion in Spalte B lauert.
Durch schließn des Programms wird der Listener entladen, und
kann beim nächsten Dokumentstart wieder geladen werden.

Datumstempel.ods

(323.39 KiB) 243-mal heruntergeladen

[MerlinsMini]

Perfekt hat funktioniert!

Danke und LG

[F3K Total]

Hallo zusammen,
hier:
https://de.openoffice.info/viewtopic.php?f=25&t=56497
gibt es noch eine Lösung OHNE Makro, Beispiel anbei.
Gruß R

[craig]

Hallo R,
Was es nicht alles gibt

Vielen Dank!