eine kurze Frage.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3")) Is Nothing Then
Call Ablauf
ElseIf Not Intersect(Target, Range("A1:J50")) Is Nothing Then
Call Prio
End If
End Sub
Sub Prio()
Range("i3") = "hoch"
MsgBox ("Achtung")
End Sub
Es geht um die Prio Abfrage. Eigentlich klappt alles wunderbar, allerdings schließt die MsgBox nicht bei Betätigen des Ok Buttons. Ich muss die Schleife irgendwie beenden bekomme es aber.
nicht hin.
Danke und LG
Steffen