automatisches Datum einfügen

Bild

Betrifft: automatisches Datum einfügen
von: Marc Voelker
Geschrieben am: 06.10.2003 11:00:41

Hi

ich hab da nochma ne Frage zum Thema: automatisches Datum einfügen.

Topicnummer: 316965

Wenn ich die Datei neu aufrufe, dann funktioniert der Code nicht mehr.
Was muss geändert werden, damit der Code wieder funktioniert, nachdem ich die Datei geschlossen und wieder neu geöffnet habe?

Hier nochma der Code:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then
Else
Target.Offset(0, 1).Value = Now
End If
End Sub

Bild


Betrifft: AW: automatisches Datum einfügen
von: PeterW
Geschrieben am: 06.10.2003 11:26:35

Hallo Marc,

ich sehe nicht, was an dem Code nicht funktionieren sollte. Mal abgesehen davon, dass mal sich das Else sparen kann:


Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Value = Now
  End If
End Sub


Hast du beim Öffnen der Datei die Makros aktiviert?

Gruß
Peter


Bild


Betrifft: AW: automatisches Datum einfügen
von: Marc Voelker
Geschrieben am: 06.10.2003 11:53:17

Thx
Peter

normalerweise ist das bei mir eingeschaltet.
hat sich warscheins durch mein office-update umgesetzt.

gruß
marc


 Bild

Beiträge aus den Excel-Beispielen zum Thema " automatisches Datum einfügen"