Split funktioniert nicht
09.11.2005 09:13:42
Johannes
text ist ein string mit semikolons als Trennzeichen (.csv).
Warum funktioniert der Split nicht zum Aufteilen des Strings in varray?
Danke;
Johannes
Sub split()
Dim text As String
Dim varray As Variant
Dim i As Integer
Dim iges As Integer
With Sheets("table")
text = Sheets("table").Cells(4, 1)
text = Replace(text, "[K]", "")
text = Replace(text, "[m s^-1]", "")
text = Replace(text, "[Pa]", "")
text = Replace(text, " ", "")
varray = split(text, ",")
iges = UBound(varray)
For i = 0 To iges
ActualCell = varray(i)
Next i
End With
End Sub