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"