Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Excel Formatierung Zahl umwandeln (Sonderzeichen entfernen)





Frage

Hallo, habe in Feldern folgendes ahlenformat stehen: 000.000-000 Dieses soll umgewandelt werden in: 000000000 Sprich: Die Zeichen Punkt und Bindestrich sollen wech. Geht dieses mit einem Makro? Und wenn wie? Wäre euch für eine Hilfe sehr dankbar.

Antwort 1 von hedonis

*autsch* Zahlenformat sollte das natürlich werden....

Antwort 2 von ypsilon

hi,
den rest schaffst du alleine ?

.NumberFormat = "000000000"

cu Micha

Antwort 3 von hedonis

Hi Micha,

danke für die prompte Antwort!

Wenn ich der Zielzelle das benutzerdefinierte Format "000000000" vorgebe und dann die Inhalte (Werte ohne Format) reinkopiere, übernimmt Excel die das Ursprungsformat und schert sich einen *Z* um das benutzerdef. Format.

Und dat mit dem Makro schreiben habe ich nicht wirklich raus...

Antwort 4 von JoeKe

Hi hedonis,

mit welchem Excel arbeitest du?
Mit XP funzt das. Zielzelle=>ben.def. Format "000000000"=> einfügen Werte.

Makro wäre zu aufwendig.

MfG JöKe

Antwort 5 von hedonis

Dat is Excel 2002 (ergo XP).

Egal ob ich das benutzerdef Format mit 000000000 oder "000000000" eingebe, erscheint nach dem Kopieren immer wieder der Wert mit 000.000-000 *grummel*

Wat macht ich da falsch?

Antwort 6 von JoeKe

Hi,

versteh ich jetzt nicht?!
kanst du das Format der Zelle auch nicht ändern.
Also wenn da 000.000-000 steht Zelle formatieren in 000000000?

JöKe

Antwort 7 von ypsilon

hi,
in das klassenmodul der betroffenen tabelle:

Sub Makro5()
Dim zelle As Range
For Each zelle In Range("E1:E1000") ´<--hier anpassen
zelle.NumberFormat = "000000000"
Next
End Sub

cu Micha

Antwort 8 von ypsilon

oder wenns echter text ist:

Sub Makro5()
Dim zelle As Range
For Each zelle In Range("E1:E1000") ´<--hier anpassen
zelle.Value = WorksheetFunction.Substitute(zelle.Value, ".", "")
zelle.Value = WorksheetFunction.Substitute(zelle.Value, "-", "")
zelle.NumberFormat = "000000000"
Next
End Sub

cu Micha

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: