Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Länge Textbox genau festlegen

Userform Länge Textbox genau festlegen
steffen
Hallo Leuts,
ich suche eine Möglichkeit, um festzulegen ,dass in einer Textbox innerhalb einer Userform genau 3 Zeichen (Zahlenwerte 0-9) eingetragen werden müssen.
Bsp:
---------------------
1 nicht erlaubt
01 nicht erlaubt
001 erlaubt
---------------------
89 nicht erlaubt
089 erlaubt
---------------------
f01 nicht erlaubt
Also zusammenfassend:
Es dürfen nur Werte von 001 bis 999 eingetragen werden. Alles andere ist nicht erlaubt.
Ihr wisst sicherlich Rat.
Gruß Steffen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Länge Textbox genau festlegen
30.04.2010 19:25:43
Hajo_Zi
Hallo Steffen,
Eigenschaft maxLenght einstellen. 
Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Eingaben nur Zahlen
' maxLenght =3 in Eigenschaften einstellen
If Len(TextBox1) >= 1 Then
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 49 To 57
Case Else: KeyAscii = 0
End Select
End If
End Sub


AW: Userform Länge Textbox genau festlegen
30.04.2010 19:35:37
steffen
Hallo hajo,
danke für die schnelle Hilfe.
auf max. 3 zeichne zu begrenzen hatte ich mit maxLenght 3 noch hinbekommen....
aber was passiert eigentlich genau bei Deiner Lösung? da fehlt mir echt das notwendige hintergrundwissen Ascii
Gruß
Steffen
Anzeige
AW: Userform Länge Textbox genau festlegen
30.04.2010 19:38:18
Hajo_Zi
Hallo Steffen,
das was im Code steht es dürfen nur Zahlen eingeben werden und bei der ersten Zahl keine 0
Gruß Hajo
AW: Userform Länge Textbox genau festlegen
30.04.2010 21:08:34
Erich
Hi,
"001" und "023" sollten aber doch auch erlaubt sein, nur "000" nicht.
Das geht mit Hajos Code auch, aber nur, indem man als 1. Ziffer eine Ziffer > 0 eingibt,
dann den Cursor davor stellt und eine 0 eingibt. Erscheint mir umständlich.
Mein Vorschlag: 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1 = "00" Then
Select Case KeyAscii
Case 49 To 57
Case Else: KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End If
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
oder kürzer so
30.04.2010 21:14:26
Erich
Hi, 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 - (TextBox1 = "00") To 57
Case Else: KeyAscii = 0
End Select
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Userform Länge Textbox genau festlegen
30.04.2010 19:30:31
Gerd
Hallo Steffen,
ins Userformmodul:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(ChrW(KeyAscii)) Then KeyAscii = 0
End Sub


Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "000")
End Sub
Die MaxLenght kannst Du im Eigenschaften-Fenster einstellen.
Gruß Gerd
Anzeige

93 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Wert eines Labels (Userform) an Textbox
Robert

Hallo,
komme leider wiedermal nicht weiter und hoffe auf eure Hilfe.
Ich müsste den Wert eines Labels (in einer Userform) an eine TextBox (Steuerelement in Tabelle)
weitergeben.
Geht das überhaupt?
Vielen Dank schon mal..
Viele Grüße
Robert
13.02.2009 15:20:00
Thread-ID: 1050543
5 Beiträge
TextBoxen Standard - Format zuweisen
Frank

Hallo Zusammen!
Wünsche zunächst ein schönes Wochenende und nun zu meiner Frage. Beim öffnen einer UF werden die darin befindlichen TextBoxen mittels Daten aus einer Tabelle befüllt und den TextBoxen sind unterschiedliche Formate zugewiesen. Nun werden die TextBoxen per Change Ereignis eine...
13.02.2009 18:29:00
Thread-ID: 1050611
2 Beiträge
Anzeige
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
Textbox an Userform2 übergeben
Kay

Hallo,
ich habe 2 Userformen. Userform1 = Datenerfassung. Darin befinden sich unteranderm 6 Textboxen, wo eine bestimmte Wareninformation angelegt werden soll. Klickt der User auf das Label dieser Textbox, öffnet sich ein Unterfenster (Userform2) mit einer "Suchmaske" die anhand seiner Arti...
28.07.2009 08:20:39
Thread-ID: 1091776
7 Beiträge
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Kreisdiagramm in Größe automatisch anpassen
Rudolf

Hallo Excel-Freunde,
ich möchte innerhalb einer Dokumentation mehrere Kreisdiagramme einflechten. Für die Darstellung des Kreises mit den Segmenten ist jedem Kreis eine eigene Wertetabelle zugeordnet:
Beispiel:
1. Kreis: Wert A = 10; Wert B = 20; Wert C = 30 (Gesamtwert also 60)<...
23.02.2010 14:27:31
Thread-ID: 1140698
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
4
1
7
6
6
1
3
1
4
4
5
1
8
4
2
3
6
5
6
11
2
4
2