VBA Abfrage
31.10.2020 07:25:11
Hess
Ich mache folgende Abfrage mir Rückmeldung, welche nur einmal erscheinen soll!
Option Explicit
Public A1OK As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wert As Double
If Target.Address(0, 0) = "B78" Then
Wert = 36
If Cells(83, 2) > Wert And Not A1OK Then
MsgBox "Die maximale Lagerkapazität von 36 Stück wird überschritten!" & vbNewLine & " _
Bitte einmalig bestätigen!", vbInformation, "Information"
A1OK = True
End If
End If
End Sub
Nun möchte ich diese Abfrage aber für mehrere Zellen machen, wobei jeweils pro Abfage die Meldung nur eimal erscheinen soll. Wie muss ich das machen?