wahrscheinlich wurde die frage hier schon 1 million mal beantwortet.
konnte sie aber leider nicht finden.
ich möchte das wenn ich in b1 etwas eintrage in a1 automatisch das datum erscheint.
kann mir jemand helfen?
gruß
kalle
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'* H. Ziplies *
'* 09.08.07 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://Hajo-Excel.de/
' wird im definierten Bereich ein Wert geändert, wird in der nächsten Spalte das Datum _
eingetragen
' ist schjon was eingetragen, erfolgt kine Eintragung
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B3:B20, D1:D7")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Offset(0, 1) = "" Then RaZelle.Offset(0, 1) = Date
End If
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub