30.03.2020, 08:56
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:
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.
Wonach ordnest Du das denn dann zu?
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 SubWenn 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.
Zitat: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?