Ich hab eine Frage die sicher schon beantwortet ist, kann die antwort aber nicht finden.
wie kann ich verhindern das eine inputbox über das schließ-kreuz geschlossen wird?
Danke
Sub test1()
Dim varValue As Variant
Do
varValue = Application.InputBox("Eingabe")
Loop Until varValue <> False
MsgBox "Fertig!"
End Sub
Sub test2()
Dim Str As String
Do
Str = InputBox("Eingabe")
Loop Until StrPtr(Str) <> 0
MsgBox "Fertig"
End Sub