Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: wiederkehrende Zeile einfügen

wiederkehrende Zeile einfügen
philG
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?
Anzeige

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

Betreff
Benutzer
Anzeige
AW: wiederkehrende Zeile einfügen
22.12.2009 07:55:03
ede
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
AW: wiederkehrende Zeile einfügen
22.12.2009 07:58:55
philG
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?
Anzeige
AW: wiederkehrende Zeile einfügen
22.12.2009 08:28:55
ede
hallo noch mal,
leider keine ideeohne vba, per vba machbar!
gruss
AW: wiederkehrende Zeile einfügen
22.12.2009 08:54:00
ede
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

Anzeige
hier mal eine Möglichkeit dazu.
22.12.2009 09:41:02
Tino
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
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Wiederkehrende Zeilen in Excel einfügen


Schritt-für-Schritt-Anleitung

Um wiederkehrende Zeilen in Excel einzufügen, kannst Du folgendes VBA-Makro verwenden. Dieses Makro fügt die erste Zeile unter jeder bestehenden Zeile ein. Hier ist die Schritt-für-Schritt-Anleitung:

  1. Öffne Deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul.

  4. Kopiere den folgenden Code in das Modulfenster:

    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
  5. Schließe den VBA-Editor.

  6. Gehe zurück zu Excel und führe das Makro aus (drücke ALT + F8, wähle umsetzen und klicke auf Ausführen).


Häufige Fehler und Lösungen

  • Warum kann ich in Excel keine Zeile einfügen? Manchmal kann das Einfügen von Zeilen an einem geschützten Arbeitsblatt oder an einem nicht bearbeitbaren Bereich liegen. Überprüfe die Blattschutz-Einstellungen.

  • Makro läuft nicht? Stellen sicher, dass Makros in Deinen Excel-Einstellungen aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen.


Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du die folgende Methode verwenden:

  1. Wähle die Zeile unter der ersten Zeile aus.
  2. Klicke mit der rechten Maustaste und wähle Zeile einfügen.
  3. Kopiere den Inhalt der ersten Zeile und füge ihn in die neue Zeile ein.
  4. Wiederhole diesen Schritt manuell, bis alle Zeilen hinzugefügt sind.

Diese Methode ist allerdings zeitaufwendig, wenn Du viele Zeilen einfügen möchtest.


Praktische Beispiele

Hier ist ein Beispiel, wie Du 100 Zeilen in Excel einfügen kannst:

  1. Erstelle eine Tabelle mit verschiedenen Daten in der ersten Zeile.
  2. Führe das oben genannte VBA-Makro aus, um 100 Zeilen einzufügen. Das Makro wird die erste Zeile unter jede bestehende Zeile einfügen.

Das Ergebnis wird eine Tabelle mit wiederkehrenden Zeilen sein, die Du für Berichte oder Druckzwecke verwenden kannst.


Tipps für Profis

  • Wenn Du häufig Zeilen zwischen bestehenden Zeilen einfügen musst, speichere das Makro in Deiner persönlichen Makroarbeitsmappe, um es schnell aufrufen zu können.
  • Nutze die Strg + Z Funktion, um Änderungen rückgängig zu machen, falls Du einen Fehler machst.
  • Experimentiere mit der Zeilenhöhe und -formatierung, um eine klare und ansprechende Darstellung der wiederkehrenden Zeilen zu erzielen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich mehrere Zeilen gleichzeitig in Excel einfügen?
Du kannst mehrere Zeilen einfügen, indem Du mehrere Zeilen auswählst, mit der rechten Maustaste klickst und Zeilen einfügen wählst.

2. Frage
Gibt es eine Möglichkeit, Zeilen automatisch nach dem Einfügen zu formatieren?
Ja, Du kannst das Makro so anpassen, dass es nach dem Einfügen der Zeilen auch die gewünschten Formatierungen anwendet.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige