Clever-Excel-Forum

Normale Version: Wenn "cm" enthalten, dann Zelle überspringen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo,

wie löse ich Folgendes am besten?

Größen
120 cm
"12/10"
13 cm (60x50x30)

Ich möchte, dass es am Ende so steht:

120 cm
12/10 cm
13 cm (60x50x30)

Ich habe einige Zellen, die mit " versehen sind, damit Excel diese nicht in ein Datum umwandelt.

Ich habe es bisher mit Verketten versucht, also allen Zellen, noch ein " cm" angehängt:

120 cm cm
"12/10" cm
13 cm (60x50x30) cm
 und anschließend die " entfernt und "cm cm" durch "cm" ersetzt.


Jedoch habe ich dann das Problem, dass bei "13 cm (60x50x30) cm" dann zweimal "cm steht".

Wie könnte ich dies anders lösen?
Hi,


Code:
=WECHSELN(WECHSELN(A1;"""";" cm";2);"""";"")
oder mit VBA:

Code:
Sub F_en()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
    If InStr(1, Cells(i, 1), Chr(34)) > 0 Then Cells(i, 1) = Replace(Cells(i, 1), Chr(34), "") & " cm"
Next i
End Sub
Danke, hat perfekt funktioniert!