ich habe in der Zelle folgendes Beispiel stehen:
356;434234;2342;;;234234
Wie bekomme ich die Zahlenblöcke zwischen den Semikolons in einzelne Spalten ?
Hat jemand eine Idee ?
Gruß
Thomas
Sub Trennen()
Dim Feld As Variant
Dim i As Integer
Dim j As Integer
Feld = Split(Range("A1").Value, ";")
j = 2
For i = 0 To UBound(Feld)
If Feld(i) "" Then
Cells(1, j).Value = Feld(i)
j = j + 1
End If
Next i
End Sub
GrußDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen