While Schleife
26.06.2020 20:08:11
M@tt
Hallo, ich habe folgendes Problem, ich möchte mit einer Inputbox zur Eingabe einer Ziffer auffordern, die Eingabe soll auf Zahl überprüft werden, wenn keine Zahl (leer oder Text), dann Eingabe wiederholen, wenn eine gültige Eingabe erfolgte, soll aus der Schleife gegangen werden und die Zahl in z.B. A1 eingetragen werden. Leider hänge ich an diesem Stand fest und komme einfach nicht zum Ziel, wer kann und möchte mir auf die Sprünge helfen? Es muß aufgrund der Aufgabenstellung mit der While Schleife gemacht werden.
Was mache ich hier falsch? Warum läuft die Schleife nicht erneut ab?
Vielen Dank, Gruß M@tt
Mein
Sub lautet:
Sub Überprüfung()
Dim Eingabe As Variant
Dim Frage As String
Dim Antwort As String
Antwort = ("Diese Eingabe war nicht korrekt!")
While Eingabe
https://www.herber.de/bbs/user/138589.xlsm