Dim vArr(), lRow As Long, lCol As Long 'Trennzeichen der definierten Spalten ändern
vArr = Range("P3:Q8644")
For lRow = 1 To UBound(vArr, 1)
For lCol = 1 To UBound(vArr, 2)
vArr(lRow, lCol) = Replace(vArr(lRow, lCol), ",", ".")
If lCol = UBound(vArr, 2) Then
vArr(lRow, lCol) = vArr(lRow, lCol) / 1000
End If
Next lCol
Next lRow
ActiveSheet.Range("P3:Q8644") = vArr
Mit der von mir fett markierten Zeile scheint er nicht zufrieden zu sein, er bringt immer:
Laufzeitfehler 13, Typen unverträglich
Diese Zeile muss mit rein, denn erkennt den Punkt in dieser Spalte als tausender-Trennzeichen, was er nicht ist.
Was ist bloß falsch daran?
christian