Bearbeitungsstand
02.04.2008 12:36:00
J.
habe folgenden Code in meine Arbeitsmappe eingegeben.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errh
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("E4")) Is Nothing Then
Range("J4").Value = "Letzter Eintrag am " & Date _
& " von " & Application.UserName
End If
Errh:
Application.EnableEvents = True
End Sub
Nun mein Problem:
Die Aktualisierung in Zelle "E4" wird automatisch aus enem anderen Tabellenblatt ein gepflegt.
Da dies aber nicht direkt eingeben wird sondern mit einer Formel wird mir der Text nicht angezeigt.
Eine direkte Eingabe in Zelle "E4" funktioniert.
Wer kann mir helfen? ;-)
Gruß Jochen