Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2008to2012
2008to2012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Automatisch Zeilen einfügen

Forumthread: Automatisch Zeilen einfügen

Automatisch Zeilen einfügen
11.03.2025 11:03:26
Balsi
Kann mir jemand helfen.
Ab Zeile 9 ist in der Tabelle1 eine unterschiedliche Anzahl Zeilen unterhalb ausgefüllt. Es können bis zu 150stk sein.
Es muss nun unter jeder ausgefüllten Zeile 2 stk leere Zeilen eingefügt werden.
geht das?

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch Zeilen einfügen
11.03.2025 11:36:04
Oberschlumpf
Hi,

ja, das geht, aber nur mit VBA-Code.
Zeig uns bitte per Upload eine Bsp-Datei mit Bsp-Datenzeilen, dann können wir den Code besser einbauen als so ganz ohne Datei.

Ciao
Thorsten
AW: Automatisch Zeilen einfügen
11.03.2025 12:38:03
Beverly
Hi,

ich nehme an, dass zwischendurch keine Leerzellen vorkommen und sich alles auf Spalte A bezieht: 

Sub Einfuegen()

    Dim lngLetzte As Long

    Dim lngZeile As Long

    With Worksheets("Tabelle1")

        lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row - 1

        For lngZeile = lngLetzte To 9 Step -1

            If .Cells(lngZeile, 1) > "" Then

                .Range(.Cells(lngZeile + 1, 1), .Cells(lngZeile + 2, 1)).EntireRow.Insert shift:=xlDown

            End If

        Next lngZeile

    End With

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Automatisch Zeilen einfügen
11.03.2025 17:47:47
daniel
Hallo Balsi
ja, das geht einfach.
auch ohne VBA.
Gruß Daniel
AW: Automatisch Zeilen einfügen
14.03.2025 21:56:48
GerdL
Moin
Hochladen der Datei genügt nicht. Du musst den damit erzeugten Link kopieren u. hier posten.
Ohne Musterdatei: 
Sub Unit()



    Dim LZ As Long, Vnt As Variant

    

    LZ = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    If LZ  8 Then Exit Sub

    

    Vnt = Tabelle1.Range("A8:Z" & LZ).Value

    

    Tabelle2.Range("MU222").Resize(UBound(Vnt, 1), UBound(Vnt, 2)) = Vnt





End Sub

Gruß Gerd
Anzeige
AW: Automatisch Zeilen einfügen
17.03.2025 11:06:16
Balsi
Danke Das Makro funktioniert gut. Weshalb kann ich die Tabellennamen nicht ändern? ZBsp. Tabelle1 in Tabelle20 und Tabelle2 in Tabelle30? ist dies Fix?
Sobald ich das mache wird die Linie Gelb und das Makro stopt.
AW: Automatisch Zeilen einfügen
17.03.2025 11:53:46
Balsi
Danke Das Makro funktioniert gut. Weshalb kann ich die Tabellennamen nicht ändern? ZBsp. Tabelle1 in Tabelle20 und Tabelle2 in Tabelle30? ist dies Fix?
Sobald ich das mache wird die Linie Gelb und das Makro Stopt.
Weshalb wird ein Tabellenblattname ZBsp Tab_1 oder ablage 12 nicht akzeptiert?
Anzeige
AW: Automatisch Zeilen einfügen
17.03.2025 11:52:42
GerdL
Es sind die Codenamen der Tabellen verwendet.
Ggf. funktioniert deine Anpassung, wenn du stattdessen die Blattregisternamen, z.B.
Worksheets("Tabelle20").
verwendest.
Gruß Gerd
AW: Automatisch Zeilen einfügen
20.03.2025 19:20:04
Balsi
Super besten Dank es funktioniert.
AW: Automatisch Zeilen einfügen
11.03.2025 12:54:24
Balsi
Danke funktioniert sehr gut
Anzeige
AW: Automatisch Zeilen einfügen
14.03.2025 08:32:13
Balsi
Ich habe ein Problem und finde keine Lösung.
Ich muss Zellen kopieren in der Tabelle1 diese Zellenanzahl ist aber immer unterschiedlich es können auch 100 stk sein immer von der Zelle A8 bis Z .....

Diese kopierten Zellen müssen dann in der Tabelle2 nur als Wert in der Zelle Mu222 eingefügt werden-( nach hinten und unten)
Das einfügen der Werte muss aber auch in einer anderen Zelle einfügbar sein z.Bsp MU400 (diese Zelle für das einfügen ist jedoch jeweils fix bestimmt)

Kann mir jemand helfen?


Hier das einfache Makro was aber nicht variabel ist.

Sub Zellen_variabel_kopieren()
'
' Zellen_variabel_kopieren Makro
'
Sheets("Tabelle1").Select
Range("A8:Z28").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("MU222").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("MX248").Select
End Sub
Anzeige
AW: Automatisch Zeilen einfügen
14.03.2025 10:36:28
GerdL
Hallo Balsi,

wie soll die letzte zu kopierende Zelle in Tabelle1 Spalte A ermitttelt werden?
Ist dies die letzte Zelle von unten in Spalte A mit Wert?

Wonach richtet sich die Einfügezelle in Tabelle2?

Gruß Gerd
AW: Automatisch Zeilen einfügen
14.03.2025 17:32:04
Balsi
Entschuldigung das ich nochmals nachfrage. Ich bin nicht sicher ob meine Antwort angekommen ist
Die letzte Zelle in Tabelle1 ist die Spalte A von unten mit Wert oder Buchstaben
Die Einfügezelle in Tabelle2 ist fix mit MU222
Ich habe eine Datei hinaufgeladen.
Besten Dank für die Hilfe
Anzeige

Forumthreads zu verwandten Themen

Namen mehrzeilig nach Datum befüllen
Ibo

Hallo alle zusammen,
zurzeit arbeite ich an einem eigenen Plan, dass ich immer manuell in Excel machen muss. Jetzt will ich es gerne soviel wie möglich automatisieren. Dazu habe ich eine Art Skizze (im Anhang) gemacht, um es sich vorstellen zu können. Ich könnte es mir gut vorstellen, dass...
25.12.2017 22:29:26
Thread-ID: 1598878
12 Beiträge
Anzeige
Automatisiert, Suchfunktion, Filterfunktion, usw.
sweet valentine
Excel Version 365 MSO (Version 2307 Build 16.0.16626.20198) 64 Bit

Hallo,
also ich soll eine Excel-Datei erstellen und habe mit meinem Chef geredet und ihm Bescheid gegeben, das ich probieren werde diese Excel-Datei zu erstellen wenn ich Zeit habe, aber absolut nichts versprechen kann...
12.10.2023 13:51:52
Thread-ID: 1949228
3 Beiträge
Vorletzte Listobject-Zeile vor Einfügen neuer Zeile ändern
FranziskusV
Hallo,

Ich brauche mal wieder Hilfe.

Jetzt kommt der Kontext zu meinem Problem :
Über folgenden Code füge ich über eine Schaltfläche eine Blattzeile ein. Diese Blattzeile wird so eingefügt, dass damit auch automatisch eine Intelligente Tabelle (Listobject mit Name= "TbMonatli...
03.02.2024 16:57:26
Thread-ID: 1963378
2 Beiträge
Neue Zeile in Sheet2 mit Zuordnung/Formeln wenn
Steffen

Hallo,
ich möchte, wenn ich in Sheet 1 in einem bestimmten Bereich eine neue Zeile einfüge, im 2. Sheet automatisch eine neue Zeile in einem Bereich einfügen lassen, die zum Bereich im Sheet1 und Sheet 2 passt und die Verknüpfungen anderer Zeilen in Sheet 2 anpasst, die über mehrere Bereich...
19.08.2019 16:44:23
Thread-ID: 1708417
3 Beiträge
Anzeige
nach aktualisierung funktioniert Formel nicht mehr
Angelika

Hallo
Ich benötige bitte dringend nochmal Hilfe.
Tabelle hab ich beigefügt
https://www.herber.de/bbs/user/79253.xlsm
Code siehe unten
Kurze Erklärung
In Tabelle Daten1 werden in Spalte K40:T40 manuell Werte eingegeben
Dank Hilfe vom Forum geschieht nun folgendes:<...
07.03.2012 15:53:58
Thread-ID: 1254029
4 Beiträge
Beim Löschen einer Zeile eine neue einfügen
Michael

Hallo,
ich habe folgendes Problem:
Ich habe eine Liste, deren Zeilen mit =Zeile() von 1 bis 60 nummeriert sind. Inhalte befinden sich zum Beispiel in den Zeilen 1-20 und 58-60, der Rest ist leer. Wenn ich nuen eine der Zeilen mit Inhalt lösche, hätte ich nun gerne, dass automatisch eine...
18.04.2017 20:05:23
Thread-ID: 1553458
10 Beiträge
Realtiver Zellbereich in Makro
Huffi

Hallo Excelfreunde,
ich habe folgende makro im Internet gefunden: Sub Zeilen_einfügen_Aufmass() Dim strBer Dim myCell As Range Dim checkCell As Boolean checkCell = True Select Case checkCell Case Not Intersect(ActiveCell, Range("Bereich1")) Is Nothing: strBer = "Bereich1" Case Not Intersec...
24.07.2015 16:48:38
Thread-ID: 1438339
4 Beiträge
Frage zu einem Textimportmakro von Ramses?!?
Ramses?!?

Hallo Leute,
ich habe im Archiv ein Makro von @Ramses gefunden, welches Textdateien, die mehr als 65536 Zeilen enthält, einließt und auf mehrere Tabellenblätter aufteilt. Nachfolgend erst mal das Makro.
Option Explicit
Sub Read_Bigdicttxt_File() 'Liest Text Datein mit mehr als 6553...
16.10.2006 16:46:18
Thread-ID: 811171
9 Beiträge
Zeilen eines Druckbereiches ausblenden
Felix

Hallo Zusammen,
ich erstelle mir seit einigen Monaten ein Projekt-Cockpit.
Hierbei habe ich schon viele verschiedene Funktionalitäten eingefügt und wieder rausgelöscht - man hat halt immer neue Ideen.
Aktuell stoße ich an meine Grenzen:
Ich habe bspw. die kompletten Zeilen 5 bis...
13.08.2020 16:14:15
Thread-ID: 1776760
1 Beitrag
Hilfestellung für Schleife in VBA
Lara
Hallo zusammen,
ich arbeite gerade an einer Einsatzplanung unserer Mitarbeiter fürs nächste Jahr. Da auf die Datei alle Führungskräfte Zugriff haben will ich Sie so gut es geht Idiotensicher machen, sonst zerhauen die alles schneller als ich es wieder zurecht rücken kann.
In der Excel gibt...
22.10.2021 10:41:20
Thread-ID: 1853030
4 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum