Aktuelles Datum in Excel bei Zeilenänderung

Dieses Thema Aktuelles Datum in Excel bei Zeilenänderung im Forum "Microsoft Office Suite" wurde erstellt von Arne2007, 22. Juni 2007.

Thema: Aktuelles Datum in Excel bei Zeilenänderung Hallo zusammen, ich möchte das das aktuelle Datum in Zelle A5 angezeigt wird, wenn sich in der Zeile (A5-D5 und...

  1. Hallo zusammen,

    ich möchte das das aktuelle Datum in Zelle A5 angezeigt wird, wenn sich in der Zeile (A5-D5 und F5-AD5) etwas geändert hat.
    Dieses Problem habe ich über

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range
    Set isect = Application.Intersect(Target, Range(A5:D5))
    If Not isect Is Nothing Then
    Range(E5).Value = Date
    End If
    End Sub

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range
    Set isect = Application.Intersect(Target, Range(F5:AD5))
    If Not isect Is Nothing Then
    Range(E5).Value = Date
    End If
    End Sub

    gelöst.
    Ich weiß nun nicht, wie ich das für alle weiteren Zeilen unterhalb von der Zeile 5 realisieren könnte.
    Vielen Dank im voraus für euere Unterstützung :),

    Arne
     
  2. Hallo Arne,

    dir kann geholfen werden ;)

    Die folgende Funktion in der Codeseite deines Tabellenblattes sollte das gewünschte realisieren.
    (Die alten Funktionen müssen gelöscht werden.)

    Gruß Matjes :)
    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    
     Const cERSTE_ZEILE = 5
     Const cSPs1 = A:D
     Const cSPs2 = F:AD
     Const cSP_DATUM = E
     
     Dim r As Range
     Dim x As Long
      
     Set r = Application.Intersect(Target, Range(cSPs1))
     If r Is Nothing Then Set r = Application.Intersect(Target, Range(cSPs2))
     If r Is Nothing Then Exit Sub
     If r.Row < cERSTE_ZEILE Then Exit Sub
     
     For x = r.Row To r.Row + r.Rows.Count - 1
      Range(cSP_DATUM & x).Value = Date
     Next
     
    AUFRAEUMEN:
     Set r = Nothing
    End Sub
     
  3. Hallo Matjes,

    erstmal vielen Dank für die Antwort.
    Ich habe deinen Code in das Tabellenblatt eingefügt und oben das Worksheet durch den Namen des Tabellenblattes ersetzt.
    Bei Änderungen passiert leider nichts :(.
    Hast Du eine Idee was ich falsch mache?

    Gruß,

    Arne
     
  4. Hallo Arne,

    also:

    gehe auf das Blatt, welches überwacht werden soll. Dann markiere die Blattlasche mit der rechten Maustaste und wähle->Code anzeigen'. In dem Fenster, das sich öffnet, löscht du allen Code - blitzblank. Dann fügst du den Code aus dem grauen Fenster komplett in dieses geputzte Fenster per Copy und Paste ein - nix ändern !

    Dann ausprobieren ...

    Gruß Matjes :)
     
  5. FUNKTIONIERT!

    Vielen DANK :D
     
Die Seite wird geladen...

Aktuelles Datum in Excel bei Zeilenänderung - Ähnliche Themen

Forum Datum
In pull down Menü aktuelles Datum anzeigen Webentwicklung, Hosting & Programmierung 1. Juli 2005
Aktuelles Update für .NET-Framework wird nicht installiert Windows-Updates 19. Apr. 2011
Acronis 11 - auf aktuelles Build 8105 updaten Datenwiederherstellung 22. Aug. 2008
Aktuelles Virenprogramm für WINME Windows XP Forum 3. Apr. 2008
Aktuelles Nero 7.5.1.1 immer noch Audio-Probleme? Windows XP Forum 4. Okt. 2006