Microsoft Excel

Herbers Excel/VBA-Archiv

automatisches Datum einfügen

    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
    

      


    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


      


    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


     

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