Abstand in Textbox

• Abstand in Textbox von Michael vom 26.11.2003 08:31:36
  • AW: Abstand in Textbox - von Hans W. Herber am 26.11.2003 08:46:28
  • Danke Hans - von Michael am 26.11.2003 10:27:42
    • AW: Danke Hans - von Hans W. Herber am 26.11.2003 10:35:04
      • AW: Danke Hans - von Michael am 26.11.2003 11:09:21
        • AW: Danke Hans - von Hans W. Herber am 26.11.2003 11:29:36
          • Super - von michae am 26.11.2003 11:41:36
      • AW: Danke Hans - von GerdW am 26.11.2003 11:09:45
        • AW: Danke Hans - von Nike am 26.11.2003 11:19:33
          • AW: Danke Hans - von GerdW am 26.11.2003 13:34:21

Betrifft: Abstand in Textbox
von: Michael
Geschrieben am: 26.11.2003 08:31:36
Schönen Guten Morgen
Gibt es eigentlich einen Code mit dem man einen Abstand in einer Textbox erzeugen kann. Wenn ich z.B.: eine Kreditkartennummer eingebe 4548181120205010/01.04 soll in der Textbox 4548 1811 2020 5010/01.04 stehen. D.h. ab jedem 4.Zeichen soll ein Leerzeichen eingefügt werden.

Danke
Michael

Betrifft: AW: Abstand in Textbox
von: Hans W. Herber
Geschrieben am: 26.11.2003 08:46:28
Hallo Michael,

siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/13setspaces.xls

gruss hans

Betrifft: Danke Hans
von: Michael
Geschrieben am: 26.11.2003 10:27:42
Danke
Sowas ähnliches habe ich gesucht. Das Problem ist nur das die Einträge von einer Textbox in die nächste Textbox übertragen werden.
Michael

Betrifft: AW: Danke Hans
von: Hans W. Herber
Geschrieben am: 26.11.2003 10:35:04
Hallo Michael,

grundsätzlich ist vom Einsatz von TextBoxes in Tabellenblättern abzuraten; sie bieten gegenüber Zellen - die man ebenso formatieren kann - keine Vorteile.

Arbeitet man mit TextBoxes wird einiges komplizierter. Im konkreten Fall wäre die Eingabetextbox mit einer Zelle zu verlinken, auf die mit der benutzerdefinierten Funktion zugegriffen würde. Die Zelle mit der benutzerdefinierten Funktion wäre dann wiederum mit der Zieltextbox zu verlinken.

Alternativ dazu könnte eine Lösung über das Change-Ereignis der Eingabetextbox geschaffen werden.

gruss hans

Betrifft: AW: Danke Hans
von: Michael
Geschrieben am: 26.11.2003 11:09:21
Hallo Hans
Ich drucke nicht das Tabellenblatt sondern die Userform aus.
Michael

Betrifft: AW: Danke Hans
von: Hans W. Herber
Geschrieben am: 26.11.2003 11:29:36
Hallo Michael,

dann muss die Sache über ein Ereignis in Verbindung mit der benutzerdefinierten Funktion gelöst werden. Siehe neue Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/13ufspaces.xls

gruss hans

Betrifft: Super
von: michae
Geschrieben am: 26.11.2003 11:41:36
Hallo Hans
Das Forum ist Spitze. Genau das ist es was ich gesucht habe
Gruss
Michael

Betrifft: AW: Danke Hans
von: GerdW
Geschrieben am: 26.11.2003 11:09:45
Im Prinzip hast du natürlich Recht, aber einen kleinen Vorteil haben Textboxen
schon, dass man schon während der Eingabe die Textlänge prüfen kann.

Gerd

Betrifft: AW: Danke Hans
von: Nike
Geschrieben am: 26.11.2003 11:19:33
Hi Gerd,
das würde ich so prüfen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 2 Then
Target = Left(Target, 2)
End If
End Sub

Bye

Nike

Betrifft: AW: Danke Hans
von: GerdW
Geschrieben am: 26.11.2003 13:34:21
Ja, aber erst nach Abschluss der Eingabe, ich schrieb: während!

Gerd

Excel-Beispiele zum Thema " Abstand in Textbox"
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten	Im Abstand von 2 Sekunden durch UserForm-ListBox scrollen
Prüfung im Sekundenabstand, ob eine Datei geändert wurde	Text aus Textbox in Variable
Namen von TextBoxes hochzählen	Text aus Textbox in Zellen aufteilen
Nichtnumerische Eingaben in TextBox verhindern	Text aus UserForm-Textbox in Variable einlesen
Nur Buchstaben in eine UserForm-TextBox	TextBoxes- und Label-Werte in Abhängigkeit verändern