Office: Zeilen in Excel automatisch alle paar Zeilen einfügen

Hallo,
ich bin über die Googlesuche hier gelandet und dachte ich hätte auch die Lösung für mein Problem schon gefunden.
Doch der Beitrag war von 2006 und schon beim Eingeben in MS Office Professional 2019 moniert das System eine fehlende Klammer.

-> Meine Aufgabe
Ich sollte aktuell alle 40 Zeilen eine neue Zeile einfügen.. und bei rund 12000 Zeilen dauert das ziemlich lange.

Hier fand ich dafür die Formel:

=index(a:a;(13*Zeile (A1)-9)

habe dann versucht diese Formel auf a:ax da ich ja einen großen Bereich habe, auszuweiten, und die 13 durch meine 40 ersetzt.
Ergebnis: Rechtschreibfehler.. und wenn ich dann die Korrektur annehme hab ich nach der 9 2 Klammern und in Zelle A1 einen Haufen ###.

Chat-gpt meinte =WENN(MOD(ZEILE()-1,40)=0;"Neue Zeile";"") und auf die Rückfrage warum es bei mir nicht funzt wurde ich auf die Excelversion hingewiesen. (s.o) und vermutlich ist das zu alt für diese Formel. Doch auch Alternativen mit REST oder GANZE Zahl funktionieren unter diesem System nicht. Entweder erhalte ich NAME? oder eben #### .

Ja, ich bin (noch) kein Excel-Held, doch ich würde gerne besser durchsteigen. Leider brauche ich aktuell die Zeit um die Zeilen händisch einzufügen ;-) .

Vielleicht kann mir hier jemand sagen wo mein Denkansatz falsch ist und wo ich, wenn es eine Lösung gibt, diese Formel einsetze.. nehme ich A1 und markiere das ganze Blatt oder wie funktioniert das?

Ich hoffe auf Euer Schwarmwissen.
Danke.
Corry

 

Hallo Corry,

gerne hinterfrage ich Dinge, die mir suspekt erscheinen. In deinem Fall sind es die einzufügenden Zeilen. Normalerweise sollte es egal sein, in welcher Zeile sich Daten befinden. Welchen Zweck sollen die eingefügten Zeilen haben, bzw. was soll da rein?

 

Hallo Klaus,

ich muss hier in Tabellen jedes Jahr ein Jahr erweitern. Diese Tabellen sind je nach Anwendung leider sehr lang. Und somit ist das händische Einfügen sehr langwierig. Und da Excel "alles" kann.. sollte es doch auch die Möglichkeit geben in einer vermutlich älteren Version, Formeln entsprechend einzugeben.

;-)

 

P.S.
Die Daten für die neueinzufügenden Zeilen kann ich erst aus einer anderen Exceldatei einfügen, wenn ich in meiner Prüftabelle je eine Zeile pro Block eingefügt habe.

 

Hallo Corry,

das erklärt für mich nicht, warum die Zeilen genau da eingefügt werden sollen Normalerweise fügt man unten an und sortiert bei bedarf ein. Der Abstand von vierzig Zeilen deutet für mich darauf hin, dass hier mit irgendwelchen "Blöcken" gearbeitet wird. Dafür ist Excel nicht ausgelegt. Einfügen von Zeilen per Formel wird, wie ich meine, auch nicht gehen, das müsste man per VBA erledigen.

 

Unten an jeden Block. Genau so ist es gedacht. Ich bekam auch mal einen Hinweis mit Spalte einfügen, Durchnummerieren und dann einkopieren irgendwie.. aber wie gesagt.. ich bin leider kein Excelheld.

 

Hallo Corry,

lade mal bitte eine Datei hoch, mit ein paar dieser "Blöcke", und einem Beispiel, was in die eingefügten Zeilen soll. Mögliche sensible Daten kannst du ja anonymisieren.

 

Ich habe hier mal eine Datei angefügt wie es aussieht bevor eine neue Zeile eingefügt wird.
Die Daten zum befüllen später kommen aus eine separaten Liste.
Also soll hier nach 2021 eine Leerzeile für 2022 rein, doch der Abstand zwischen den Blöcken soll gleich bleiben.

 

Hallo Corry,

das erklärt für mich nicht wirklich etwas, was soll in den einzufügenden Zeilen stehen, dass es erforderlich macht, dass es genau in dieser Zeile eingetragen werden muss? Eine Excelliste besteht aus einer mehr oder weniger festgelegten Anzahl von Spalten und einer beliebigen Anzahl von Zeilen. Jede Zeile bildet einen für sich unabhängigen Datensatz, wobei es völlig egel ist, in welcher Zeile der steht.
Ebenso wenig verstehe ich, was mit den leeren Zeilen zwischen den "Blöcken" ist:

Tabelle1

	A	B	C	D
39	1			2021
40	1
41	2
42	2
43	2			0
44	2	11
45	2
46	2			----
47	2
48	2
49	2			1991

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

 

Was letztendlich drinsteht ist nicht relevant. Die Zeile muss einfach immer unter den letzten Block.
Mehr will und brauche ich nicht. Der Rest geht dann von "alleine".
Ich möchte nur nach jedem Block auf über 8000 Zeilen am Ende.. immer nur eine Zeile einfügen. Also wo jetzt oben in Zeile 41
die 2 steht.. das hier eine einfache leere Zeile ist.. und das alle 40 Zeilen immer und immer wieder.

Und mir ist inzwischen klar, das es vermutlich keine direkte Formel gibt.

Doch vielleicht hat sonst jemand eine Lösung?

 

Hallo Corry,

mit Formeln kann man das bestimmt nicht machen, dazu braucht man ein Makro. Das muss aber von unten nach oben durch die Liste laufen, sonst funktioniert das nicht. Also muss man das Ende der Liste kennen, das lässt sich aber per Makro auslesen. Eingefügt wird also nach Zeile 40, 80, 120 usw.?

 

Hallo Corry,

versuche es mal damit:

Code:

Option Explicit

Sub Zeilen_einfügen()
    Dim lngZeile As Long
    For lngZeile = 30 To CLng(Range("A" & Rows.Count).End(xlUp).Row / 40) * 40 + 40
        If Cells(lngZeile, 1) <> Cells(lngZeile - 1, 1) Then
            Rows(lngZeile).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            lngZeile = lngZeile + 1
        End If
    Next lngZeile
End Sub