Guten Tag,
Ist es möglich dass der Vorgang von der ist-Tabelle zur Soll-Tabell, wie im Anhang zu sehen, automatisiert werden kann.
Es handelt sich bei mir um 10000 Einträge, welche mit der Hand nicht so einfach zu machen sind.
Sub Aufteilen()
Dim LR As Integer, i As Integer, Anz As Integer
LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To 1 Step -1
With Cells(i, 3)
Anz = Len(.Value) - Len(Replace(.Value, ",", ""))
If Anz > 0 Then
Rows(i + 1).Resize(Anz).Insert
.Offset(1, -2).Resize(Anz, 1) = .Offset(0, -2)
.Resize(Anz + 1).Value = WorksheetFunction.Transpose(Split(.Value, ","))
End If
End With
Next
End Sub
in ein Standardmodul
LG UweD
Folgende(r) 1 Nutzer sagt Danke an UweD für diesen Beitrag:1 Nutzer sagt Danke an UweD für diesen Beitrag 28 • Batcha