Clever-Excel-Forum

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?

Moin!
Mach mal so:

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

Gruß Ralf

Hallo Ralph,

danke vielmals, das ist ja viel einfacher und funktioniert !

herbert0803

RPP63

herbert0803