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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen