Darum immer gerne mit Beispiel-Mappe...
22.08.2017 17:43:09
Michael
Ben,
...die aufzeigt, wie die Ausgangssituation und die gewünschte Zielsituation ist; dann kommt's zu keinem babylonischen Sprachgewirr ;-).
In diesem Fall so:
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim c As Range, b, i&
Application.ScreenUpdating = False
With Ws
For Each c In .Range("E1:E" & .Cells(.Rows.Count, "E").End(xlUp).Row)
b = Split(Mid(c.Text, 2), """")
c = b(0)
For i = 1 To UBound(b)
.Cells(c.Row + i, c.Column).EntireRow.Insert
.Cells(c.Row + i, c.Column - 4) = .Cells(c.Row, c.Column - 4)
.Cells(c.Row + i, c.Column - 3) = .Cells(c.Row, c.Column - 3)
.Cells(c.Row + i, c.Column - 2) = .Cells(c.Row, c.Column - 2)
.Cells(c.Row + i, c.Column - 1) = .Cells(c.Row, c.Column - 1)
.Cells(c.Row + i, c.Column) = b(i)
Next i
Erase b
Next c
End With
Set Wb = Nothing: Set Ws = Nothing
End Sub
Blattname muss ggf. von Dir angepasst werden.
LG
Michael