MsgBox soll nur einmal erscheinen
29.07.2004 09:40:20
Torsten
mit folgendem kleinen Makro kann ich eine MsgBox aufscheinen lassen, wenn der User meiner Datei mehr Ausgaben plant als budgetiert sind. Die Zellen, die dafür geprüft werden, sind aber selbst Summen aus verschiedenen Kostenarten.
Daß heißt, wenn durch die Eingabe eines Betrages einnmal das Budget überschritten wird, wird mit jeder weiteren Eingabe die MsgBox erzeugt. Das möchte ich nicht. Ich hab's deshalb mal mit einer Variablen "V" probiert, die hochgezählt wird, sobald die MsgBox das 1. Mal gezeigt wird.
Function WARNING()
Call msgWARN
End Function
--------------------------------------------------------------------
Sub msgWARN()
Dim V As Integer
If V = 0 Then
MsgBox "Das Estimate 2004 ist höher als Ihr Budget 2004" & vbCr & _
"Stimmen Sie sich bitte mit Finance ab!", 16, "Warnung"
V = V + 1
Else
Exit Sub
End If
End Sub
Leider funktioniert's noch nicht. Könnt Ihr mir weiterhelfen?
Vielen dank im voraus.
Gruß
Torsten