MsgBox nur einmal
27.05.2021 13:49:08
Burghard
ich möchte das meine MsgBox nur einmal aufpoppt, wenn ich die Spalte "D" auswähle. In meinem Makro öffnet sich die MsgBox aber jedes Mal, wenn ich dann andere Spalten wähle. Die MsgBox sollte aber nur einmal aufgehen. Mein Makro:
=======
Private Sub Worksheet_Change(ByVal Target As Range)
If Not ActiveWorkbook.FullName = ThisWorkbook.FullName Then Exit Sub
Set Target = Application.Intersect(Target, Range("D2:D200"))
If Target Is Nothing Then Exit Sub
Dim Betrag As Integer
Betrag = Range("K1") + 100 * 0.5
If ActiveSheet.Name = "Zahlungen" Then
GoTo weiter
End If
GoTo ende
weiter:
If Worksheets("Zahlungen").Range("L1").Value > Betrag Then
MsgBox ("Einzahlen")
End If
ende:
End Sub
Hilfe wäre nett
Viele Grüße
Burghard
Anzeige