mit dem unten stehenden VBA suche ich nach Änderung in Range D:I nach Zelländerungen nach Eingabe. Für die weiteren Anweisungen bräuchte ich nun den Spaltenamen in der die Änderung gemacht wurde. Leider habe ich das nicht hinbekommen.
Versucht habe ich zusätzlich Target2, Target3 etc zu definieren die dann auf wobei dann nur die einzelnen Spalten durchsucht werden statt die gesamte Range.
Wie gesagt leider erfolglos :P
Kann jemand helfen ?
Gruss
Henry
Private Sub Worksheet_Change(ByVal Target As Range)
Loletzte = Sheets("Loadlist").Cells(Rows.Count, 1).End(xlUp).Row
Set Target = Application.Intersect(Target, Range("D2:I" & Loletzte))
If Target Is Nothing Then Exit Sub
On Error GoTo ErrorHandler
Application.EnableEvents = False
Dim rngZelle As Range
For Each rngZelle In Target
Dim Antwort
Antwort = MsgBox("Heute schon gefrühstückt?", 4, "Frage")
If Antwort = vbYes Then
MsgBox "Das ist ja schön für dich"
Else
End If
'Call MainProcessing