Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

textbox mit leezeichen auffüllen

textbox mit leezeichen auffüllen
15.01.2004 08:40:54
Michael
HAllo Excelgemeinde,
ich habe eine textbox in einer userform die genau 11-stellig sein soll. wenn beim verlassen weniger Stellen vorhnaden sind soll mit Leerzeichen aufgefüllt werden. Dem noch nicht genug. Ich würde die Eingabe gerne auf Buchstaben,Zahlen und die Zeichen "-" und "_" begrenzen. Ich bin da leider überfordert.
Danke für eure Hilfe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: textbox mit leezeichen auffüllen
15.01.2004 09:05:48
Gerd
Bei den Buchstaben auch Umlaute und ß ?
Gerd
AW: textbox mit leezeichen auffüllen
15.01.2004 09:07:07
Michael
Keine Umlaute und auch kein ß
Gruß Michael
AW: textbox mit leezeichen auffüllen
15.01.2004 10:55:18
K.Rola
Hallo,
Option Explicit

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim d As Byte, l As Byte, ml As Byte
l = Len(TextBox1)
ml = TextBox1.MaxLength
If l < ml Then
For d = l To ml - 1
TextBox1 = TextBox1 & Chr(32)
Next
End If
End Sub



Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 45, 95
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case Else: KeyAscii = 0
End Select
End Sub



Private Sub UserForm_Initialize()
TextBox1.MaxLength = 11
End Sub

Gruß K.Rola
Anzeige
AW: textbox mit leezeichen auffüllen
15.01.2004 11:03:33
Michael
Hallo K.Rola,
Funktioniert einwandfrei. Vielen Dank für deine Bemühungen. Da wäre ich dran verzweifelt.
Gruß Michael

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige