Automatisches Einfügen von Zeilen?

Computer: Software & Programmierung Office Software
1

Hallo,

Ich habe eine Excel- Tabelle und hätte gerne, daß nach jeder 7. Zeile eine Zeile mit einem bestimmten Inhalt eingefügt wird (das ist aber keine Überschrift, die man nur zum Arbeiten braucht, sondern soll „echt“ sein). Ist das irgendwie möglich? Und wenn ja, ist es auch möglich, Zeilen zusätzlich nach weiteren Kriterien einzufügen (z.B. habe ich einige Zeilen, die mit Jahr 1997 beginnen, dann welche mit Jahr 1998- es sollte dann die Zeile nach 1997 eingefügt werden und innerhalb dieses Blocks nach jeder 7. Zeile)? Es wäre auch gut, wenn es ein anderes Programm ausführen könnte, falls ihr ein anderes wißt. Ich bin einfach zu faul zum manuellen Eingeben. :smile:

Danke,
Angela

2

Hi Angela,
du schweigst dich aus welche Zeile eingfügt werden soll, „eine Zeile mit einem bestimmten Inhalt“ ist mystisch :smile:
Nachfolgendes Makro fügt nach jeweils 7 Zeilen und bei jedem Blockwechsel eine Leerzeile ein und schreibt in die erste Zelle der neuen Zeile „Neue zeile“ hinein. An der Stelle musst du das Makro abändern um deine „Zeile mit einem bestimmten Inhalt“*g einzulesen.
Gruß
Reinhard

Sub angela()
 Spalte = 1
 For n = 2 To Cells(65536, Spalte).End(xlUp).Row
 zae = 0
 While Cells(n, Spalte) = Cells(n - 1, Spalte)
 zae = zae + 1
 If zae = 7 Then
 Cells(n, Spalte).EntireRow.Insert
 zae = 0
 Cells(n, Spalte) = "NeueZeile"
 n = n + 1
 End If
 n = n + 1
 Wend
 Cells(n, Spalte).EntireRow.Insert
 Cells(n, Spalte) = "NeueZeile"
 n = n + 1
 Next n
End Sub

Ich habe eine Excel- Tabelle und hätte gerne, daß nach jeder
7. Zeile eine Zeile mit einem bestimmten Inhalt eingefügt wird
(das ist aber keine Überschrift, die man nur zum Arbeiten
braucht, sondern soll „echt“ sein). Ist das irgendwie möglich?
Und wenn ja, ist es auch möglich, Zeilen zusätzlich nach
weiteren Kriterien einzufügen (z.B. habe ich einige Zeilen,
die mit Jahr 1997 beginnen, dann welche mit Jahr 1998- es
sollte dann die Zeile nach 1997 eingefügt werden und innerhalb
dieses Blocks nach jeder 7. Zeile)? Es wäre auch gut, wenn es
ein anderes Programm ausführen könnte, falls ihr ein anderes
wißt. Ich bin einfach zu faul zum manuellen Eingeben. :smile: