Gruß Werner.
Sub Text_in_Wert()
Dim wks As Worksheet
Dim i As Long
Dim lngStart As Long
Dim lngEnde As Long
Dim intSpalte As Integer
' Zeiger auf gewünschtes Workbook setzen
Set wks = ThisWorkbook.Sheets(1)
' Spaltennummer für zu bearbeitende Werte setzen
intSpalte = 1
' Erste Zeile, die bearbeitet werden soll
lngStart = 1
' Letzte Zeile, die bearbeitet werden soll
lngEnde = wks.UsedRange.Rows.Count
' Spalte durchlaufen
For i = lngStart To lngEnde
' Nur wenn Zelle nicht leer
If Not IsEmpty(wks.Cells(i, intSpalte)) Then
' Wenn Zahl als Zeichenfolge vorhanden, dann in Double Wert umwandeln
If IsNumeric(wks.Cells(i, intSpalte)) Then _
wks.Cells(i, intSpalte).Value = CDbl(wks.Cells(i, intSpalte).Value)
End If ' If Not IsEmpty(wks.Cells(i, intSpalte))
Next i ' For i = lngStart To lngEnde
End
Sub ' Text_in_Wert
CIAO
Michael