Hilfe bei Excel-Einsatztagebuch

[maddin11477]

Hi,
ich hab sowas auch mal vor längerer Zeit gemacht ich hänge dir mal die Exceltabelle mit an.
Der Code lautet:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum eingetragen
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B1000")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, -1) = Time
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Ich denke anpassen auf die Zellen sollte damit auch klappen oder?
Gruß
Martin

[Dschilly]

Hallo maddin11477!

Vielen Dank! Code funktioniert einwandfrei, nachdem er angepasst wurde!
damit ist mein Problem gelöst! Danke Leute!

Aber ich spiele noch ein bisschen mit der Tabelle rum, wenn sie Fertig ist, sag ich bescheid!

[Laurin88]

Oder einfach das dort in dem Downloadbereich stehende verwenden.
http://www.thw-gifhorn.de/downloads.php#einsatztagebuch

Es ist halbautomatisch, maskengesteuert und dokumentenecht. Einmal eingegebene Einträge können nachträglich nicht mehr geändert werden.
Änderungen können aber durch Zusatzeinträge entsprechend berichtigt werden, die sich dann automatisch nach dem zu berichtigenden Ersteintrag einordnen und auch als Zusatz gekennzeichnet werden.