Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    Range("A1") = Now
End Sub

Bis später,
Karin

Hallo Karin,

Erstmals Danke fürs die Hilfe!
habe es mit deiner Hilfe versucht, jedoch kommt folgende Fehlermeldung:

"Fehler beim Kompilieren: Mehrdeutiger Name: Worksheet_Change!"

Was soll ich nun tun?? =)

Besten Dank

Hi,

du hast nicht geschrieben, dass bereits ein Worksheet_Change Ereignis existiert. Dann musst du beide Codes zusammen fügen. Wie lautet denn dein anderer Code?

Bis später,
Karin

ach so... habe keine erfahrung mir makros, sorry =)

das ist der vorherige code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'**************************************************
'* H. Ziplies *
'* 13.06.03 *
'* 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
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("H5:H7")
' ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 1) = Date & " " & Time
Next RaZelle
' ActiveSheet.protect
Application.EnableEvents = True
Set RaBereich = Nothing

End Sub



besten Dank!! =)