Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellbereich geändert dann Datum
#1
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
Antwortento top
#2
Moin,

gib mal im Suchfeld das Stichwort Zeitstempel ein. Das Thema wurde hier schon behandelt.
Gruß Günter
Misserfolg ist eine Chance, es beim nächsten Mal besser zu machen.
(Henry Ford) www.sprueche-zum-nachdenken.eu
Antwortento top
#3
Dankeschön ...

werd' mal suchen
Antwortento top
#4
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
Antwortento top
#5
Auch diese Thread wird bald ein 'altes' Thema. 16
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste