Office: nur 5-stellige Zahl in TextBox zulasse

Helfe beim Thema nur 5-stellige Zahl in TextBox zulasse in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, hab folgendes Problem (Excel 2010): Ich möchte in einer Userform eine TextBox mit einer 5-stelligen Zahl (bzw. in einer zweite TextBox eine... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von surfer01, 13. April 2014.

Seite 1 von 2

SURFER01

surfer01

nur 5-stellige Zahl in TextBox zulasse

Hallo,

hab folgendes Problem (Excel 2010):

Ich möchte in einer Userform eine TextBox mit einer 5-stelligen Zahl (bzw. in einer zweite TextBox eine 2-stellige Zahl) vom Anwender befüllen lassen (als Vorgabe steht "00000" beim Aufruf der Userform im Feld). Ich möchte jetzt, dass der Anwender nur Zahlen eingeben kann und wenn der Anweder in das Feld schreibt, die Zahlen nicht hinter die 5 vorhanden Nullen angefügt werden, sondern diese überschrieben werden.

Beispiel:
00000 -> beim Aufruf der userform
00023 -> wenn der Anwender 23 angibt und nicht 0000023

Hoffe ich habe mich verständlich ausgedrück :-) Vielen Dank für Eure Hilfe!

Gruß
surfer

:)

surfer01, 13. April 2014

#1
HOLN

HolN

Hallo

ich würde nach ausführen der Userform die Textboxen so prüfeb

If Not IsNumeric(Textbox) Then
MsgBox ("Eingabe. nicht nummerisch"), vbInformation, "Eingabefehler"
txttextbox.SetFocus
Exit Sub
End If

If Len(textbox) 5 Then
MsgBox (" Nr. muß 5 stellig sein"), vbInformation, "Eingabefehler"
txttextbox.SetFocus
Exit Sub
End If

Gruß
Holger

HolN, 15. April 2014

#2
Hajo_Zi Erfahrener User

nur Zahlen.
Code:

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Eingaben nur Zahlen
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi, 15. April 2014

#3
ALOYS78

aloys78

nur 5-stellige Zahl in TextBox zulasse

Hallo Surfer,

mein Vorschlag:
Code:

Private Sub UserForm_Initialize()
TextBox1.Text = Format(0, "00000")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "00000")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

aloys78, 15. April 2014

#4
SURFER01

surfer01

Hallo,

vielen Dank für Eure schnellen Antworten!

Die Kombination hat mich schon deutlich weiter gebracht! Allerdings hab ich noch folgende Probleme:

1: bei dem Code von aloys78 werden die 5 Nullen als erstes überschrieben. wird eine sechste Zahl eingegeben, dann wird diese hinten angefügt. Kann ich das verhinden?

2: beim Code von HoIN funktioniert "txttextbox.SetFocus" nicht. der Cursor geht nach der Meldung in die nächste Textbox.

Gruß
surfer

surfer01, 15. April 2014

#5
ALOYS78

aloys78

Hallo Surfer,

bei dem Code von aloys78 werden die 5 Nullen als erstes überschrieben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo ist da das Problem ?
Du hast, wie gewünscht, immer die führenden Nullen !

wird eine sechste Zahl eingegeben, dann wird diese hinten angefügt. Kann ich das verhinden?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was willst du konkret verhindern ?
- die Eingabe von mehr als 5 Ziffern ?

Gruß
Aloys

aloys78, 15. April 2014

#6
HOLN

HolN

Hallo Surfer

funktioniert "txttextbox.SetFocus" nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

txttextbox muss der Name der Textbox sein in dem die Werte geprüft werden

Gruß
Holger

HolN, 15. April 2014

#7
SURFER01

surfer01

nur 5-stellige Zahl in TextBox zulasse

Hallo Aloys,

ich will die Eingabe von mehr als 5 Ziffern verhindern!

Habe das jetzt ersmal so gelöst:
Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) 5 Then
MsgBox (" Nr. muß 5 stellig sein, überzählige Stellen werden gelöscht")
TextBox1.Value = Left(TextBox1, 5)
Exit Sub
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gefällt mir aber nicht

surfer01, 15. April 2014

#8
MC SANTA

Mc Santa

Probiere es so:
Code:

Private Sub UserForm_Initialize()
TextBox1.Text = Format(0, "00000")
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(Right(TextBox1, 5), "00000")
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Eingaben nur Zahlen
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mc Santa, 15. April 2014

#9
SURFER01

surfer01

Hallo Holger,

hab das für mich angepasst,
Code:

TextBox1.SetFocus
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

funktioniert aber nicht. Oder hab ich einen Fehler drin?

Gruß
surfer

surfer01, 15. April 2014

#10
SURFER01

surfer01

von Mc Santa

Probiere es so:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Private Sub UserForm_Initialize()
TextBox1.Text = Format(0, "00000")
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(Right(TextBox1, 5), "00000")
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Eingaben nur Zahlen
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hallo Mc Santa,

funktioniert leider auch nicht. Die sechste Zahl wird nach wie vor angehängt!

Gruß
surfer

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021

surfer01, 15. April 2014

#11
MC SANTA

Mc Santa

Diesen Fehler kann ich leider nicht nachstellen, wie genau bekommst du 6 Ziffern in deine Textbox?

VG

Mc Santa, 15. April 2014

#12
HOLN

HolN

nur 5-stellige Zahl in TextBox zulasse

wenns nicht geht, versuche doch mal unter den Eigenschafteb der Textbox MaxLenght auf 5 zu stellen.
Jetzt dürfen aber keine 6 Zahlen mehr angezeigt werden

Gruß
Holger

HolN, 15. April 2014

#13
ALOYS78

aloys78

Hallo Surfer,

mein Vorschlag
Code:

Private Sub TextBox1_Change()
If Len(TextBox1) 5 And Left(TextBox1, 1) = "0") Then
TextBox1 = Format(TextBox1, "00000")
Else
TextBox1 = Format(Left(TextBox1, 5), "00000")
MsgBox (" Nr. muß 5 stellig sein, überzählige Stellen werden gelöscht")
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

aloys78, 15. April 2014

#14
SURFER01

surfer01

Hallo Holger,

Hab mich nicht deutlich ausgedrückt, sorry!

Also mit dem Code:
Code:

TextBox1 = Format(Right(TextBox1, 5), "00000")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

sind jetzt nur noch 5 Stellen in der TextBox!

Aber, wenn ich die ersten 5 Ziffern eingebe "12345" und dann "6", dann wird die erste Stelle "1" abgeschnitten und im Feld steht "23456". Hier sehe ich die große Gefahr, dass der Anwender das gar nicht mitbekommt!

Sinnvoll währe es, wenn die 5 Stelle überschrieben wird ind "12346" angezeigt wird.

surfer01, 15. April 2014

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

nur 5-stellige Zahl in TextBox zulasse

Die Seite wird geladen...

nur 5-stellige Zahl in TextBox zulasse - Similar Threads - stellige Zahl TextBox
Zahl entfernen (4-5 stellig)
in Microsoft Excel Hilfe
Zahl entfernen (4-5 stellig): Hallo, ich habe in einer Zelle eine Zahlen-Buchstabenkombination, z.B. 500AOL90 1780AOL 900AOL90AOL45 in einer weiteren Zelle hab ich bereits die erste Zahlenfolge extrahiert, also 500 1780 900...
Alter per Formel errechnen, Ausgabe immer 2 Stellig
in Microsoft Excel Hilfe
Alter per Formel errechnen, Ausgabe immer 2 Stellig: Hallo Leute, ich bin am Verzweifeln, ich habe in meiner Liste eine Formel, mit der ich das Alter der Personen errechne: =DATEDIF(C3;DATUM(JAHR(HEUTE());12;31);"y")&"-j" Da ich die Excel Datei...
8-stellige Zahl auslesen und x-te Stelle wiedergeben
in Microsoft Excel Hilfe
8-stellige Zahl auslesen und x-te Stelle wiedergeben: Hallo! Ich wüsste gerne, wie ich eine 8-stellige Zahl in einer Zelle (nehmen wir B3)auslese und eine vorgegebene Stelle (bspw. die vierte Stelle von links; Vorgabe erfolgt in Zelle B1) in einer...
Excel Problem: Filterung nach 5-stelligen Zahlen
in Microsoft Excel Hilfe
Excel Problem: Filterung nach 5-stelligen Zahlen: Hallo liebes Forum, ich habe derzeit ein Problem auf Arbeit. Wir verwenden ein Warenwirtschaftssystem. In diesem Warenwirtschaftssystem sind alle unsere Artikel, Einkäufe, Verkäufe, Statistiken,...
Zahl in Zelle muss immer 4 stellig sein
in Microsoft Excel Hilfe
Zahl in Zelle muss immer 4 stellig sein: Hallo an alle, ich habe folgendes Problem: Ich habe eine Spalte mit vielen Nummern. in jeder Zelle muss eine 4stellige Zahl stehen. In einigen Zellen sind schon 4 stellige Zahlen enthalten in...
9-stellige Zahl aus Datenmischmasch extrahieren
in Microsoft Excel Hilfe
9-stellige Zahl aus Datenmischmasch extrahieren: Hallo, Version 2013 Aufgabenstellung: in Spalte A sind aus einer Textdatei Daten importiert worden, die Buchstaben und Zahlen sowie nur eine 9-stellige (durchgehend) Zahl enhalten. In Spalte B...
16 Stelliger Code wird letzte Zahl 0
in Microsoft Excel Hilfe
16 Stelliger Code wird letzte Zahl 0: Hallo Ich habe mit einem User ein Problem. Wenn dieser im Excel eine beliebige Zahlenfolge von 16 Ziffern eingibt, wird die letzte Zahl eine 0. Habe dies auch schon im Office07 und Office10...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden