automatisch Datum eintragen ohne aktualisieren

Guten Abend

In meiner Exceltabelle werden in jeder Zeile (in Spalte R) verschiedene Bedingungen geprüft. Wenn die Bedingung erfüllt ist, soll das aktuelle Datum in Spalte S erscheinen. Dabei soll sich das Datum danach nicht weiter aktualisieren. Ich habe es mit folgendem Makro versucht, jedoch ohne Erfolg:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim cell As Range
Set rng = Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row)
If Not Intersect(Target, rng) Is Nothing Then
Application.EnableEvents = False
For Each cell In Intersect(Target, rng)
If cell.Value = True Then
If IsEmpty(cell.Offset(0, 1).Value) Then
cell.Offset(0, 1).Value = Date
cell.Offset(0, 1).NumberFormat = "TT.MM.JJJJ"
End If
End If
Next cell
Application.EnableEvents = True
End If
MsgBox "Makro wurde ausgelöst!"
End Sub

Das Makro wird ausgelöst, das Datum erscheint jedoch nicht.
Eine Beispieldatei habe ich ebenfalls hochgeladen.
Kann mir dabei jemand helfen?

Herzlichen Dank und beste Grüsse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("R")) Is Nothing Then If Target.Value = True Then If IsEmpty(Target.Offset(0, 1).Value) Then Target.Offset(0, 1).Value = Date MsgBox "Makro wurde ausgelöst!" End If End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim Z As Range 'Z wie Zelle Dim cell As Range DoEvents 'es muss sichergestellt, dass die Berechnung in Spalte R stattgefunden hat With ListObjects(1) For i = 1 To 4 If Not Intersect(.ListColumns("Status" & i).DataBodyRange) Is Nothing Then Application.EnableEvents = False For Each Z In Target.Cells If Z.Value Then With Z.Offset(, 1) .Value = Date .NumberFormat = "DD.MM.YYYY" Debug.Print "Treffer in " & .Address End With End If Next Application.EnableEvents = True Exit Sub End If Next End With End Sub

Sub datum_rein() Dim i As Long Dim lngLetzte As Long lngLetzte = Cells(Rows.Count, "R").End(xlUp).Row For i = 2 To lngLetzte If Cells(i, "R").Value = True And IsEmpty(Cells(i, "S")) Then Cells(i, "S").Value = Date End If Next End Sub

Hallo psi (wenn Du deinen Posting mit einem "Gruß, Uwe" abschliesst, könnte man "Hallo Uwe" sagen ;-) Pseudo, das nicht jeder hat ist wiederum gut)

Wenn ich das richtig verstehe, hast Du in der Spalte R eine Formel. Sonst könnten keine Bedingungen geprüft werden. Eine Formelaktualisierung führt aber nicht zum Auslösen eine "Worksheet_Change"-Ereignis. Du müsstest alle Zellen überwachen, die zu diese Ergebnis in Spalte R dazuführt (wenn Formelverkettung, ann hoch bis zur "Quelle")

Du fügst als Ergebnis ein Datum in der Spalte S von allen geänderte Zeilen. Es würde daher ausreichen, vorher den Inhalt in Spalte S zu prüfen: wenn nicht leer, keine Aktualisierung. Aber eigentlich genau wie Du jetzt es machst.

Setze ein Haltepunkt (Menü "Debuggen", "Haltepunkt ein/aus" oder F9) und lass anschliessend den Code in Schritt-Modus laufen (F8), halte dabei das Lokal-Fenster offen (Menü "Ansicht", "Lokal-Fenster").
So kannst Du am besten überwachen, was passiert (und dabei viel über VBA lernen).

VG
Yal

Beliebteste Forumthreads (12 Monate)

automatisch Datum eintragen ohne aktualisieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

automatisch Datum eintragen ohne aktualisieren

11 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)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread