Datum bei Änderung

Bild

Betrifft: Datum bei Änderung
von: Jürgen
Geschrieben am: 28.02.2005 08:46:47
Guten Morgen zusammen!
Ich habe folgendes Problem:
Wenn im Bereich B2 bis H80 eine Änderung eingetragen wird, soll sich in Zelle C2
automatisch das Datum schreiben.
Danke für eure Hilfe!
Gruß
Jürgen

Bild

Betrifft: AW: Datum bei Änderung
von: UweD
Geschrieben am: 28.02.2005 08:58:10
Hallo
- Rechtsclick auf Tabellenblattreiter, Code anzeigen
- diesen Code einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:H80")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Range("C2").Value = Format(Date, "DD.MM.YYYY")
        Application.EnableEvents = True
    End If
End Sub

Gruß UweD

P.S. wird in C2 was eingegeben, wird das ebenfalls durch Datum überschrieben.
Bild

Betrifft: AW: Datum bei Änderung
von: Jürgen
Geschrieben am: 28.02.2005 09:10:25
Hallo Uwe,
vielen Dank klappt soweit.
Nue wenn ich das Tabellenblatt kopiere und in der gleichen Mappe umbenenne kommt eine Fehlermeldung:
Fehler beim Kompilieren Date nicht gefunden.
Kann man diese Fehlermeldung abfangen?
Danke Jürgen
Bild

Betrifft: AW: Datum bei Änderung
von: UweD
Geschrieben am: 28.02.2005 09:15:58
Hallo nochmal
kann den Fehler bei mir nicht nachvollziehen.
aber Fehlermeldung kann evtl. so abgefangen werden.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("B2:H80")) Is Nothing Then
        Application.EnableEvents = False
        ActiveSheet.Range("C2").Value = Format(Date, "DD.MM.YYYY")
        Application.EnableEvents = True
    End If
End Sub


Gruß Uwe
Bild

Betrifft: AW: Datum bei Änderung
von: Jürgen
Geschrieben am: 28.02.2005 09:31:16
Hallo Uwe,
vielen Dank.. es klappt jetzt prima.
Viele Grüße
Jürgen
 Bild

Beiträge aus den Excel-Beispielen zum Thema "2 Tabellen zusammenführen"