Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

neue Zeile unterhalb einfügen

Forumthread: neue Zeile unterhalb einfügen

neue Zeile unterhalb einfügen
28.08.2018 09:42:06
Renan
Hallo zusammen,
gibt es eine Möglichkeit neue Zeilen "unterhalb" einzufügen und nicht oberhalb?
Mein Makro bringt die Zeilennummer des letzten Tabelleneintrages (Listobject) in Erfahrung und soll die Tabelle nun um eine neue Zeile nach unten erweitern.
Bei meinem Code wird die neue Zeile leider immer oberhalb der letzten eingefügt. 
' Neue Zeile anlegen
' Variable: "lastTableRow" = letzte Zeile der Tabelle, Zeilennummer des untersten Eintrages)
Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Kennt sich jemand damit aus und kann mir aushelfen?
MfG,
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: neue Zeile unterhalb einfügen
28.08.2018 09:50:46
{Boris}
Hi,
welchen Wert hat denn die Variable lastTableRow? Tatsächlich den gewünschten oder ...?
VG, Boris
AW: neue Zeile unterhalb einfügen
28.08.2018 10:06:34
Renan
Hallo Boris,
die Variable lastTableRow hat die Worksheet-Zeilennummer des letzten Tabelleneintrages.
Also mein Listobject hat momentan insgesamt 12 Einträge und keine leeren Zeilen. Also alle 12 Einträge besetzt.
Der letzte Eintrag des Listobjects (Eintrag 12) ist im Worksheet in Zeile 23. Dadurch hat lastTableRow den Wert 23.
Und ich möchte eine komplett neue Worksheet-Zeile einfügen, welches gleichzeitig meine Tabelle nach unten erweitert.
Klar man kann auch "nur" eine Listobject-Zeile einfügen, aber das verzieht dann das Format von allen Zellen, die um die Tabelle liegen. Deshalb arbeite ich mit dem Einfügen von neuen Worksheet-Zeilen.
Anzeige
AW: neue Zeile unterhalb einfügen
28.08.2018 10:30:48
{Boris}
Hi,
die Variable lastTableRow hat die Worksheet-Zeilennummer des letzten Tabelleneintrages
Und genau das überprüf mal bitte - entweder im Einzelschrittmodus oder mit ner MsgBox, die Dir den Wert von lastTableRow anzeigt.
VG, Boris
AW: neue Zeile unterhalb einfügen
28.08.2018 11:07:58
Renan
Hallo Boris,
ich habe mal eine Beispielsdatei mit meinem Code hochgeladen.
Vil. fällt dir ja mehr auf aus mir
https://www.herber.de/bbs/user/123610.xlsm
Ich habe die "+ 1" bei 
Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
wieder entfernt, weil ansonsten die neue Zeile nicht mehr zu der Tabelle gehört.
Und ja lastTableRow ist exakt die Zeilennummer des letzten Tabelleneintrages.
MfG
Anzeige
AW: neue Zeile unterhalb einfügen
28.08.2018 11:17:01
Renan
Hallo Boris,
ich habe mal eine Beispielsdatei mit meinem Code hochgeladen.
Vil. fällt dir ja mehr auf aus mir
https://www.herber.de/bbs/user/123610.xlsm
Ich habe die "+ 1" bei 
Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
wieder entfernt, weil ansonsten die neue Zeile nicht mehr zu der Tabelle gehört.
Und ja lastTableRow ist exakt die Zeilennummer des letzten Tabelleneintrages.
MfG
Anzeige
AW: neue Zeile unterhalb einfügen
28.08.2018 16:05:56
{Boris}
Hi,
durch das Einfügen verschieben sich auch andere Aktionen. Achte auf die fett gedruckten Änderungen.
' Neue Zeile anlegen
lastTableRow = lstObjFirstRow + lstObjTotalRows
Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Get new table references
lstObjTotalRows = ActiveSheet.ListObjects(lstObjName).DataBodyRange.Rows.Count
lstObjFirstRow = ActiveSheet.ListObjects(lstObjName).Range.Cells(1).Row
' Daten in die neue Zeile übertragen
With lstObj
.ListColumns("Status").DataBodyRange(lstObjTotalRows + 1) = "offen"
.ListColumns("Projekt").DataBodyRange(lstObjTotalRows + 1) = Me.TB_PROJEKT_NAME.Value
.ListColumns("Mitarbeiter").DataBodyRange(lstObjTotalRows + 1) = Me.TB_MITARBEITER.Value
End With
VG, Boris
Anzeige
;

Forumthreads zu verwandten Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Excel-Tabelle in Word-Dokument
Dieter

Hallo Forum,
in die Übergabe einzelner Werte einer Excel-Tabelle in ein Word-Dokument habe ich mich ganz gut eingearbeitet. Nun stehe ich allerdings vor dem Problem, eine ganze Tabelle oder nur einen zusammenhängenden Teil der Tabelle in ein Word-Dokument zu übertragen. Kann mir jemand ein...
27.12.2008 16:58:00
Thread-ID: 1035409
8 Beiträge
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Anzeige
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
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Excell Tabelle in Word und Format behalten
Christian

Hallo.
Bei importieren einer Excell Tabelle in Word wird das Format der Tabelle immer "verhauen" = in die länge gezogen. Das sieht bescheiden aus. Gibt es eine Möglichkeit die Tabelle so zu importieren damit das Seitenverhältnis bleibt. Ich arbeite mit Word und Excell 2007.
Danke im Vor...
05.08.2009 14:48:21
Thread-ID: 1093759
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
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
3 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
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
Einfügen Zellen VBA
Hugo

Hallo
Möchte die folgende Formel so anpassen, dass die einzufügende Zellenmenge über eine Variable bezogen wird.
ActiveCell.Offset(0, 0).Range("A1:E1").Insert Shift:=xlDown
DH:
Ich bestimme über folgende Formel die Spaltenzahl, ab welcher die Zellen stehen bleiben müssen.
...
12.12.2009 15:34:31
Thread-ID: 1123484
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

Neue Zeile unterhalb in Excel einfügen

Schritt-für-Schritt-Anleitung

Um in Excel eine neue Zeile unterhalb einer bestehenden Zeile einzufügen, kannst Du die folgenden Schritte befolgen:

  1. Bestimme die letzte Zeile Deiner Tabelle: Erstelle eine Variable, die die Zeilennummer des letzten Eintrags enthält. Zum Beispiel:

    lastTableRow = ActiveSheet.ListObjects("DeinListObjectName").ListRows.Count

  2. Füge die neue Zeile ein: Verwende den folgenden Code, um eine neue Zeile unterhalb der letzten Zeile einzufügen:

    Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

  3. Übertrage Daten in die neue Zeile: Wenn Du Daten in die neue Zeile übertragen möchtest, kannst Du das folgendermaßen tun:

    With ActiveSheet.ListObjects("DeinListObjectName")
   .ListColumns("DeineSpalte").DataBodyRange(lastTableRow + 1) = "DeinWert"
End With

Häufige Fehler und Lösungen

  • Falsche Zeilennummer: Wenn die neue Zeile nicht richtig eingefügt wird, überprüfe den Wert der Variable lastTableRow. Stelle sicher, dass sie die korrekte Zeilennummer des letzten Eintrags enthält.

  • Formatverschiebung: Achte darauf, dass beim Einfügen der neuen Zeile das Format Deiner Tabelle nicht verschoben wird. Nutze CopyOrigin:=xlFormatFromLeftOrAbove, um sicherzustellen, dass die Formatierung beibehalten wird.

Alternative Methoden

  1. Tastenkombination: Du kannst auch die Tastenkombination Strg + Shift + + verwenden, um schnell eine neue Zeile unterhalb der markierten Zeile einzufügen.

  2. Excel Makro: Erstelle ein Makro, das beim Ausführen automatisch eine neue Zeile unterhalb der letzten Zeile einfügt. Beispiel:

    Sub NeueZeileEinfügen()
   Dim lastTableRow As Long
   lastTableRow = ActiveSheet.ListObjects("DeinListObjectName").ListRows.Count
   Rows(lastTableRow + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du eine neue Zeile unterhalb in verschiedenen Szenarien einfügen kannst:

  • Neue Zeile in einer Liste: Wenn Du eine Liste mit Projekten hast und ein neues Projekt hinzufügen möchtest, kannst Du den obigen VBA-Code verwenden, um die Liste automatisch nach unten zu erweitern.

  • Formelaktualisierung: Wenn Du eine neue Zeile einfügst, stelle sicher, dass alle Formeln, die sich auf diese Zeile beziehen, aktualisiert werden. Dies kann entweder automatisch geschehen oder Du musst die Formeln manuell anpassen.

Tipps für Profis

  • Automatisierung: Du kannst VBA verwenden, um automatisierte Prozesse zu entwickeln, die neue Zeilen basierend auf bestimmten Bedingungen einfügen, z.B. wenn ein neues Formular ausgefüllt wird.

  • Fehlerprotokollierung: Implementiere eine Fehlerprotokollierung in Deinem VBA-Code, damit Du schnell identifizieren kannst, wo Probleme auftreten, wenn Du versuchst, eine neue Zeile unterhalb einzufügen.

FAQ: Häufige Fragen

1. Wie kann ich mit einer Tastenkombination eine Zeile unterhalb einfügen?
Verwende die Kombination Strg + Shift + + und die neue Zeile wird unterhalb der aktuell ausgewählten Zeile eingefügt.

2. Was kann ich tun, wenn meine Tabelle nicht richtig aktualisiert wird?
Stelle sicher, dass Du die korrekten Referenzen in Deinem VBA-Code verwendest, und überprüfe, ob alle Formeln in der Tabelle korrekt sind.

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