Zeilen einfügen, geht das schneller?
02.04.2020 08:28:06
Ralf
ich habe die Frage, ob dieser Code auch schneller gehen würde. Vielleicht mache ich hier auch etwas nicht ganz sinnvoll.
Ich habe eine Tabelle, die als Vorlage dient.
Zeile 15 ist die Zeile, die die Formatierungen enthält und eine bestimmte Anzahl (Anzahlzeilen, wird vorher ermittelt) unter die Zeile 15 kopiert werden soll. Das können auch mal 40 Zeilen sein.
Dieser Code fügt erst eine Zeile ein und kopiert dann die Formatierungen von Zeile 15 hinein.
Geht das auch besser und schneller? Wenn ich das .insert weglasse ist das Ergebnis nicht richtig
For i = 1 To Anzahlzeilen
Worksheets("Vorlage").Rows("16:16").Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Vorlage").Rows("15:15").Copy
Worksheets("Vorlage").Rows("16:16").PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Vorlage").Rows("16:16").RowHeight = 18
Next i