Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum Einfügen einer Zeile in Tabelle

Forumthread: Makro zum Einfügen einer Zeile in Tabelle

Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 07:18:33
Jenny
Hallo zusammen,
ich habe folgendes Problem und hoffe auf Hilfe:
Ich habe eine Excel-Tabelle, die stetig um Zeilen erweitert wird. Leider arbeiten verschiedene Personen daran, so dass häufig die Formatierung durcheinander gerät etc. Außerdem enthält die Tabelle Formeln, die in jeder Zeile gleich bleiben sollen.
Ich hätte nun gerne über ein Makro erreicht, dass eine neue Zeile oberhalb der Ergebniszeile (also am Ende der Tabelle) eingefügt wird und dabei alle Formatierungen sowie evtl. Formeln in der Tabelle von den vorherigen Zeilen übernommen werden, nicht jedoch der Inhalt der Zellen.
Ich wäre sehr dankbar, wenn mir da jemand helfen könnte.
Viele Grüße,
Jenny
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 09:15:50
Nadine
Hallo Jenny,
ich mach das immer so: Makro-Button "Zeile Einfügen" in deiner Tabelle anlegen (oberhalb der einzufügenden Zeilen)und Makro zuweisen. So, angenommen, deine eigentliche Tabelle beginnt ab Zeile4, d.h. in Zeile3 stehen noch die Titel/Überschriften und es soll in Zeile4 immer ein neue leere Eintragszeile eingefügt werden, inkl. dem Format und den Formeln aus der Zeile darunter, ohne die Werte.
Sub Makro1_Zeile_Einfügen()
'Makro fügt immer 1 neue Zeile in Zeile 4 ein, unter Erhalt des Formats und der Formeln aus der  _
Zeile 5
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove   'fügt 1 neue Zeile  _
oberhalb ein
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False    'kopiert Format von Zeile 5 auf neu eingefügte  _
Zeile4
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False    'kopiert Formeln von Zeile 5 auf neu eingefügte  _
Zeile4 (leider auch die Werte)
Range("A4:D4,F4,H4:J4,M4").Select     'alle Zellen mit Werten auswählen(im Bsp.: Spalte A-D, _
F, H-J, M = hier werden Einträge gemacht. In Spalte E, G, K-L, N-Ende sind Formeln, die erhalten bleiben sollen
Selection.ClearContents     'Inhalt löschen
Range("A4").Select
End Sub

Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 09:42:10
Jenny
Hallo Nadine,
erstmal vielen Dank für deine Hilfe.
Leider müssten die neuen Zeilen jedoch immer am Ende der Tabelle eingefügt werden, so dass ich nicht konkret auf eine einzelne Zeile verweisen kann, die dann kopiert wird, da ja immer neue Zeilen hinzukommen.
Ich bräuchte also einen Befehl wie "oberhalb der Ergebniszeile Zeile einfügen" und anschließend "zwei Zeilen oberhalb der Ergebniszeile kopieren". Geht das irgendwie?
Danke,
Jenny
Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 10:23:27
Peter
Hallo Jenny,
Vieleicht hilft es Dir weiter.
In diesen Fall wird in der Tabelle1 und in der Spalte "A" über den letzten Eintrag eine neue Zeile eingefügt und die Formel aus der darüberliegende Celle kopiert.
Du müsstest noch die Tabelle und die Spalte anpassen. 
Sub Zeile()
Dim intZeile As Integer, intSpalte As Integer
intZeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
intSpalte = 1
Cells(intZeile, intSpalte).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(intZeile - 1, intSpalte).Copy
Cells(intZeile, intSpalte).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Viele Grüße
Peter (hpo)
Anzeige
AW: Makro zum Einfügen einer Zeile in Tabelle
07.11.2017 15:22:17
Jenny
Super, vielen Dank, euch beiden.
;

Forumthreads zu verwandten Themen

Namen von Tabellenblätter in Fußzeile übertragen
Tabellenblätter

Hallo zusammen,
ich habe eine ziemlich große Exceldatei mit derzeit ca. 80 Tabellenblättern (Sheets). die Namen beginnen entweder mit "Titel 01" oder "Titel 02". Nun möchte ich gerne haben, dass die Fußzeile einen bestimmten Text druckt, z.B. "GEBÄUDE 100", wenn das Tabellenblatt mit "Titel...
15.10.2008 23:37:38
Thread-ID: 1016707
3 Beiträge
Anzeige
2 Tabellen verbinden ->zeilenweiser Mengenabgleich
Mike

Hallo erstmal,
als begeisterter Forumsleser habe ich schon viele Tage hier verbracht. Jetzt traue ich mich einmal hinein und hoffe auf Eure Hilfe.
Ich habe 2 laaange Tabellen. In Tabelle1 stehen (neben anderen Daten)
Teilenummer, Auftragsnummer, (Lieferwoche) und Stück und in Tabel...
16.10.2008 11:37:00
Thread-ID: 1016808
8 Beiträge
Leere Zeilen in Tabellenspalte zählen
A.Franz

Hallo...
ich habe fogendes Problem u.hoffe das mir jemand helfen kann.Ich Habe eine UserForm mit Listbox u.Textbox.Über diese schreibe ich Werte in die Tabelle (Spalte A).Ist es möglich,wenn ich die Userform aufrufe,das mir die Anzahl noch freier Zeilen in Spalte A z.B in einer TextBox oder...
03.12.2008 12:55:46
Thread-ID: 1029789
4 Beiträge
2 verschiedene Kopfzeilen in einer Tabelle
Horst

Hallo liebe Leute,
ich hab folgendes Problem, ich habe eine Tabelle Bei der ich den Druckbereich variabel gestalte. Zusätzlich möchte ich aber das ab einer bestimmten Seitenanzahl was anderes im Kopf steht. Dazu habe ich einen ansatz hier im archiv gefunden und den auch schon etwas angepas...
28.01.2009 10:51:00
Thread-ID: 1044486
5 Beiträge
Anzeige
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:21:39
Thread-ID: 1060137
7 Beiträge
Anzeige
Zeile in allen Tabellenblättern durchsuchen
ben

Hallo,
bei folgendem Problem stoße ich mit meinen Excel/VBA Kenntnissen an die Grenze.
Ich würde gern, wenn die Zelle C57 im Blatt Menü ein Wochentag ist, eine Suche in allen Tabellenblättern in der Zeile 9 nach dem Wert der in Zelle C58 (ist die Kalenderwoche) im Blatt Menü steht start...
14.03.2009 13:26:44
Thread-ID: 1060139
2 Beiträge
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
Anzeige
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
pro tabelleneintrag automatisch eine neue Zeile
papa

Hallo liebe Excelianer,
ich möchte über ein Userform diverse Informationen abfragen und diese dann in einer Tabelle ablegen.
Es soll eine Datenbank entstehen, sprich bei jedem neuen Userformeintrag soll in der Tabelle eine neue Zeile verwendet werden.
Bisher hab ich dieses Vorhaben...
06.10.2009 00:10:16
Thread-ID: 1107402
3 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Aus Tabelle4 in Tab1 ZeilenPosition finden
Franz

Hallo Excelisten,
Was muss ich hier ändern um den Zeilenwert zu erfahren? Sub Suche_NEW() Dim Zeilenwert As Integer Zeilenwert= iRowValueItem("29437436", 1) MsgBox (Zeilenwert) End Sub
Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer
Dim rng As Range
If...
23.10.2009 21:47:13
Thread-ID: 1111734
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro zum Einfügen einer Zeile in Excel-Tabelle

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und wechsle zu dem Blatt, in dem du das Makro zum Einfügen einer Zeile erstellen möchtest.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Kopiere den folgenden VBA-Code in das Modul:

    Sub NeueZeileEinfügen()
   Dim intZeile As Integer
   intZeile = Cells(Rows.Count, 1).End(xlUp).Row ' Bestimmt die letzte Zeile in Spalte A
   Cells(intZeile + 1, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Fügt eine neue Zeile unterhalb der letzten Zeile ein
   Rows(intZeile).Copy
   Rows(intZeile + 1).PasteSpecial Paste:=xlPasteFormats ' Überträgt die Formatierung
   Rows(intZeile + 1).PasteSpecial Paste:=xlPasteFormulas ' Überträgt die Formeln
   Application.CutCopyMode = False
End Sub

  5. Speichere das Makro und schließe den VBA-Editor.

  6. Füge einen Button hinzu, um das Makro auszuführen. Gehe zu Entwicklertools > Einfügen > Button (Formularsteuerung), ziehe den Button auf dein Arbeitsblatt und weise das Makro NeueZeileEinfügen zu.

Jetzt kannst du mit einem Klick eine neue Zeile in deiner Excel-Tabelle einfügen, wobei die Formatierungen und Formeln übernommen werden.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004": Dieser Fehler tritt auf, wenn du versuchst, eine Zeile einzufügen, wenn die Tabelle leer ist. Stelle sicher, dass mindestens eine Zeile vorhanden ist.

  • Fehler: Formatierungen werden nicht übernommen: Achte darauf, dass du die CopyOrigin-Option richtig verwendest, um die Formate zu übertragen.

Alternative Methoden

Wenn das oben beschriebene Makro nicht deinen Anforderungen entspricht, kannst du auch die folgenden Methoden in Betracht ziehen:

  1. Manuelles Einfügen: Klicke mit der rechten Maustaste auf die Zeilennummer, um eine neue Zeile einzufügen. Dies erfordert jedoch manuelle Formatierung.

  2. Excel-Formeln: Verwende Formeln, um Daten zu generieren, anstatt sie manuell einzugeben. So kannst du die Struktur deiner Tabelle beibehalten.

Praktische Beispiele

Um das Makro effektiver zu nutzen, hier einige praktische Anwendungsszenarien:

  • Ergebniszeile in Excel einfügen: Wenn du regelmäßig eine Ergebniszeile oben in deiner Tabelle benötigst, passe das Makro an, um die neue Zeile oberhalb der Ergebniszeile einzufügen.

  • Formatierung anpassen: Du kannst das Makro so modifizieren, dass es nur spezifische Spalten formatiert, anstatt die gesamte Zeile.

Tipps für Profis

  • Makros in Excel hinzufügen: Du kannst mehrere Makros in ein Modul einfügen, um verschiedene Funktionen zu ermöglichen, wie das Einfügen von Zeilen oder das Kopieren von Formeln.

  • Sicherheitseinstellungen: Stelle sicher, dass die Makros in deinen Excel-Einstellungen aktiviert sind, um sie ohne Einschränkungen verwenden zu können.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um eine Zeile oberhalb einer bestimmten Zeile einzufügen?
Du kannst die Zeilennummer im Code anpassen, um die gewünschte Position festzulegen.

2. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, jedoch können einige Funktionen je nach Version variieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige