Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfung Eingabe Inputbox

Prüfung Eingabe Inputbox
06.12.2019 10:44:01
Michael
Hallo zusammen,
ich möchte über eine Inputbox einen bestimmten Wert abfragen.
Der Wert ist immer gleich aufgebaut: Vorne ist ein S und dann kommen drei Zahlen. Beispiel "S001"
Ich habe drei Prüfungen eingebaut:
1. Prüfung, ob die letzten drei Zeichen eine Zahl ist ->Funktioniert NICHT
2. Prüfung, ob das erste Zeichen ein "S" ist ->Funktioniert
3. Prüfung, ob es genau 4 Zeichen sind ->Funktioniert
    Do Until CInt(Right(Drucker, 3)) > 1 And CInt(Right(Drucker, 3)) 

Weiß hier jemand Rat, wie ich die 1. Prüfung durchführen könnte?
Danke im voraus
Gruß Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung Eingabe Inputbox
06.12.2019 11:02:20
EtoPHG
Hallo Michael,
Das ist ja ein wieder einmal ein Konstrukt.
Wie wär's mit:
    Do Until Len(Drucker) = 4 And _
Left(Drucker, 1) = "S" And _
Format(Val(Right(Drucker, 3)), "000") = Right(Drucker, 3)
Drucker = InputBox("Bitte den Drucker eingeben!", "Dateneingabe")
Loop

AW: Prüfung Eingabe Inputbox
07.12.2019 23:33:32
Michael
Hallo EtoPHG,
das klappt wunderbar. Vielen Dank!
Gruß Michael
AW: like ""
06.12.2019 11:04:39
Fennek
Hallo,
teste mal

if Drucker like "$###" then
mfg
ungeprüft
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige