nachfolgender Code trennt immer folgenden Text in einer Zelle: 60 / 75 / 125
Kopiert die Zeile und trägt in die erste Position 60 ein und darunter die 75 und darunter die 125 ein.
Aber die restlichen Werte in den Zellen in der die 125 steht bleiben leer.
Die Datenzeile, in der die 60 steht wird in die Datenzeile 75 kopiert, aber nicht mehr in die Datenzeile 125.
Warum ist das so, an welcher Stelle fehlt noch eine Information?
Herzlichen Dank für die Hilfe.
VG Eisi :-)
Sub ZeileKopierenEinfuegen()
Dim lastRowAP As Long
Dim i As Long
Dim mySplit As Variant
With tbl_DatenstammQuelle
lastRowAP = .Cells(.Rows.Count, 42).End(xlUp).Row 'Spalte 42 = Spalte AP
For i = lastRowAP To 2 Step -1
mySplit = Split(.Range("AP" & i).Value, " / ")
If UBound(mySplit) > 1 Then
.Rows(i).Copy
.Rows(i + 1).Insert Shift:=xlDown
.Rows(i + 2).Insert Shift:=xlDown
.Range("AP" & i).Value = mySplit(0)
.Range("AP" & i + 1).Value = mySplit(1)
.Range("AP" & i + 2).Value = mySplit(2)
Application.CutCopyMode = False
End If
Next
End With
End Sub