Worksheet_Change Ereigniss

Ich möchte bei einem Chance Ereigniss ein Datum in eine Zelle schreiben die in einer anderen Spalte steht welche ich dynamisch ermittle.
Mein Problem ist nur wenn sich auch Text in der geänderten Zelle befinden soll das Datum in die Zelle der Spalte geschrieben werden. Wenn ich die aktive Zelle mit "entf" lösche dann ist dies auch ein Chance Ereigniss welches sich aber anders auswirkt. Bei einer Änderung des Textes einer Zelle rutscht der Cursor nach und und beim löschen der Zelle bleibt er da wo er ist. So kann ich nie in der selben Zeile das Datum schreiben lassen da ich per Offset nie sagen wo sich vorher der Cursor befunden hat.
Hier mal mein Code vieleicht versteht man es ja ^^


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim d As Range
Dim e As Double
Dim f As Range
Dim spalte_merken, zeile_merken As Double
Dim aktuelle_spalte As Double
For Each d In Range("A2:BY2")
If d.Value = "Wann wurde dieser Datensatz erstellt ?" Then
spalte_merken = d.Column
If ActiveCell.Column  spalte_merken Then 'Nur wenn ungleich der Spallte "Wann wurde dieser  _
Datensatz erstellt das datum eintragen"
e = d.Column
aktuelle_spalte = (e - ActiveCell.Column)
ActiveSheet.Range(ActiveCell, ActiveCell).Offset(rowOffset:=-1, columnOffset:=aktuelle_spalte).  _
_
Value = Date
End If
End If
Next
End Sub

Gibt es dafür eine Lösung ?
Danke und Gruß
Steffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steffen,
so ganz verstehe ich nicht, was du überhaupt mit dem Makro bezweckst, aber zumindest die Aussage
da ich per Offset nie sagen wo sich vorher der Cursor befunden hat
kann ich wiederlegen.
Mit diesem Beispielcode kannst du das testen:


Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(target, Range("A1")) Is Nothing Then
MsgBox Selection.Address
End If
End Sub

Wenn du in A1 Enter drückst, bekommst du B1 als Rückgabewert (bei mir ist Enter nach rechts eingestellt)
Wenn du alternativ Entf drückst, bekommst du A1.
Mit .Row oder .Column kannst du auch eine der beiden Angaben separat erhalten.
Wenn dir das nicht hilft, musst du bitte das Problem genauer erklären.
Gruß
David

Sub test2() Dim Suchadresse, Suchzeile, suchspalte Suchadresse = Cells.Find("Test", LookIn:=xlValues).Address Suchzeile = Cells.Find("Test", LookIn:=xlValues).Row suchspalte = Cells.Find("Test", LookIn:=xlValues).Column MsgBox "Adresse: " & Suchadresse & Chr(13) & "Zeile: " & Suchzeile & Chr(13) & "Spalte: " & _ suchspalte End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread