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
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formatierung in Abhängigkeit von Eingabe

Formatierung in Abhängigkeit von Eingabe
14.09.2004 09:16:05
Mathias
Hallo liebe Helfer,
ich habe folgendes Problem: Die Eingaben in eine userform sollen in ein bestimmtes Format gebracht werden in Abhängigkeit von der Länge der Eingabe. Bei meinem Code ergibt sich das Problem, dass immer! die Formatierung für die längere Eingabe (12-Zeichen) verwendet wird.
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox5.Text) = 0 Then Exit Sub
If Len(TextBox5) 'ist größer als' 0 Then
If Len(TextBox5) 'ist kleiner als' 6 Then
MsgBox "Bitte mindestens eine 6-stellige Zahl angeben!"
Cancel = True
End If
If Len(TextBox5) 'ist größer als' 6 Then
If Len(TextBox5) 'ist kleiner als' 12 Then
MsgBox "Bitte eine 6- oder 12-stellige Zahl angeben!"
End If
Rem Hier liegt das Problem, nimmt immer die Formatierung für 12 Zeichen
If Len(TextBox5.Text) = 6 Then TextBox5 = Format(TextBox5, "@@@ @@@")
If Len(TextBox5.Text) 'ist größer als' 6 Then TextBox5 = Format(TextBox5, "@@ @@@ @@@ @@@ @")
End If
Danke für die Hilfe
Mathias

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung in Abhängigkeit von Eingabe
14.09.2004 10:05:02
Hans W. Herber
Hallo Mathias,
wie folgt:

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5.TextLength = 0 Then Exit Sub
If TextBox5.TextLength < 6 Then
MsgBox "Bitte mindestens eine 6-stellige Zahl angeben!"
Exit Sub
End If
If TextBox5.TextLength > 6 And TextBox5.TextLength < 12 Then
MsgBox "Bitte eine 6- oder 12-stellige Zahl angeben!"
Exit Sub
End If
If TextBox5.TextLength = 6 Then
TextBox5.Text = Format(TextBox5.Text, "@@@ @@@")
Else
TextBox5.Text = Format(TextBox5.Text, "@@ @@@ @@@ @@@ @")
End If
End Sub

gruss hans
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige