Änderungsdatum einer Zelle in Nachbarzelle speichern

Hallo Leute!
Ich kann mit 5% der Excelmöglichkeiten leidlich umgehen, VBA ist für mich ein völlig unbekanntes Terrain, lediglich ein Makro bekomme ich aufgezeichnet und manchmal klappt auch die Anwendung der Aufzeichnung :) Soweit vorweg zu meinem Wissensstand.
Nun bin ich mal wieder auf für mich unüberwindbare Hürden gestoßen, dei wohl mit meinem bescheidenen Formelwissen nicht lösbar sind. Die Recherche im Netz hat mich hierher verschlagen und zu dem Entschluss gebracht, mich erstmalig in einem derartigen Profi-Forum auch anzumelden.
Soweit der Vorspann :) Nun zu menem Problem, das hier schonmal 2017 beantwortet wurde.

Tom fragte am 05.09.2017 10:10:37, wie man u.a. ein Speicherdatum in einer neben dem eigenen (oder fremden) Eintrag liegende Zelle darstellen könnte, so dass es unveränderbar verbleibt.
Beispiel: in A1 (und danach in darunter liegenden Zellen A2 ff.) erfolgt ein Eintrag, in B1 wird automatisch das Datum (und ggf. die Uhzeit) des Eintrags gespeichert.

Antwort damals von Uwe D., es ginge nicht mit einer Formel, sondern nur mit dem folgenden VBA-Code:
-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z
On Error GoTo Fehler

If Not Intersect(Range("B:B"), Target) Is Nothing Then
If Target.Row = 1 Then Exit Sub
For Each z In Target
If z.Offset(0, -1) > "" Then

Application.EnableEvents = False

z.Offset(0, 1) = Format(Date, "DD.MM.YYYY")
z.Offset(0, 2) = Environ("Username")

End If
Next
End If

'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number > 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
----------------------

Ich habe ihn nach Anweisung hineinkopiert und es funktionierte einwandfrei. Datei als xlsm gespeichert, fertig, dachte ich. Super Lösung!

Heute, einen Tag später steht der code zwar im code-fenster drin, funktioniert aber nicht mehr. Datei ist als "...mit Makros" also .xlsm gespeichert.

Gibt es hier eine Lösung für VBA-Unkundige, die mir jemand "kurz" erklären könnte?

Für eine Antwort wäre ich echt dankbar. Die Lösung erspart mir bei der Daenerfassung das manuelle eingeben des Erfassungsdatums für einen Datensatz.

Viele weihnachtliche Grüße!

Christoph B.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christoph

Willkomenn im besten Forum der Welt! :-)

Dein gezeigter Code reagiert bei Änderung in Spalte B! Aber du willst doch, dass der Code reagieren soll, wenn du in Spalte A etwas änderst, oder?

Änder mal diese Codezeile...

If Not Intersect(Range("B:B"), Target) Is Nothing Then

...um in...

If Not Intersect(Range("A:A"), Target) Is Nothing Then

...jetzt sollte es so laufen, wie du erwartest.

Hilfts?

...kleiner Tipp...
Du musst nich so ne Romane schreiben...bis ich endlich das las, was mich interessierte, nämlich deine Frage, musste ich erst mal deine halbe Lebensgeschichte erfahren :-)
Du kannst natürlich weiter so machen, wie du es möchtest...von mir is es nur n Tipp ;-)

Ciao
Thorsten

Private Sub Worksheet_Change(ByVal Target As Range) Dim z On Error GoTo Fehler If Not Intersect(Range("H:H"), Target) Is Nothing Then If Target.Row = 1 Then Exit Sub For Each z In Target Application.EnableEvents = False z.Offset(0, 1) = Format(Date, "DD.MM.YYYY") Next End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True If Err.Number > 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear End Sub

Dim z On Error GoTo Fehler '-- bei Codefehler springe zu "Fehler:" If Not Intersect(Range("B:B"), Target) Is Nothing Then '--bei Aenderung in SpalteB If Target.Row = 1 Then Exit Sub '--wenn erste Zeile(B1) geaendert wird Code beendet For Each z In Target '-- Schleife ueber Zellen auch wenn Inhalte ueber kopieren eingefuegt werden If z.Offset(0, -1) > "" Then '-- Wird geprueft ob SpalteA nicht leer ist Application.EnableEvents = False '-- Event ausschalten da sonst bei Eintrag(auch vom Code) das Changeereigniss immer wieder ausgefuehrt wird(Endlosschleife) z.Offset(0, 1) = Format(Date, "DD.MM.YYYY") '--1. rechte Spalte(vom Target) Datum eintragen z.Offset(0, 2) = Environ("Username") '--2. rechte Spalte(vom Target) Benutzername eintragen End If Next End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True '--Event wieder einschalten(wichtig) If Err.Number > 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear

Dim z On Error GoTo Fehler If Not Intersect(Range("H:H"), Target) Is Nothing Then ActiveSheet.Unprotect '--Schutz aufheben If Target.Row = 1 Then Exit Sub For Each z In Target Application.EnableEvents = False z.Offset(0, 1) = Format(Date, "DD.MM.YYYY") Next End If '*** Fehlerbehandlung Err.Clear Fehler: Application.EnableEvents = True ActiveSheet.Protect'--Schutz setzen If Err.Number > 0 Then MsgBox "Fehler: " & _ Err.Number & vbLf & Err.Description: Err.Clear

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Fehler If InStr(Target.Address, ":") Then Exit Sub If Target.Row 10 Then Exit Sub If Not Intersect(Range("H:H"), Target) Is Nothing Then Application.EnableEvents = False If Not IsDate(Target) And Target.Value > "" Then MsgBox "ungültiges Datum!", vbInformation End If ActiveSheet.Unprotect '--Schutz aufheben Target.Offset(0, 1) = Format(Date, "DD.MM.YYYY") If Target.Value = "" Or Not IsDate(Target) Then Target.Offset(0, 1).Value = "" Target.Value = "": Target.Select End If Application.EnableEvents = True ActiveSheet.Protect '--Schutz setzen End If Exit Sub '*** Fehlerbehandlung Fehler: Application.EnableEvents = True MsgBox "Fehler: " & Err.Number & vbLf & Err.Description End Sub

Beliebteste Forumthreads (12 Monate)

	H	I
10	01.12.2023	'26.12.2023
11	20.12.2023	'26.12.2023

Änderungsdatum einer Zelle in Nachbarzelle speichern

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Änderungsdatum einer Zelle in Nachbarzelle speichern

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread