zahlen als Text in Zahlen wandeln

[herbert0803]

Hallo,

ich habe in der Spalte W in den Zeilen 2 bis letzte benutze Zahlen im Textformat gespeichert.
Ich möchte die in Zahlen umwandeln.
Es sind nicht immer die gleichen Zellen und nicht alle Zellen in diesem Bereich.


Wenn alle zellen in dem Bereich mit Zahlen im Textformat vorhanden sind, funktioniert folgendes Makro (für Spalte S).
aber wenn leere zellen vorhanden sind geht es nicht.

Code:

Dim LetzteZeile1 As Long
Dim x1 As Long
LetzteZeile1 = ActiveSheet.Cells(Rows.Count, 19).End(xlUp).Row
For x1 = 2 To LetzteZeile1
Cells(x1, 19) = CDbl(Cells(x1, 19))
Cells(x1, 19).NumberFormat = "#,##0.00"
Next

Wie muss ich den Code anpassen, dass nur Zellen geändert werden die auch Zahlen als Text enthalten?

[RPP63]

Moin!
Mach mal so:

Sub quicky()
With ActiveSheet.Columns(19)
  .TextToColumns .Cells(1)
  .NumberFormat = "#,##0.00"
End With
End Sub


Gruß Ralf

[herbert0803]

Hallo Ralph,

danke vielmals, das ist ja viel einfacher und funktioniert !