Langsame Tabelle
09.08.2005 07:25:51
J.
habe diesen Code,
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:E")) Is Nothing Then
Range("B1").Value = "Geändert von " & Application.UserName _
& " am " & Format(Date, "dd.mm.yy ") & Format(Time, " hh:mm")
End If
End Sub
in eine Tabelle eingearbeitet um zu wissen wer wann diese geändert hat.
Wenn die Tabelle nun bearbeitet wird, dauert es sehr lange bis diese Eingabe ( Zeit zwischen Eingabe, Entertaste drücken und nächste Eingabe )verarbeitet ist.
Ist etwa die Formel falsch?
Ich hoffe das ich mein Problem einigermaßen verständlich beschrieben habe.
Schon jetzt einmal Danke.
J. B.