Makro bei Änderung aktive Zeile
15.05.2022 15:46:46
Jochen
ich bin schon oft durch euer Forum weiter gekommen, so wie ich euch kenne, auch dieses mal.
Kurze Erklärung zu meiner Tabelle, durch Doppel-Click starte ich eine UF der die aktive Zeile ausliest, u. so auch wieder zurück in die Tabelle schreibt, klappt alles bestens.
Nun zu meinen Problem, ich möchte eine Prüfung der Daten die zurück in die Tabelle geschrieben werden, bekomme ich auch noch hin, was nicht, dass nur eine Meldung erscheint, es kommen immer so viele wie ich auch Daten zurückschrieben lasse, das können bis zu 19 Stück sein. Wäre schon dankbar wenn es nur noch eine Meldung wäre, egal ob mit MsgBox oder UF, oder ist dies auch mit Zähler für die Veränderungen möglich.
mein bisheriger Ansatz:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Set Bereich = Range("A4:AE750")
If Intersect(Target, Bereich) Is Nothing Then
Exit Sub
'Else
Call DatenUebertragen 'UserForm
End If
End Sub
Gruß Jochen