Hallo,
entweder so, wenn es immer nur zwei Felder sind:
Sub splitten()
Dim arrSplit As Variant
'Inhalt von Zelle B3 aufsplitten, Tennzeichen: \t
arrSplit = Split(Range("B3").Value, "\t")
'Ausgabe, Array fängt bei Null an
Range("D3") = arrSplit(0)
Range("E3") = arrSplit(1)
End Sub
oder variabel, unbekannte Anzahl von Feldern (Trennzeichen kommt mehrmals vor)
Sub splitten2()
Dim arrSplit As Variant
Dim i As Integer
'Inhalt von Zelle B3 aufsplitten, Tennzeichen: \t
arrSplit = Split(Range("B3").Value, "\t")
'Ausgabe in Zeile 3, Array enthält unbekannte Anzahl von Elemente, Ausgabe ab Spalte D
For i = LBound(arrSplit) To UBound(arrSplit)
Cells(3, 4 + i) = arrSplit(i)
Next i
End Sub
Gruß
M.O.