Supportnet / Forum / Tabellenkalkulation
Makro (nochmals:-)
Frage
hallo zusammen
nochmals benötige ich ein Makro:
Wenn der Zelleninhalt in B1 sich ändert, soll A1 das datum und die zeit angeben.
besten dank für eure mühe!
Antwort 1 von Beverly
Hi,
Bis später,
Karin
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
Antwort 2 von needyourhelp2007
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
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
Antwort 3 von Beverly
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
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
Antwort 4 von needyourhelp2007
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!! =)
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!! =)