Mit dem ua. Code per - Do Loop Until - kopiere ich
8 Zeilen die bis zur Spalte GM (= 195 Spalten) mit Formeln/Formatierung bepackt sind
diese
muss ich dann immer wieder unterhalb "einfügen". Bei den ersten 10 mal kein Problem - jedoch dann wird es immer langsamer.
Bei 20 mal bin ich schon bei 4 Minuten und bei den ca. geforderten 70 mal bin ich bei über 30 Minuten.
Insert Shift:=xlDown und Resize(8).Insert ---- machen das Richtige aber beides gleich langsam
.Rows(lngStart & ":" & lngStart + 7).Copy
wosollzeilejetzt = Application.Match("soll", Columns(1), 0)
'''''''' .Rows(wosollzeilejetzt).Insert Shift:=xlDown ''''''''''''''ca. 4 Minuten für 20 Blöcke
.Rows(wosollzeilejetzt).Resize(8).Insert ''''''''''''''ca. 4 Minuten für 20 Blöcke
Besten Dank.
mfg STeve