Datenüberprüfung nicht kompatibel mit Änd.datum?

Hallo,
ich habe hier folgendes Problem; ich habe in eine Tabelle eine Zusatzspalte eingebaut, die mit dem Makro im Hintergrund automatisch bei Änderungen in den anderen Zellen das aktuelle Datum dort hineinschreibt.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Row

Jetzt habe ich aber in einer Spalte eine Datenüberprüfung und jedes Mal, wenn ich dort etwas auswähle, stürzt Excel ab.
Dazu habe ich auch ein kleines Beispiel mit meinem Code vorbereitet
https://www.herber.de/bbs/user/97178.xlsm
Wenn ich in Spalte A einen Eintrag ergänze, funktioniert alles super, sobald ich aber versuche, bei der Spalte B etwas auszuwählen, fliegt mir das gesamte Programm um die Ohren.
Wo liegt mein Fehler?
Grüße Jannik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 2 And Target.Column 3 Then Application.EnableEvents = False Cells(Target.Row, "C").Value = Date Application.EnableEvents = True End If End Sub

Moin nochmal,
ich habe ein weiterführendes Problem mit dem Makro, das ich jetzt anwende.
Wie kann ich denn den Fall ausschließen, dass ich eine Zelle lösche?
Der Code:


Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Value = 0 Then Exit Sub
If Target.Row >= 2 And Target.Column  3 Then
Application.EnableEvents = False
Cells(Target.Row, "C").Value = Date
Application.EnableEvents = True
End If
End Sub

Auch hierzu habe ich mein Beispiel ein wenig erweitert: https://www.herber.de/bbs/user/97229.xlsm
FALL 1: Ich möchte eine Zeile löschen, die sich über einer anderen befindet (hier Zeile 3). Rechtsklick auf die gesamte Zeile und "Zellen löschen". Nun wird bei der Zeile, die vorher 4 war (Datum = 1.1.2000) das Datum geändert, sodass dort das aktuelle steht. Da ich in der Zeile aber eigentlich nichts gemacht habe, soll sich natürlich auch nichts ändern!
FALL 2: Ich möchte die letzte Zeile löschen auch mit Rechtsklick "Zellen löschen". Nun hat die erste freie Zeile einen Datumseintrag, den ich von Hand löschen muss...
Also im Prinzip sind Fall 1 und 2 das Gleiche; die jeweils darunter liegende Zeile wird mit dem neuen Wert beschrieben...
Versucht habe ich bislang verschiedene Befehle, mit denen das Makro stoppt wie
"if target is nothing then exit sub" oder
"if target.value = 0 then exit sub"
Funktioniert leider beides nicht.
Es wäre nämlich ok, auch bei leeren Einträgen (quasi Zelle mit Inhalt löschen), das Datum nicht zu ändern/ das sub zu verlassen.
Welchen Code muss ich nun einfügen?

Private Sub Worksheet_Change(ByVal Target As Range) If ThisWorkbook.Names("Target").Value Like "*REF!" Then Exit Sub If Target.Row >= 2 And Target.Column 3 Then Application.EnableEvents = False Cells(Target.Row, "C").Value = Date Application.EnableEvents = True End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Target.Name = "Target" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Länge As Integer, Mitte As Integer, Adr As String, vorne As String, hinten As String Adr = Target.Address Länge = Len(Adr) Mitte = InStr(2, Adr, "$") vorne = Mid(Adr, 2, Mitte - 3) hinten = Mid(Adr, Mitte + 1, Länge - Mitte) If Target.Row >= 2 And Target.Column 3 And vorne hinten Then Application.EnableEvents = False Cells(Target.Row, "C").Value = Date Application.EnableEvents = True End If End Sub

Beliebteste Forumthreads (12 Monate)

Datenüberprüfung nicht kompatibel mit Änd.datum?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread