Excelsortierungshilfe

[schauan]

Hallöchen,

Bist Du sicher dass Du Spalten einfügen willst? Zeilen einfügen geht mit einem Makro so, das würde erst mal die ganze Zeile betreffen:

Code:

Sub ZeileRein()
'Variablendeklarationen
Dim iCnt%
'Schleife vom Datenende anhand Spalte J (10) bis Zeile 4
For iCnt = Cells(Rows.Count, 10).End(xlUp).Row To 4 Step -1
  'Zeile einfuegen
  Cells(iCnt, 1).EntireRow.Insert shift:=xlDown
'Ende Schleife vom Datenende anhand Spalte J (10) bis Zeile 4
Next
End Sub

Wenn es nur um den Bereich bis Spalte G geht dann ersetrze diese Zeile

Cells(iCnt, 1).EntireRow.Insert shift:=xlDown

durch diese

Cells(iCnt, 1).Resize(1, 7).Insert shift:=xlDown

Leider fehlt in Deiner Datei die " komplizierte Formel". Die hätte ich per Makro dann noch kopiert.

Ein weiteres Problem könnte sein, das der Bezugstext nicht immer gleichlautend sein muss. Also nicht wie in der Datei immer 01/2018 Mustermann, 02/2018 Mustermann etc.pp.

Wonach ordnest Du das denn dann zu?