Daten von Text in Zahl umwandeln
16.03.2005 20:08:24
Text
mit untenstehendem makro werden meine daten die in einer Zelle und mit Semikolon getrennt stehen über das menü Text in Spalten umgesetzt. Jetzt hängt an jedem Kästchen ein Hinweis, das dieser Wert als Text formatiert ist - würde gern die Gechichte aber als Zahl haben wollen.
Frank P.
Sub Text_in_Spalten()
Dim arrText, i As Integer, iCnt As Long
Application.ScreenUpdating = False
For iCnt = 1 To Range("A65536").End(xlUp).Row
arrText = Split(Cells(iCnt, 1), ";")
For i = 0 To UBound(arrText)
Cells(iCnt, i + 1) = arrText(i)
Next i
Next iCnt
End Sub
Anzeige