eig. ist die Frage schon im Betreff formuliert:
Wie kann ich eine vierstellige Eingabe einer Zahl in einer Input Box erzwingen?
Vielen Dank.
Sub b()
Dim a, Check As Boolean
Do Until Check = True
a = Application.InputBox("Eingabe:")
If a = False Then Exit Do
If IsNumeric(a) And Len(a) > 3 Then Check = True
Loop
If a False Then MsgBox a
End Sub
LGSub ForceInput()
Dim a, b$, c As Boolean
Do Until c = True
a = Application.InputBox(b & vbLf & "Aktueller Wert:", "Eingabe:")
If a = False Then Exit Sub
If IsNumeric(a) Then
If Len(a) > 3 Then
c = True
Else:
b = "[4-stellige Eingabe erforderlich!]" & vbLf
End If
Else:
b = "[Numerische Eingabe erforderlich!]" & vbLf
End If
Loop
MsgBox a, vbInformation, "Die Eingabe lautet..."
End Sub
LGdim Zahl as Long
dim Eingabe as string
Do
Eingabe = Inputbox("Vierstellige Zahl")
If Eingabe = "" then
Msgbox " Abbruch"
Exit Sub
elseIf Eingabe like "####" Then
Zahl = Clng(Eingabe)
Exit Do
End If
Msgbox "Bitte eine 4-stellige Zahl eingeben"
Loop
Gruß DanielUm sicherzustellen, dass eine vierstellige Zahl in einer Input Box eingegeben wird, kannst Du ein einfaches VBA-Skript verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Sub ForceInput()
Dim a, b As String
Dim c As Boolean
Do Until c = True
a = Application.InputBox(b & vbLf & "Aktueller Wert:", "Eingabe:")
If a = False Then Exit Sub
If IsNumeric(a) Then
If Len(a) = 4 Then
c = True
Else
b = "[4-stellige Eingabe erforderlich!]" & vbLf
End If
Else
b = "[Numerische Eingabe erforderlich!]" & vbLf
End If
Loop
MsgBox a, vbInformation, "Die Eingabe lautet..."
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro ForceInput
aus, um die Eingabeaufforderung zu testen.
Fehler: Eingabe wird nicht akzeptiert.
Len(a) = 4
.Fehler: Das Makro funktioniert nicht.
Datei
> Optionen
> Sicherheitscenter
> Einstellungen für das Sicherheitscenter
> Einstellungen für Makros
tun.Fehler: Eingabe wird als Text erkannt.
IsNumeric(a)
zur Überprüfung.Es gibt auch andere Möglichkeiten, eine vierstellige Zahl zu erzwingen. Eine davon ist die Verwendung der InputBox
mit einer spezifischen Typüberprüfung. Hier ist ein Beispiel:
Dim Zahl As Long
Dim Eingabe As String
Do
Eingabe = InputBox("Bitte eine vierstellige Zahl eingeben:")
If Eingabe = "" Then
MsgBox "Abbruch"
Exit Sub
ElseIf Eingabe Like "####" Then
Zahl = CLng(Eingabe)
Exit Do
End If
MsgBox "Bitte eine 4-stellige Zahl eingeben"
Loop
Diese Methode verwendet die Like
-Anweisung, um sicherzustellen, dass die Eingabe dem vierstelligen Format entspricht.
Hier sind einige nützliche Beispiele, die Dir helfen können, die Eingabe von vierstelligen Zahlen in Excel zu forcieren:
Einfaches Makro zur Eingabe:
ForceInput
Makro, um die Benutzerfreundlichkeit zu erhöhen.Erweiterte Eingabeaufforderung mit Fehlerbehandlung:
1. Wie kann ich sicherstellen, dass nur Zahlen eingegeben werden?
Du kannst die IsNumeric
-Funktion verwenden, um sicherzustellen, dass die Eingabe numerisch ist.
2. Was passiert, wenn der Benutzer die Eingabe abbricht?
In diesem Fall wird das Makro mit Exit Sub
beendet, was eine sichere Handhabung des Abbruchs ermöglicht.
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