MSGBox verschwindet nicht
Robert
Ich habe folgendes Problem:
Bei diesem Code:
Private Sub CommandButton6_Click()
'Rechnung Drucken
Application.ScreenUpdating = False
Dim Renu As String
Dim rueck As String
Application.ScreenUpdating = False
Zahleingabe:
Renu = InputBox("Rechnungsnummer im Format '0024' eingeben. Das Abrechnungsjahr '..../Jahr' _
_
wird automatisch ergänzt.", "Bitte Rechnungsnummer eingeben!")
If StrPtr(Renu) = 0 Then
MsgBox "Vorgang Abgebrochen"
Exit Sub
Else
If Not IsNumeric(Renu) Then
MsgBox "Es dürfen nur Zahlen eingegeben werden.", vbOKOnly, "FEHLER!"
GoTo Zahleingabe
Else
rueck = MsgBox("Neue Rechnungsnumer: " & Renu, vbYesNo + vbQuestion, "Rechnungsnummer Bestä _
tigen")
If rueck = vbNo Then GoTo Zahleingabe
End If
Sheets("Export Rechnung").Select
ActiveSheet.Cells(3, 2).Value = Renu
Application.ScreenUpdating = True
End If
End Sub
Das Makro läuft zwar, aber nach Bestätigen der MSGBoxes über "OK", wenn eine Fehlereingabe stattgefunden hat, schließen sich diese nicht.Erst wenn das gesamte Makro ausgeführt wurde, verschwinden die MSGBoxes.
Ich habe hier schon so ziemlich jeden thread dazu durchgelesen, aber konnte keine Lösung finden.
Ein automatisches Ausblenden nach x Sekunden möchte ich vermeiden.
Habt Ihr da vlt. eine Idee, woran das liegt?
Freue mich über Eure Hilfe!
Vielen Dank!
Robert