Formatierung mit Bindestrich, Zahlen und Buchstaben

Moderator: ModerationP

Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon Senate » 14. Jun 2018, 17:36

Hallo
Ich habe in einem Formular eine Textbox welche eine Zeichenkette im Format
00-0000-00
enthalten soll.
Nur für Zahlen und mit Leerzeichen anstatt der Bindestriche kriege ich es so hin

Code: Alles auswählen
Private Sub TextBox1_Change()
  TextBox1.Value = Format(TextBox1, "00 0000 00")
End Sub

Nun möchte ich die Leerzeichen aber dusch - ersetzen und auch die Möglichkeit schaffen Buchstaben zu den Zahlen zu verwenden.
Bis jetzt waren alle meine Versuche vergeblich.
Weiss vielleicht einer von euch wie ich das machen kann?
Senate
Neuling
 
Beiträge: 2
Registriert: 14. Jun 2018, 17:31

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon theoS » 14. Jun 2018, 19:27

Mach nen Backslash\ vor das Zeichen.
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4062
Registriert: 19. Apr 2008, 00:14

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon Gast » 15. Jun 2018, 04:39

Das habe ich schon versucht, klappt nicht.
Das - wird zwar angezeigt aber das wars dann auch schon, die Formatierung passt sich nicht bei jedem Tastenschlag an so wie wenn ich nur Zahlen verwende.
Gast
 

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon theoS » 15. Jun 2018, 17:34

Code: Alles auswählen
sonn = replace(textbox1.text,“-“,““)
Textbox1.text = format(sonn, “&&\-&&&&\-&&“)

theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4062
Registriert: 19. Apr 2008, 00:14

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon Senate » 22. Jun 2018, 14:00

Danke für den Code allerdings klappt da auch was nicht weil dann das gesamte Textfeld mit - gefüllt wird.
Senate
Neuling
 
Beiträge: 2
Registriert: 14. Jun 2018, 17:31

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon theoS » 22. Jun 2018, 15:32

Wenn du alle Stellen drin hast, ist's richtig.
Wenn du das so der Reihe nach haben willst, zähl Buchstaben und füg mit ner IF einen Bindestrich ein
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4062
Registriert: 19. Apr 2008, 00:14

Re: Formatierung mit Bindestrich, Zahlen und Buchstaben

Beitragvon theoS » 24. Jun 2018, 21:28

ungefähr so
Code: Alles auswählen
Private Sub TextBox1_Change()
Dim strEin As String, strDaz As String, byLen As Byte

strEin = TextBox1.Text
byLen = Len(strEin)

If byLen = 3 Or byLen = 8 Then
strDaz = Right(strEin, 1)
strEin = Left(strEin, byLen - 1)
strEin = strEin & "-"
strEin = strEin & strDaz
TextBox1.Text = strEin
ElseIf byLen >= 10 Then
TextBox1.Text = Left(strEin, 10)
Exit Sub
End If
End Sub
theo s.
Benutzeravatar
theoS
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 4062
Registriert: 19. Apr 2008, 00:14


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 4 Gäste