Microsoft Excel

Herbers Excel/VBA-Archiv

wiederkehrende Zeile einfügen | Herbers Excel-Forum


Betrifft: wiederkehrende Zeile einfügen von: philG
Geschrieben am: 22.12.2009 07:48:03

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?

  

Betrifft: AW: wiederkehrende Zeile einfügen von: ede
Geschrieben am: 22.12.2009 07:55:03

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


  

Betrifft: AW: wiederkehrende Zeile einfügen von: philG
Geschrieben am: 22.12.2009 07:58:55

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?


  

Betrifft: AW: wiederkehrende Zeile einfügen von: ede
Geschrieben am: 22.12.2009 08:28:55

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


  

Betrifft: AW: wiederkehrende Zeile einfügen von: ede
Geschrieben am: 22.12.2009 08:54:00

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



  

Betrifft: hier mal eine Möglichkeit dazu. von: Tino
Geschrieben am: 22.12.2009 09:41:02

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


Beiträge aus den Excel-Beispielen zum Thema "wiederkehrende Zeile einfügen"