Zellbereich geändert dann Datum

[Mugel]

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

[WillWissen]

Moin,

gib mal im Suchfeld das Stichwort Zeitstempel ein. Das Thema wurde hier schon behandelt.

[Mugel]

Dankeschön ...

werd' mal suchen

[Mugel]

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

[snb]

Auch diese Thread wird bald ein 'altes' Thema. :16: