Komma getrennte Werte aus Zelle in Array einlesen

Guten Tag,
Weiss jemand wie man Komma getrennte Werte aus der selben Zelle in einen Array einlesen kann.
Ich könnte das über die "Text to Column" Funktion erreichen, aber es kommt z.T. vor, dass es mehr Spalten brauchen würde als in Excel XP vorhanden.
Zelle A2 hätte z.B. die Werte "20, 40,200,500,222" (z.T. mit Leerschlag nach Komma z.T. ohne)
Per VBA würden diese Werte in einen Array eingelesen: array(0)=20, array(1)=40, array(2)=200 etc...
Die Anzahl der Zahlen die in den Array eingelesen werden varieren aber.
Perfekt wäre es wenn es auch funktionieren würde, falls anstelle eines Kommas ein Semikolon stehen würde (also z.B. "20, 40;200,400;223")
Da die ganze Spalte A solche komma-getrennten Werte hat in den Zellen hat, müsste ich auch irgendwie identifizieren können zu welcher Zeile der Array gehört.
Ich denke mal nicht dass man einen mehrdimensionalen Array kreieren kann, wenn die Zellen eine unterschiedliche Anzahl komma-getrennter Werte in Spalte A haben.... oder doch?
Vielen Dank im Voraus für die Hilfe.
Beste Grüsse
Steve

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub tt() Dim ArrA() Dim Zei As Long, Z As Long, S(), Dummy, N, NN, Anz Z = Cells(Rows.Count, 1).End(xlUp).Row For Zei = 1 To Z ReDim Preserve S(Zei) Dummy = Replace(Replace(Cells(Zei, 1), ";", ","), " ", "") S(Zei) = Split(Dummy, ",") Anz = IIf(UBound(S(Zei)) > Anz, UBound(S(Zei)), Anz) Next Zei ReDim ArrA(Zei, Anz) For N = 1 To Zei For NN = 1 To UBound(S(N)) ArrA(N, NN) = S(N)(NN - 1) MsgBox ArrA(N, NN) Next NN Next N End Sub

Hallo
Probiers mal so

Option Explicit

Sub Demo_Array()
    'Version XP
    Dim i As Long, tmpF As Long
    Dim strText As String, tmpArr() As Variant
    tmpF = 1
    strText = "1,288,388888888,48,5,6,7888,8,9"
    'strText = Range("a1").Text
    ReDim Preserve tmpArr(1)
    For i = 1 To Len(strText)
        If Mid(strText, i, 1) = "," Then
            tmpArr(UBound(tmpArr)) = Mid(strText, tmpF, i - tmpF)
            tmpF = i + 1
            ReDim Preserve tmpArr(UBound(tmpArr) + 1)
        End If
    Next i
    tmpArr(UBound(tmpArr)) = Mid(strText, tmpF, Len(strText) - (tmpF - 1))
    ReDim Preserve tmpArr(UBound(tmpArr))
    'Inhaltskontrolle
    For i = 0 To UBound(tmpArr)
        Debug.Print tmpArr(i)
    Next i
End Sub

Sub Demo_Array2()
    'Version 2003 und später
    Dim i As Long
    Dim strText As String, tmpArr As Variant
    strText = "1,288,388888888,48,5,6,7888,8,9"
    'strText = Range("A1")
    tmpArr = Split(strText, ",")
    For i = 0 To UBound(tmpArr)
        Debug.Print tmpArr(i)
    Next i
End Sub

Gruss Rainer

Sub ZuvielTextInSpalten() Dim vArr Dim lngRow As Long With ActiveSheet For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row vArr = Split(Replace(Replace(.Cells(lngRow, 1), " ", ""), _ ",", ";"), ";") If UBound(vArr) > -1 Then _ .Range(.Cells(lngRow, 1), _ .Cells(lngRow, _ Application.Min(UBound(vArr) + 1, .Columns.Count))) = vArr Next lngRow End With End Sub

Beliebteste Forumthreads (12 Monate)

Komma getrennte Werte aus Zelle in Array einlesen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Komma getrennte Werte aus Zelle in Array einlesen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

180 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread