.Value = .Value aber als Text

[cysu11]

Hallo zusammen,

ich stehe wahrscheinlich schwer auf dem Schlauch, mit diesem Code sorge ich dafür, dass meine Formeln verschwinden und nur noch die Werte angezeigt werden.
   
Dim RNG As Range
Set RNG = ActiveSheet.UsedRange
RNG.Value = RNG.Value

Allerdings wandelt mir der Code die Werte als Zahlen um, obwohl die Zellen als Text formatiert waren vor dem Code. Wie muss ich den Code anpassen, damit nur die Werte da bleiben, allerdings als Text nicht als Zahl?

Vielen Dank im Voraus
LG, Alexandra

[Ralf A]

Hi Alex,

PHP-Code:

RNG.NumberFormat = "@" 


[Kuwer]

Hallo Alexandra,

Code:

Dim RNG As Range
Set RNG = ActiveSheet.UsedRange
RNG.NumberFormat = "@"
RNG.Value = RNG.Value

Gruß, Uwe

[cysu11]

Hallo Uwe & Ralf,

perfekt, vielen Dank, es funktioniert! :)

LG, Alexandra