Hallo,
ich möchte das aktuelle Datum in eine Zelle (z.B. B2) einfügen wenn in einem Zellbereich (z.B. B6:E110) der Inhalt einer oder mehrerer Zellen geändert wird.
Gleichzeitig soll die Zelle B2 gesperrt sein um Eingaben von Hand zu verhindern.
Gruß Mugel
Moin,
gib mal im Suchfeld das Stichwort Zeitstempel ein. Das Thema wurde hier schon behandelt.
Dankeschön ...
werd' mal suchen
Für alle die sich mit dem gleichen Problem herumplagen ...
Unter dem Suchbegriff "Zeitstempel" habe ich nichts gefunden was auch nur ansatzweise meinem Problem entspricht,
dafür habe ich bei "Excel-Inside.de" u.a. Prozedur gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
MsgBox "Im Bereich A1:A3 wurde eine Zelle geändert!"
End If
End Sub
Ich habe sie wie folgt geändert:
- Zeile Tabelle1.Range("F1").Value = Date zusätzlich eingefügt
- Text in MsgBox geändert
- Die grünen Zellbereiche kann man ja nach eigenen Wünschen anpassen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
MsgBox "Das Datum wurde aktualisiert"
Tabelle1.Range("F1").Value = Date
End If
End Sub
Vielleicht konnte ich so jemandem helfen ohne das er stundenlang in alten Themen suchen muss.
Viele Grüße
MUGEL
Auch diese Thread wird bald ein 'altes' Thema. :16: