Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1096to1100
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
PLZ auf 5 Stellen mit führender Null füllen
k
Hallo,
...an sich benötige ich für eine GIS-Software stehts PLZ's ohne führende Null - eben als reine Zahlen.
Jetzt aber - brauche ich mal für was anderes die führende Null!
Wie kann ich eine Textbox in der ein Wert (4stellig) steht mit einer führenden Null auffüllen ?
Habe es so versucht:
if TB2.text kleiner 5 then
TB2.text = "'" & Format(TB2.text, "00000")
end if
funktioniert an sich schon - suche aber nach einer einfachen Lösung - ohne dem "Anstrich" ?
ohen dem war es Excel ziemlich egal ;o( und nahm die Null nicht wahr. Auch mit dem Versuch
Format(CStr(Tb2.Text, "00000")
hat es nicht funktioniert !?
Wer hat für mich einen Lösungansatz und teilt mir diesen mit ?!
Gruß und Danke
Kay

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

Betreff
Benutzer
Anzeige
AW: PLZ auf 5 Stellen mit führender Null füllen
21.08.2009 16:16:47
Peter
Hallo Kay,
versuch es so:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) 
Gruß Peter
TB2.text = Right("00000" & TB2.text, 5) (owT)
21.08.2009 19:07:05
Erich
owT=ohne weiteren Text
AW: TB2.text = Right("00000" & TB2.text, 5) (owT)
21.08.2009 21:51:35
Kay
kam noch nicht dazu...probiere es am WE und dann melde ich mich.
AW: TB2.text = Right("00000" & TB2.text, 5) (owT)
22.08.2009 15:20:28
Tino
Hallo,
bei Textbox brauchst Du kein Hochkomma,
weil eine Textbox nur Text enthält und nicht wie eine Excelzelle richtige Zahlen.
Die Rückgabe von Format ist ein String und daher wird Dir auch die führende 0 nicht entfernt.
Sollte funktionieren.
Private Sub TB2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TB2) > 0 Then
TB2 = Format(TB2, "00000")
End If
End Sub
Gruß Tino
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige