Sub subsplit()
Dim text As String
Dim varray() As String
Dim i As Integer
Dim iges As Integer
Dim a As Integer
Dim b 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)
Cells(a, b) = ActiveCell
For i = 1 To iges
Cells(a, b + i) = varray(i)
Next i
End With
Die Zuweisung von ActiveCell in Cells funktioniert nicht.
Wie kann ich das machen?
Danke,
Johannes