Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA Userform Textbox in bestimmtes Format

Excel VBA Userform Textbox in bestimmtes Format
21.09.2018 23:59:44
Oliver
Hallo Leute,
ich bin am verzweifeln, weil ich seit 2 Tagen nicht zu einer Lösung komme.
Ich habe eine Userform, mit der ich eine Tabelle befülle. In der Userform habe ich eine TextBox in der immer ein bestimmtes Format vom User eingegeben werden soll.
Die Zeichenfolge beginnt mit einem Großbuchstaben (B, C oder S) gefolgt von zwei Zahlen. Dann ein Punkt, drei weitere Zahlen, ein Punkt und zu Letzt zwei Zahlen.
Beispiel: C99.123.67
Ich möchte gerne das Fehleingaben direkt bei der Eingabe abgefangen werden (KeyPress) und die Punkte automatisch bei der Eingabe eingefügt werden.
Bei einer Textbox mit Zeiteingabe habe ich das hinbekommen, nur in diesem Fall geht gar nichts :(
Ich bedanke mich schon mal für jede Hilfe.
Gruß Oliver

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA Userform Textbox in bestimmtes Format
22.09.2018 00:09:17
Gerd
Hallo Oliver,
hat die Blattvariable im Userformmodul keine Gültigkeit?
Dim PersonalDaten
Set Personaldaten= ThisWorkbook.Worksheets(".......")
Gruß Gerd
AW: AW zu falschem Thread, sorry
22.09.2018 00:16:45
Gerd
AW: Excel VBA Userform Textbox in bestimmtes Format
22.09.2018 00:51:18
Oberschlumpf
Hi Oliver,
füge diesen Code ins Modul deines Userforms ein
(beachte: bei mir heißt die Textbox = TextBox1 - wenn sie bei dir einen anderen Namen hat, musst du TextBox1 gegen deinen Namen austauschen) 
Private Sub TextBox1_Change()
If pboUndo = True Then
pboUndo = False
Exit Sub
End If
With TextBox1
Select Case Len(.Text)
Case 1
If Asc(.Text) >= 65 And _
Asc(.Text)  "B" And _
.Text  "C" And _
.Text  "Z" Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Else
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Case 2, 3
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
If Len(.Text) = 3 Then
pboUndo = True
.Text = .Text & "."
End If
Case 5, 6, 7
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
If Len(.Text) = 7 Then
pboUndo = True
.Text = .Text & "."
End If
Case 9, 10
If Not IsNumeric(Right(.Text, 1)) Then
pboUndo = True
.Text = pstrTxt
Exit Sub
End If
Case 11
pboUndo = True
.Text = pstrTxt
Exit Sub
End Select
pstrTxt = .Text
End With
End Sub


Private Sub UserForm_Activate()
pstrTxt = TextBox1.Text
End Sub

Hilfts?
Wenn nicht, zeig uns bitte per Upload deine Excel-Datei mit deinem Userform.
Ciao
Thorsten
Anzeige
AW: Excel VBA Userform Textbox in bestimmtes Format
22.09.2018 01:05:15
Oliver
Danke Thorsten,
werde es gleich morgen versuchen und hoffe es funktioniert. Melde mich dann.
Gruß
ups, hab was vergessen
22.09.2018 09:58:55
Oberschlumpf
Hi Oliver,
sorry, habe etwas an Code vergessen.
1. Füge der Datei im VBE ein allgemeines Modul hinzu
2. Schreib in das Modul unterhalb von Option Explicit diesen Code: 
Public pstrTxt

das wars schon.
Jetzt funktioniert es....zumindest bei mir. Bei dir auch?
Ciao
Thorsten
AW: ups, hab was vergessen
22.09.2018 11:23:57
Oliver
Guten Morgen Thorsten,
erst einmal vielen Dank für deine schnelle und tolle Hilfe, ich bin begeistert !
Der Code funktioniert einwandfrei, danke auch für die Erläuterungen wo der Code hingehört. Ich habe versucht ihn zu verstehen, befürchte aber dass ich soweit noch nicht bin.
Eine kleine Verbesserung wäre noch toll, jetzt kann der User zwar nur die richtigen Zeichen eingeben, aber wenn er weniger eingibt erlaubt das Programm das auch. Kann man bei zu wenig eingegebenen Zeichen eine MSGBOX erscheinen lassen?
Gruß
Oliver
Anzeige
AW: ups, hab was vergessen
22.09.2018 12:25:03
Oberschlumpf
Hi Oliver,
füge, auch ins Userform-Modul, diesen Code hinzu: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text)  10 Then
MsgBox "Angabe in TextBox1 unvollständig", vbExclamation, "Hinweis"
Cancel = True
End If
End Sub

Beachte den zu ändernden Namen für Textbox, wenn erforderlich.
Hilfts?
Ciao
Thorsten
AW: ups, hab was vergessen
22.09.2018 13:45:38
Oliver
Ich bin dir so dankbar, kannst dir nicht vorstellen.
Danke
Gruß

339 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 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
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4