Zellen mit Zahlenformat in Zelle mit Textformat

[freiminute]

Hallo Zusammen,
ich bitte um Eure Hilfe.
Ich habe eine Spalte mit Zahlenformat "000".
Dies muss ich jetzt als Text formatieren.
Leider gehen dabei die führenden Nullen verloren ;-((
aus "001" wird "1"
Wie kann ich das verhindern?

Schon jetzt vielen Dank und ein schönes Wochenende.

[Luffy]

Hallo,

ob man das verhindern kann weis ich nicht genau aber du könntest in einer anderen Spalte diesen Code einsetzen:

Code:

="00"&Zelle

Zelle = Erste Zelle wo sich dein Text befindet.

Dann kannst du die Hilfsspalte ausschneiden und durch deine Originalspalte ersetzen.

Hat dir das vielleicht geholfen?

[DietmarD]

Hallo,
Du hast die Antwort doch selber gegeben, wenn du deine Zelle als Text formatierst bleiben doch die führenden Nullen sichtbar.
Oder verstehe ich dich falsch?

Gruß
Dietmar

[Luffy]

Hallo,
Du hast die Antwort doch selber gegeben, wenn du deine Zelle als Text formatierst bleiben doch die führenden Nullen sichtbar.
Oder verstehe ich dich falsch?

Gruß
Dietmar

Also bei mir bleiben die führenden Nullen auch nicht stehen, und das ist auch das Problem.

001 Wird 1

Leider gehen dabei die führenden Nullen verloren ;-((

[Kuwer]

Hallo Rainer,

markiere die Zellen und starte dieses Makro:

Sub Format000ZuText()
 Dim rngZ As Range
 Dim strT As String
 For Each rngZ In Selection.Cells
   strT = rngZ.Text
   rngZ.NumberFormat = "@"
   rngZ.Value = strT
 Next rngZ
End Sub

Gruß Uwe

[freiminute]

Vielen Dank
Makro funktuioniert einfandfrei