Hallo
Ich hab folgendes Problen ich muss aus einer Tebelle die mit Formeln hinterlegt ist Werte finden z.B. 10 und dann eine Msgbox Ausgeben. Die MSGbox soll aber nur einmal kommen wenn 10 drinnen steht. Und wenn eine Zweite Zelle mit 10 kommt dann auch nur für diese Zelle ein Pop Up.
Zurzeit habe ich das ganze nur für eine Zelle gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
Static m1 As Boolean
Dim a As Integer
a = 5
If m1 And Range("G2").Value = a Then
m1 = True
MsgBox "Kleidungstück Imprägnieren", vbOKOnly + vbExclamation, "Hinweis"
End If
End Sub
Im weiteren Sinne muss ich dann nicht nur 10 auswerten sondern alle werte bis 80 in 5er schritten.
|