Thema: wiederkehrende Zeile einfügen | Herbers Excel-Forum

Hallo liebe Herber-Gemeinde,
ich stehe vor folgendem Problem und hoffe Ihr könnt mir da weitehelfen:
ich habe eine Tabelle mit hunderten zeilen, ich möchte gerne die 1. Zeile wiederkehrend vor jede folgende einfügen. Dazu müsste ich in Excel irgendwie immer eine leere Zeile zwischenschieben, wo der Inhalt der ersten eingetragen wird. Ist das irgendwie machbar, ohne händisch Zeile für Zeile einzufügen?

Hallo Phil,
wenn Du die Tabelle drucken möchtst, dann mach es über Seite einrichten (Wiederhlungszeile).
Ansonsten kannst Du auch in Excel Fenster fixiren verwenden, damit Du die erste Zeile immer siehst.
Gruss

Hallo ede, nein drucken möchte ich nicht. Geht auch nicht um Sichtbarkeit, ich brauche die wiederkehrenden Daten in jeder 2. Zeile der Tabelle. Irgendeine Idee?

hallo noch mal,
leider keine ideeohne vba, per vba machbar!
gruss

hier mal ein einfaches beispiel:

Sub umsetzen()
Set wks0 = ActiveSheet
Set wks1 = Worksheets.Add
nz = 1
For z = 2 To wks0.Cells(65536, 1).End(xlUp).Row  'letzte Zeile
For s = 1 To wks0.Cells(1, 256).End(xlToLeft).Column 'letzte Spalte
wks1.Cells(nz, s) = wks0.Cells(1, s)
wks1.Cells(nz + 1, s) = wks0.Cells(z, s)
Next s
nz = nz + 2
Next z
End Sub

Hallo,
ich weiß nur nicht wie Du verhindern willst
das bei einem zweiten Durchlauf die Zellen nicht nochmal eingefügt werden.

Sub Makro1()
Dim Bereich As Range
Dim A As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
Set Bereich = ActiveSheet.UsedRange
For A = Bereich.Rows.Count To 3 Step -1
Bereich.Rows(1).Copy
Bereich.Rows(A).Insert Shift:=xlDown
Next A
.CutCopyMode = False
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Gruß Tino