Zeile x-mal kopieren

Forumthread: Zeile x-mal kopieren

05.01.2015 13:52:51

Rog

Hallo zusammen!
als langjähriger Leser des Forums habe ich nun eine Frage und würde mich über regen Input freuen.
Problemstellung:
In Zeile 1, Spalte A, B und C habe ich bestimmte Werte (Name, Vorname, Internetadresse)
In Spalte D habe ich eine Anzahl (z.b. 89). Jetzt muss diese Zeile in einem neuen Excel-Reiter 89x (Anzahl aus Spalte D) untereinander kopiert werden.
In Zeile 2 ff. geht es genauso weiter, allerdings in Spalte D dann eine Anzahl von beispielsweise 43.
Besten Dank!
Rog

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

manuell vielleicht so

05.01.2015 14:05:06

Tino
AW: Zeile x-mal kopieren

05.01.2015 14:05:54

Rudi Maintaire
AW: Zeile x-mal kopieren

05.01.2015 21:02:33

Rog
AW: Zeile x-mal kopieren per Formel

05.01.2015 15:47:04

Daniel

manuell vielleicht so

05.01.2015 14:05:06

Tino

Hallo,
Du schreibst nicht wie es ablaufen soll o. du dir den Ablauf vorstellst
daher hier eine mögliche manuelle Variante.

Bereich A1:C1 markieren

kopieren

andere Tabelle aktivieren

Im Namensfeld A1:A89 eingeben mit Enter abschließen

A1:A89 ist jetzt markiert

Jetzt nur noch entsprechend einfügen (Werte, ges. Inhalt oder ähnliches)

Gruß Tino

AW: Zeile x-mal kopieren

05.01.2015 14:05:54

Rudi Maintaire

Hallo,
schreibt in ein neues Blatt:

Sub aaa()
Dim arrIn, arrOut(), i As Long, j As Long, k As Integer, n As Long
arrIn = Sheets(1).Range("A1").CurrentRegion
ReDim arrOut(1 To WorksheetFunction.Sum(Sheets(1).Columns(4)), 1 To 3)
For i = 1 To UBound(arrIn)
For j = 1 To arrIn(i, 4)
n = n + 1
For k = 1 To 3
arrOut(n, k) = arrIn(i, k)
Next
Next
Next
Worksheets.Add.Cells(1, 1).Resize(UBound(arrOut), 3) = arrOut
End Sub

Gruß
Rudi

AW: Zeile x-mal kopieren

05.01.2015 21:02:33

Rog

@Rudi Maintaire,
prima, funktioniert wunderbar! Das hat mir eine Menge Arbeit erspart! Danke!
@all
Danke für den Support!
Tolles Forum!

AW: Zeile x-mal kopieren per Formel

05.01.2015 15:47:04

Daniel

Hi
Gehe so vor
1. Füge in Spalte A einen neue Spalte ein, deine Daten beginnen jetzt in B
2. Schreibe in A1 die Zahl 1
3. Schreibe in A2 die Formel:=A1+E1
Ziehe diese Formel bis ans Tabellenende und eine Zeile weiter. Achte darauf, dass du beim Ziehen die Zelle A1 nicht mitnimmst!
4. im neuen Tabellenblatt kommt folgende Formel in Zelle A1:
=Sverweis(Zeile($A1);Tabelle1!A:E;Spalte(B$1);wahr)
Diese Formel ziehst du bis Spalte D und soweit nach unten wie benötigt (die Anzahl der Zeilen kannst du ja durch Summenbildung in Spalten E der anderen Tabellen ermitteln.
Gruß Daniel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine Zeile in Excel x-mal zu kopieren, kannst du folgende Schritte befolgen:

Daten vorbereiten: Stelle sicher, dass in Spalte A, B und C die gewünschten Werte stehen (z.B. Name, Vorname, Internetadresse) und in Spalte D die Anzahl der Wiederholungen (z.B. 89).
Manuelles Kopieren:
- Markiere den Bereich A1:C1.
- Kopiere die markierten Zellen (Strg + C).
- Gehe zu dem neuen Tabellenblatt.
- Klicke in das Namensfeld (links oben) und gib A1:A89 ein, um diesen Bereich zu markieren.
- Füge die kopierten Werte ein (Strg + V).
Formel verwenden:
- Füge in Spalte A eine neue Spalte ein, sodass deine ursprünglichen Daten jetzt in Spalte B beginnen.
- Schreibe in A1 die Zahl 1.
- In A2 gib die Formel =A1+D1 ein (wobei D1 die Zelle ist, die die Anzahl enthält).
- Ziehe diese Formel bis ans Ende der Tabelle.
- Im neuen Tabellenblatt kannst du die Formel =Sverweis(Zeile($A1);Tabelle1!A:E;Spalte(B$1);wahr) verwenden, um die Werte basierend auf der Zeilennummer zu extrahieren.

Häufige Fehler und Lösungen

Fehler: Die Formel zieht nicht bis zum Tabellenende.
- Lösung: Stelle sicher, dass du die richtige Formel in den richtigen Bereich ziehst. Achte darauf, die Zelle A1 nicht mitzuziehen.
Fehler: Die Anzahl der kopierten Zeilen stimmt nicht.
- Lösung: Überprüfe, ob die Werte in Spalte D korrekt eingegeben sind. Diese bestimmen die Anzahl der Wiederholungen.

Alternative Methoden

VBA-Makro:

Wenn du mit VBA vertraut bist, kannst du ein Makro verwenden, um die Zeilen x-mal zu kopieren. Beispielcode:

Sub ZeilenKopieren()
Dim arrIn, arrOut(), i As Long, j As Long, n As Long
arrIn = Sheets(1).Range("A1").CurrentRegion
ReDim arrOut(1 To WorksheetFunction.Sum(Sheets(1).Columns(4)), 1 To 3)
For i = 1 To UBound(arrIn)
   For j = 1 To arrIn(i, 4)
       n = n + 1
       For k = 1 To 3
           arrOut(n, k) = arrIn(i, k)
       Next k
   Next j
Next i
Worksheets.Add.Cells(1, 1).Resize(UBound(arrOut), 3) = arrOut
End Sub

Excel-Funktion: Du kannst auch die Funktion bis ans Ende ziehen, um die Daten effizient zu kopieren.

Praktische Beispiele

Beispiel 1: Du hast in Zeile 1 die Werte „Max“, „Müller“ und „max@example.com“ in Spalten A, B und C. In Spalte D steht „5“. Mit der oben beschriebenen Methode kannst du diese Zeile 5-mal in einem neuen Blatt kopieren.
Beispiel 2: Wenn in Zeile 2 „Lisa“, „Schmidt“, „lisa@example.com“ und in D „3“ steht, wird diese Zeile 3-mal kopiert, indem du die Formel anwendest.

Tipps für Profis

Nutze die Excel-Funktion „Formel bis ans Ende der Spalte kopieren“, um sicherzustellen, dass deine Formeln bis zum Tabellenende korrekt angewendet werden.
Experimentiere mit verschiedenen Excel-Funktionen, um deine Arbeit zu optimieren, z.B. mit INDEX und VERGLEICH.
Achte darauf, die Formeln regelmäßig zu überprüfen, um sicherzustellen, dass sie die gewünschten Ergebnisse liefern.

FAQ: Häufige Fragen

1. Wie kann ich die Zeile automatisch x-mal kopieren, ohne manuell zu ziehen? Du kannst ein VBA-Makro verwenden, das die Zeilen entsprechend der Anzahl in Spalte D automatisch kopiert.

2. Welche Excel-Version benötige ich für diese Funktionen? Die beschriebenen Funktionen und Methoden sind in Excel 2010 und späteren Versionen verfügbar. Stelle sicher, dass deine Excel-Version aktuell ist, um alle Funktionen nutzen zu können.

Beliebteste Forumthreads (12 Monate)