ich würde beim nachfiolgenden Script die Ausgabe nicht in Spalten, sondern in Zeilen ausgebnen. Und das ganze auf einem neuen Arbeitsblatt
("Adressetikett") ab A3 beginnend.
Kann jemand kurzfristig helfen?
Private Sub los()
Dim Zeile As Long
Dim Spalte As Long
Dim letzteZeile As Long
Dim s() As String
letzteZeile = UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Zeile = 1 To letzteZeile
s = Split(Cells(1, 1), ",", , vbTextCompare)
For Spalte = 2 To UBound(s) + 2
Cells(Zeile, Spalte).Value = s(Spalte - 2)
Next Spalte
Next Zeile
End Sub