Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Anzahl Zeilen kopieren

Forumthread: Bestimmte Anzahl Zeilen kopieren

Bestimmte Anzahl Zeilen kopieren
30.04.2009 10:02:16
paul
Hallo
auch nach intensiver Durchsicht des Forum finde ich keinen Deckel auf meinen Exceltopf.
Ich möchte Zeilen kopieren. Und zwar keine bestimmte Anzahl sonderen eine variable Anzahl.
Im Forum habe ich viele Beiträge gefunden die Zeilen kopieren oder einfügen, aber meist handelt es sich um eine fixe Anzahl von Zahlen.
Beispiel vorher
SpA SpB
1 Schumacher
2 Neumann
1 Flohe
6 Müller
Beispiel nachher
SpA SpB
1 Schumacher
2 Neumann
2 Neumann
1 Flohe
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller
Ich möchte also abhängig von dem Wert, der in der Spalte A steht, die entsprechende Anzahl (Wert -1 ) von Zeilen kopieren.
Steht dort eine 1 soll (1-1=0) keine Zeile kopiert werden.
Steht dort eine 2 soll (2-1=1) eine Zeile kopiert werden.
....
Und zwar soll immer die Zeile kopiert und darunter eingefügt werden aus der der Wert ausgelesen wurde.
Ich hoffe Ihr könnt mir weiterhelfen!
Vielen Dank!!
Paul
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 10:18:38
Hajo_Zi
Hallo Paul,

Option Explicit
Sub Paul()
Dim LoLetzte As Long
Dim LoI As Long
Application.ScreenUpdating = False
'   letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1
Cells(LoI, 2).Copy
If Cells(LoI, 1) > 1 Then
Range(Cells(LoI, 2), Cells(LoI + Cells(LoI, 1) - 2, 2)).Insert Shift:=xlDown
End If
Next LoI
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub



Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 11:00:21
paul
Hallo Hajo
Vielen Dank!
Die Anzahl ist richtig erkannt worden, aber leider hat das Marko keine Zeilen eingefügt, sondern nur Zellen.
D.h. die Namen aus SpB wurden in der gewollten Anzahl kopiert und eingefügt, aber der Rest der Zeilen ist stehen geblieben.
Es müsste ausgetauscht werden dass nicht Zellen sondern Zeilen kopiert werden.
Ich habe ein paar Versuche gemacht Cells gegen Rows auszutauschen, muss aber gestehen, das ich zur Zeit die einzelnen Funktionen in VB noch nicht endgültig kapiert habe :-(
Geht das mit dem Tausch Zelle gegen Zeile?
Gruß paul
Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 12:14:20
Hajo_Zi
Hallo Paul,

Option Explicit
Sub Paul()
Dim LoLetzte As Long
Dim LoI As Long
Application.ScreenUpdating = False
'   letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = LoLetzte To 1 Step -1
Rows(LoI).Copy
If Cells(LoI, 1) > 1 Then
Rows(LoI & ":" & LoI + Cells(LoI, 1) - 2).Insert Shift:=xlDown
End If
Next LoI
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Gruß Hajo

Anzeige
AW: Bestimmte Anzahl Zeilen kopieren
30.04.2009 13:07:17
paul
SUPERBINGO!!!!!!!!!!!!
Vielen Dank!
Klappt hervoragend!!!!!!!
Schönes Maiwochende!
Gruß
Paul
;

Forumthreads zu verwandten Themen

Anzahl Leerzeilen einfügen
Erwin_Geer

Guten Abend,
ich muss immer wieder an verschiedensten Stellen in einer Tabelle Leerzeilen einfügen: hierfür markiere ich eine Zelle und mach dann "ALT E und E" und bekomme eine einzige Zeile überhalb der aktuellen Position eingefügt; soweit so gut.
Manchmal weis ich ganz genau, ich brau...
28.09.2010 21:34:15
Thread-ID: 1179817
4 Beiträge
Bestimmte Anzahl an Zeilen per VBA Ausblenden
Sascha

einen schönen guten tag allen...
wie kann man definierte Zeilen per VBA ausblenden?
ich habe eine Tabelle die folgend ausschaut:
Grün
1
2
3
4
5
6
Rot
1
2
3
4
5
6
Jetzt trage ich in zwei Zellen die Anzahl von Grün und Rot ein, z...
30.12.2010 12:33:34
Thread-ID: 1193330
6 Beiträge
Aus Excel unbestimmte anzahl an Zeilen in Word
Detege

Liebes Community,
mit hilfe des Forums habe ich es geschafft durch Textmarken mittels VBA zeilen aus Excel in Word einzufügen. Ich schaffe es jedoch nicht es nach meinen bedürfnissen anzupassen.
Mein Code sieht zur Zeit so aus :
Sub Copywordtoexcel() Dim strData As String Dim obj...
11.02.2012 12:17:43
Thread-ID: 1249866
2 Beiträge
Anzeige
Bestimmte Anzahl von Zeilen in Spalten
Zeilen

Hallo Zusammen,
ich steht vor einen mehr oder minder großen Problem und hoffe inständig, dass mir ein freundliches Mitglied dieses Forums weiterhelfen kann. Folgendes Problem:
Ich habe eine Liste, bei der immer 5 Zeilen zusammengehören und deshalb eigentlich in Spalten stehen sollten. E...
24.06.2013 18:06:57
Thread-ID: 1319409
4 Beiträge
Einfügen von Leerzeilen nach bestimmtem Text
Leerzeilen

Hallo liebe Gemeinde !
Ich verzweifele fast... ;)
Ich habe eine SAP-Auswertung in Excel geladen, die leider ziemlich viele Leerzeilen nun hat. Das Format hats total zerschossen, aber das ist ja oftmals normal.
Ich habe die nun so gut wie es geht aufbereitet.
Ich muss in dieser A...
24.10.2013 15:56:43
Thread-ID: 1335748
4 Beiträge
bestimmte Anzahl an Zeilen kopieren und einfügen
Hans

Hallo zusammen,
habe ein Excel-Sheet mit ca. 1.800 Zeilen und 32 Spalten.
Nun möchte ich, dass ein Makro die Daten aus Zeile H6:H37 kopiert und in G38:G69 einfügt. Anschließend soll Zeile I6:I37 kopiert werden und in Zeile G70:G81 kopiert werden, usw. bis zur letzten Spalte.
Kann mi...
17.09.2014 10:35:19
Thread-ID: 1382027
2 Beiträge
Bestimmte Anzahl von Zellen einfügen
Klaus Weiß
Hallo,
ich habe eine sehr große Tabelle, in die ich eine bestimmte Anzahl von Zeilen für die weitere Bearbeitung einfügen muss. Bislang habe ich mit folgender Anweisung (mühsam)gearbeitet: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim zeilenanzahl As Inte...
17.10.2014 10:18:49
Thread-ID: 1387130
4 Beiträge
Bestimmte Anzahl an Zeilen und Spalten einblenden
Esther

Hallo zusammen,
ich bin neu hier! Habe schon oft Hilfe in diesem Forum gesucht, jetzt shreib ich mal selber was ;)
Und zwar:
Auf Tabellenblatt A gibt es in E40 ein Dropdown mit Ziffern von 0 - 16.
In den Spalten K40 bis Z40 sind weitere Dropdownfelder enthalten (Daten werden aus...
10.08.2015 16:31:13
Thread-ID: 1441510
2 Beiträge
eine bestimmte Anzahl Leerzeilen nach jeder Zeile
bneyer

Hallo
Ich sollte in einer grossen Tabelle mit über 700 Zeilen zwischen allen Zeilen eine bestimmte Anzahl Leerzeilen einfügen.
Wie kann ich das am einfachsten tun?
Besten Dank bereits im Voraus für deine Hilfe!
bneyer
18.03.2018 21:44:13
Thread-ID: 1614937
6 Beiträge
Anzeige
Anzahl neue Zeilen aus Wert einer Zelle einfügen
Sany

Hallo zusammen. Ich hoffe, ihr könnt mir weiterhelfen. Die Internet-Suche hat mich leider nicht sehr weit gebraucht.
Ich habe eine Tabelle mit vielen Zeilen, wo in der Spalte "J" immer ein Wert (Zeitraum in Tagen, z.B. 75) steht. Jede Zeile, bei der in der Spalte "J" ein Wert über 1 (über 1...
08.04.2018 23:48:15
Thread-ID: 1618724
3 Beiträge
bestimmte Anzahl von Zeilen einfügen
Günther

Hallo zusammen,ich möchte in einer Tabelle in eine bestimmte Zeile klicken
und von dieser ausgehend nach oben eine bestimmte Anzahl von Leerzeilen einfügen,die ich vorher ermittelt habe.
Die Anzahl der einzufügenden Zeilen soll in eine Msg-Box eingegeben werden können.
Kann jemand helf...
13.04.2003 16:43:47
Thread-ID: 244501
3 Beiträge
bestimmte Anzahl von Leerzeilen einfügen
Tommy
Hallo liebe Forumer,
ich sitze seit einigen Tagen an einem Problem und habe schon intensiv im Archiv nachgesehen, aber keine passende Lösung gefunden. Ich hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle in der in den Spalten A – M Texte und Werte regelmäßig eingetragen werden.
Am Ende...
17.02.2004 08:06:32
Thread-ID: 383470
6 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

Bestimmte Anzahl Zeilen in Excel einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne dein Excel-Dokument und stelle sicher, dass die Daten in der richtigen Form vorliegen. Du solltest eine Spalte (z.B. Spalte A) mit Werten haben, die angeben, wie viele Zeilen du kopieren möchtest.

  2. Öffne den VBA-Editor durch Drücken von ALT + F11.

  3. Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)" > "Einfügen" > "Modul".

  4. Füge den folgenden VBA-Code ein:

    Option Explicit
Sub BestimmteAnzahlZeilenEinfuegen()
    Dim LoLetzte As Long
    Dim LoI As Long
    Application.ScreenUpdating = False
    ' Letzte belegte Zeile unabhängig von Excelversion für Spalte A (1)
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For LoI = LoLetzte To 1 Step -1
        Rows(LoI).Copy
        If Cells(LoI, 1) > 1 Then
            Rows(LoI & ":" & LoI + Cells(LoI, 1) - 2).Insert Shift:=xlDown
        End If
    Next LoI
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

  5. Schließe den VBA-Editor und kehre zurück zu Excel.

  6. Führe das Makro aus: Gehe zu Entwicklertools > Makros, wähle das Makro "BestimmteAnzahlZeilenEinfuegen" aus und klicke auf Ausführen.

  7. Überprüfe das Ergebnis: Die Anzahl der Zeilen, die in Spalte A angegeben ist, sollte nun korrekt eingefügt sein.

Häufige Fehler und Lösungen

  • Fehler: Es werden nur Zellen und keine ganzen Zeilen kopiert.

    • Lösung: Stelle sicher, dass du den richtigen Code verwendest, der Rows anstelle von Cells nutzt. Der oben angegebene Code kopiert die gesamten Zeilen.

  • Fehler: Das Makro führt nicht die gewünschte Anzahl an Zeilen ein.

    • Lösung: Überprüfe die Werte in Spalte A. Wenn dort eine 1 steht, wird keine Zeile kopiert (1-1=0).

Alternative Methoden

Falls du nicht mit VBA arbeiten möchtest, kannst du auch die Funktion Kopieren und Einfügen manuell verwenden:

  1. Wähle die Zeile aus, die du kopieren möchtest.
  2. Halte die Strg-Taste gedrückt und drücke C, um zu kopieren.
  3. Klicke auf die Zeile direkt unter der zu kopierenden Zeile.
  4. Halte die Strg-Taste gedrückt und drücke V, um die Zeile einzufügen.
  5. Wiederhole diesen Vorgang entsprechend der Anzahl in Spalte A.

Praktische Beispiele

Angenommen, du hast die folgende Tabelle:

SpA SpB
1 Schumacher
2 Neumann
1 Flohe
6 Müller

Nach dem Ausführen des Makros sollte die Tabelle so aussehen:

SpA SpB
1 Schumacher
2 Neumann
2 Neumann
1 Flohe
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller
6 Müller

Tipps für Profis

  • Nutze die Debug-Funktion in VBA, um den Code Schritt für Schritt zu überprüfen, falls du auf Probleme stößt.
  • Experimentiere mit dem Code, um ihn an deine speziellen Bedürfnisse anzupassen, z.B. um die Anzahl der kopierten Zeilen zu variieren.
  • Füge Error-Handling in deinem VBA-Code hinzu, um sicherzustellen, dass das Makro auch bei unerwarteten Eingaben stabil bleibt.

FAQ: Häufige Fragen

1. Kann ich das Makro in allen Excel-Versionen verwenden? Ja, der obige VBA-Code sollte in den meisten neueren Excel-Versionen funktionieren.

2. Was passiert, wenn ich einen Wert von 0 in Spalte A habe? Wenn der Wert in Spalte A 1 ist, wird keine Zeile kopiert. Bei einem Wert von 0 wird ebenfalls keine Zeile eingefügt, da 0-1 = -1.

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