Datum automatisch bei Hineinkopieren
29.07.2007 19:25:00
chris58
Ich will euch fragen, ob mir wer sagen kann, was ich ändern muß, das, wenn ich in eine Tabelle etwas hineinkopiere, das Datum automatisch erscheint und nicht mehr geändert werden kann. Ich habe hier diesen Code gefunden, doch der geht nur, wenn man was ändert und nicht wenn man was in die Tabelle hineinkopiert. Kann mir bitte wer helfen.
Danke uim voraus
chris
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A3:G4000"), Target) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value "" Then
Cells(Target.Row, 8).Value = Date
End If
End Sub
Anzeige