Sub dyn_Arr()

'Das Array selbst
    Dim zahl()  'noch keinen Wert zuweisen, da es dynamisch sein soll, es wird daherr im Lokalfenster noch nicht als Array erkannt
    
'Die Variable
    Dim size As Long 'wie lang Array sein
    
'Laufvariable für  Schleife
    Dim i As Long
    
    Dim g As Byte
    Dim n As Byte

'Weise Variable size den Wert zu, wieviel Einträge in Spalte A des ersten Reiters vorhanden sind
    size = WorksheetFunction.CountA(Worksheets(1).Columns(1))
    
    
'Anpassen der Länge des Arrays
    ReDim zahl(size)
    
 'Vorschleife, um einzelnen Arraypunkten Werte mitzugeben
    For i = 1 To size
    
        zahl(i) = Cells(i, 1).Value       'jede Zeile im Array einen Wert aus Worksheet zuordnen
        
    Next i
  
'Beginn das Array zu bearbeiten
    For i = 1 To UBound(zahl, 1)

    'Der Inhalt je Zeile aus Spalte soll in Spalten getrennt werden
    'Allerings kann das Komma nicht genommen werden, da es teilweise in einem geschlossenen String vorkommt. Daher müssen folgende  Zeichenkombinationen mit einem Semikolon ersetzt werden
    
        'Bereite Trennzeichen vor
            'Neues Array
            ersetze = Array("""", ";,;", ";,", ",;")
            
            'Für jeden Eintrag im Array zahl soll eine Schleife laufen, um die Zeichenkombinationen durch ein ; zu ersetzen
            For g = 0 To UBound(ersetze)
                zahl(i).Replace ersetze(g), ";"
            Next g
            
            
        'Trenne anschließend Text in Spalten
            Text = zahl(i)
            einzelneWorte = Split(Text, ";")
            
            For n = 0 To UBound(einzelneWorte)
                ActiveSheet.Cells(i, n + 10) = einzelneWorte(n)
                
            Next n
    Next i
    
End Sub