0 soll angezeigt werden

[leher]

Hallo,

ich habe schon in anderen Foren nachgesehen, aber nie eine passende Lösung gefunden.

Mein Problem ist folgendes:

Wenn ich eine Nummer eingebe mit einer 0 am Anfang, also zum Beispiel 03049596856949090, erscheint bei Excel 3,05E+15... Das passiert auch, wenn ich eine Nummer eingebe, die nicht mit einer 0 anfängt...
Wie bekomme ich das richtig hin? Und wie kann ich erreichen, dass die 0 mit angezeigt wird?

Vielen Dank,

Gruß,

leher

[Officer]

Hi leher,

das sollte sich relativ einfach über die Zellformatierung lösen lassen.
Wenn du als benutzerdefiniertes Zellformat 15 mal die 0, also 000000000000000 eingibst, sollte die Zahl korrekt angezeigt werden, siehe beigefügter Screenshot.

Gruß

Officer

[leher]

danke..

Was passiert aber, wenn die Zahlen unterschiedlich lang sind? Wenn also zB Telefonnummern unterschiedlich lang sind? Dann geht das mit nullen nicht so leicht, oder?

Gruß,

leher

[Officer]

Hi,

wenn es um unterschielich lange Zahlen wie Telefonnummern geht, dann solltest Du folgendes benutzerdefiniertes Zahlenformat verwenden: 0####################

Damit werden alle Zahlen bis 20 Stellen mit führender 0 angezeigt. Wenn Du noch längere Zahlen benötigst, dann einfach das Zeichen # entsprehchend oft nach der führenden 0 einfügen.

Gruß

Officer

[leher]

Danke..

Ich habe mal so etwas ausprobiert: '03049504003
Als ich das bei Excel eingegeben habe in eine Zeile hat das auch gut funktioniert..Weißt du vielleicht ob sich ein solches Format bei einer userform einstellen lässt?

Gruß,

leher

[Officer]

Hi,

wenn Du in der Userform eine Textbox verwendest und die Zahl mit führender 0 als String übergibst, dann wird diese auch korrekt dargestellt, siehe angehängte Beispieldatei.

Gruß

Officer

[wilfried07]

Hallo!

Format Text eingeben, dann erst die Zahl eingeben.
Weiter rechnen geht aber nicht.

Gruß
Wilfried

[leher]

@ officer:

wo wird bei deiner geschickten Datei die Telefonnummer ausgegeben im Excel Sheet?

Das habe ich irgendwie nicht gefunden...

[Officer]

Hallo,

habe die Datei noch angepasst. Nun erfolgt die Ausgabe in Zelle A10.
Wichtig, auch diese Zelle mit 0################# formatieren.

Gruß

Officer

[leher]

Vielen Dank!

Jetzt klappt es

Ich habe es jetzt so eingegeben (ohne subs, da der sehr viel länger ist)

Sheets("Tabelle2").Range("C33") = Me.TextBox8.Text

Es kommt das bei raus, was ich wollte. Hat schon gereicht statt ... = Format(TextBox8.Text) einfach Me.TextBox8.Text einzugeben.

Ist doch in Ordnung so oder? Nicht, dass noch irgendwelche Wunder auftreten...

Vielen, vielen Dank:D

Gruß,

leher

[leher]

Achso, eine Sache noch:

Ist es normal, dass es auch funktioniert, wenn die Zielzelle nicht mit 0####### formatiert ist?

[Officer]

Hi,

ja, das ist in Ordung, da der Wert als Text übergeben wird. Es genügt, wenn die Zielzelle als Text formatiert wurde. Allerdings handelt es sich dann nicht mehr um eine Zahl. Aber bei Tel-Nr. ist es völlig gleichgültig aus meiner Sicht.

Gruß

Officer