Automatisch Zeilen kopieren und einfügen

Hallo
Ich habe eine Tabelle mit aktuell über 7000 Zeilen und 125 Spalten, ziemlich vollgestopft mit Formeln.
Die Tabelle ist so aufgebaut:
- in den Zeilen 1-14 sind Texte vorhanden
- ab Zeile 15 ist eine Titelzeile mit speziellen Formeln und darauf folgend 10 Zeilen mit Detailinformationen und anderen Formeln und Formatierungen. Dann kommt auf Zeile 26 wieder eine Titelzeile und dann wieder 10 Zeilen mit Detailinformationen und so weiter.
Nun habe ich das Problem, dass die 10 Zeilen mit Detailinformationen nicht mehr reichen und ich fünf zusätzliche Zeilen (über Copy Paste) einfügen sollte. Doch bis ich durch diese 7000 Zeilen durch bin, bin ich alt und grau.
Zudem könnte es sein, dass ich später noch einmal erweitern muss.
Wie könnte man einen Makro bauen, der das automatisch macht?
Mir fehlen leider die Kenntnisse dafür :(
Um Hilfe wäre ich sehr dankbar!
Herzlichen Dank bereits im Voraus!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Frage

01.05.2018 21:42:52

Werner

AW: Frage

02.05.2018 07:01:01

bneyer

AW: Frage

02.05.2018 09:03:25

Robert

AW: Frage

02.05.2018 17:10:29

bneyer

AW: Frage

02.05.2018 19:48:54

Robert

Dim i As Integer Application.ScreenUpdating = False For i = 7000 To 26 Step -11 Rows(i & ":" & i + 4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Next Application.ScreenUpdating = True End Sub

Hallo,
das hatte ich nicht richtig verstanden. Ich dachte es ginge nur um das Einfügen von neuen Zeilen. Ich habe das Makro etwas angepasst. Jetzt werden fünf Zeilen mit Text und Formeln kopiert und als neue Zeilen eingefügt. Ich vermute mal, dass nur die Formeln übernommen werden sollen und nicht die festen Texte und Zahlen. Deshalb werden diese Daten in einem nächsten Schritt gelöscht. Willst du diese Daten doch noch übernehmen, kannst Du einfach die entsprechende Zeile in dem Makro entfernen.

Sub ZeilenEinfuegen()
Dim i As Integer
Application.ScreenUpdating = False
For i = 7000 To 26 Step -11
'5 Zeilen kopieren und komplett mit Formeln und Daten einfügen
Rows(i - 5 & ":" & i - 1).Copy
Rows(i).Insert Shift:=xlDown
'feste Texte und Zahlen in den eingefügten Zeilen entfernen (nur Formeln bleiben)
Rows(i & ":" & i + 4).SpecialCells(xlCellTypeConstants, 23).ClearContents
Next
Application.ScreenUpdating = True
End Sub

Gruß
Robert

Beliebteste Forumthreads (12 Monate)

Automatisch Zeilen kopieren und einfügen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

361 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Automatisch Zeilen kopieren und einfügen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

361 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread