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

Copy Paste in Schleife

Forumthread: Copy Paste in Schleife

Copy Paste in Schleife
16.03.2021 17:44:22
Mario
Hallo liebe Excel Community,
seit mehreren Jahren finde ich hier Lösungen für meine Excel Probleme, aber bei diesem, wahrscheinlich einfachen Thema, finde ich nicht die richtigen Suchbegriffe... daher frage ich jetzt mal persönlich nach :)
Also es geht darum in einer Tabelle mit 3 Spalten nach jedem neuen Datum die vorherigen Einträge zu kopieren, neue Zeilen einzufügen und dann das Datum zu aktualisieren.
Die Rohtabelle sieht so aus:
Name Anzahl Datum
Hans 5 01.02.2020
Simone 10 05.04.2020
Stefan 6 07.04.2020
Brigitte 3 01.05.2020
Nach der Aktion muss die Tabelle wie folgt aussehen
Name Anzahl Datum
Hans 5 01.02.2020
Hans 5 05.04.2020
Simone 10 05.04.2020
Hans 5 07.04.2020
Simone 10 07.04.2020
Stefan 6 07.04.2020
Hans 5 01.05.2020
Simone 10 01.05.2020
Stefan 6 01.05.2020
Brigitte 3 01.05.2020
Ich weiss, das macht auf den ersten Blick keinen Sinn, aber ich muss die Daten in diese Form bringen, damit ich Daten in eine Datenbank importieren kann. Es soll ein Portfolio erstellt werden mit historischen Bestandsverläufen.
Am besten wäre es, wenn auch noch addiert werden könnte:
Wenn also Hans nochmal mehr im Einheiten im Bestand hat:
Die Rohtabelle sähe so aus:
Name Anzahl Datum
Hans 5 01.02.2020
Simone 10 05.04.2020
Stefan 6 07.04.2020
Hans 5 08.04.2020
Brigitte 3 01.05.2020
Nach der Aktion muss die Tabelle wie folgt aussehen
Name Anzahl Datum
Hans 5 01.02.2020
Hans 5 05.04.2020
Simone 10 05.04.2020
Hans 5 07.04.2020
Simone 10 07.04.2020
Stefan 6 07.04.2020
Hans 10 08.04.2020
Simone 10 08.04.2020
Stefan 6 08.04.2020
Hans 10 01.05.2020
Simone 10 01.05.2020
Stefan 6 01.05.2020
Brigitte 3 01.05.2020
Jetzt bin ich gespannt, ob das recht einfach zu lösen ist oder ob es kompliziert wird.
Wie auch immer, schon mal vielen Dank für Euren Input!
LG Mario

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy Paste in Schleife
16.03.2021 17:46:50
onur
Tolle Beschreibung, aber die (Beispiels-) Datei wäre wirklich hilfreich.

AW: Copy Paste in Schleife
16.03.2021 18:31:48
Daniel
Hi
die von mir erkannte Logik funktioniert so:
der Code geht durch die Liste durch
dabei werden zwei Schritte durchgeführt:
zuerst wird jede Zeile einzeln kopiert
danach werden alle Zeilen von der ersten Zeile bis zur aktuellen Zeile kopiert und unten eingefügt, dabei wird das Datum der zuletzt kopierten Einzelzeile übernommen.
als Code für deine Beispieldatei so:
Sub test()
Dim Zelle As Range
Dim Start As Range
Set Start = Range("A4")
For Each Zelle In Range(Start, Start.End(xlDown))
Zelle.Resize(, 3).Copy
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Range(Start, Zelle).Resize(, 3).Copy
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Selection.Columns(3).Value = Selection.Columns(3).Cells(1, 1).Offset(-1, 0).Value
Next
End Sub
zur Ausführung die Zellen unterhalb von F3 leeren.
dieser Code funktioniert so nur in der Aktiven Datei.
in deiner Beispieldatei fehlt für den den letzten Eintrag noch der zweite Schritt.
Diesen führt das Marko aber aus.
Gruß Daniel

Anzeige
AW: Copy Paste in Schleife
17.03.2021 10:40:18
Mario
Hallo Daniel,
erstmal vielen Dank für Deinen Code, der in der Beispieldatei funktioniert. Leider in meiner Produktivdatei nicht und ich kann nicht genau sagen, wieso. Daher lade ich nun mal mein Ergebnis hoch.
Ich dachte, ich beschreibe mein Problem mit Hans uns Simone, statt mit den Wertpapierkennummern.
Also es ist eine Inventurdatei für Wertpapiere, um die Historie eines Portfolios nachvollziehen zu können.
Am Tag 1 sind also "diese" Wertpapiere im Portfolio. Am Tag zwei dann "diese" und "jene" Wertpapiere und so weiter und so fort. Deswegen brauche ich auch die Addition, wenn sich der Wertpapierbestand unterjährig positiv verändert.
Eventuell sind in meiner Datei das Datumsformat anders. Die kopierten Zeilen verschieben sich quasi datumsmäßig.
In meiner jetzt verlinkten Inventurdatei habe ich die Fehler farblich markiert und kommentiert.
https://www.herber.de/bbs/user/144880.xlsm
Das Makro sollte auch dabei sein.
Vielen dank für weitere Lösungsansätze!
LG Mario

Anzeige
AW: Copy Paste in Schleife
17.03.2021 20:16:54
Yal
Hallo Mario,
im Prinzip schon aber ...
Es gibt 3 Art von Daten: Stammdaten (hier ISIN und Datum), Bewegungsdaten (Hier irritierenderweise "Bestand") und Bestandsdaten. Letztere ist das Summierung der Bewegungsdaten zu ein bestimmte Zeitpunkt: Startbestand (=Erstzugang) + Zugang bis Zpkt - Abgang bis Zpkt.
Anders gesagt, es macht -es ist nur meine Meinung- wenig Sinn, die Daten zu vermehren, diese müssen nur sinnvoll ausgewertet werden.
Mein Vorschlag:
_ füge über der Liste 2 Zeilen
_ in der erste trage dein gewünschte Auswertungsdatum
_ füge zu den Daten eine zusätzliche Spalte "Auswertung" mit einer Formel, die prüft, ob das Einkaufdatum kleiner gleich als das Auswertungsdatum ist. Es ergibt Wahr/Falsch.
_ mache eine Pivottabelle: Auswertung als Filter auf "Wahr" gestellt, Bestand als Werte. Ev. ISIN als Zeilenüberschrift , muss aber nicht, wenn Du nur die Summe brauchst. ISIN, die doppelt vorkommen werden summiert.
So kannst Du das Auswertungsdatum beliebig anpassen und im Pivottabelle den Bestand zum gegebenen Zeitpunkt sehen. Du muss nur die Pivottabelle aktualisieren. Ohne Code.
Und Du kannst anstatt den "Bestand", die Bewegungen eintragen: Zukauf positiv, Verkauf negativ. Dann könnte man anstatt eine Auswertungsdatum eine "Start" und "Enddatum" verwenden.
VG
Yal

Anzeige
AW: Copy Paste in Schleife
18.03.2021 14:00:13
Mario
Danke Yal,
danke für Deinen Ansatz, leider brauche ich auf Excel Basis keine Auswertung, sondern nur die Auflistung.
Diese Tabelle muss ich dann in eine Software importieren, die durch diese Tabelle das Portfolio erstellt.
Das Portfolio in der Software funktioniert nicht mit Kauf- oder Verkaufstransaktionen, sondern nur mit den Beständen zu den bestimmten Tagen.
Daher benötige ich auch keine Substraktionen sondern nur den Bestand zu diesem speziellen Tag.
Die Rohdaten bekomme ich aus dem Export einer anderen Liste, die mir die aktuellen Bestände liefert, mit den Datums der letzten Transaktion. daher weiss ich, an welchem Tag, welche Position im Depot war und muss da nun nur noch in das Importformat für die Software bekommen.
LG Mario

Anzeige
AW: Copy Paste in Schleife
18.03.2021 13:46:59
Daniel
Hi
nach deiner Beschreibung ist das Ergebnis korrekt.
bei Wertpapieren bin ich raus, bitte wende dich an einen Profi, den du auch korrekt für seine Dienstleistung bezahlst.
Gruß Daniel
;

Forumthreads zu verwandten Themen

ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Anzeige
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 Beiträge
Anzeige
zeilen: Copy and Paste mit Dialog
Andi

Hallo,
vielleicht kann mir jemand bitte bei folgendem Problem helfen ... Tipps geben:
Ich möchte in einem Berichtsblatt vier zeilen kopieren und der User soll via Dialog entscheiden, wo diese hinkopiert werden sollen.
Das Blatt hat viele aufeinanderfolgende Bereichtszeilen (immer 4...
01.11.2013 12:33:26
Thread-ID: 1336794
9 Beiträge
VBA blockiert copy and paste
MRInterNETT

Hallo Zusammen,
ich habe eine Datei mit mehreren Tabellenblättern. Da ich im Startblatt keine Scrollbalken wollte, habe ich in "dieseArbeitsmappe" Displayscrollbar auf false gesetzt und in jedem einzelnen Tabellenblatt wieder auf true. Wenn vbacode für die einzelnen Tabellenblätter eingegeb...
09.09.2014 21:16:12
Thread-ID: 1380754
2 Beiträge
Array as Range Select copy and paste
Jonas

Hallo zusammen,
ich habe ein VBA Problem und hoffe mir kann hier jemand helfen.
In dem Code werden mehrere Zellen in einen einen Array vom Typ Range eingelesen.
Anschließen soll Array(x) augewählt, kopiert und an einer anderen Stelle wieder eingefügt werden.
Ich hätte gerne nur...
04.01.2016 16:58:10
Thread-ID: 1467019
5 Beiträge
Array as Range Select copy and paste
Jonas

Hallo zusammen,
ich habe ein VBA Problem und hoffe mir kann hier jemand helfen.
In dem Code werden mehrere Zellen in einen einen Array vom Typ Range eingelesen.
Anschließen soll Array(x) augewählt, kopiert und an einer anderen Stelle wieder eingefügt werden.
Ich hätte gerne nur...
04.01.2016 16:58:45
Thread-ID: 1467020
2 Beiträge
Copy and Paste
Stefan

Hallo Forumer,
da aus meinen Shapes nix geworden ist hier eine neue Frage, ich habe eine Tabelle (Alle) mit einer Liste mit Leuten und deren Angaben. Von (E4:AH100). In der Spalte (O4:O100) wird das Austrittsdatum eingetragen als Jahreszahl (z.B. 2016). Ich möchte nun das immer wenn irgendw...
07.03.2016 21:17:18
Thread-ID: 1480517
8 Beiträge
Copy and Paste
Zdravko
Hy,
Ich habe eine Tabelle als html mit dropdown Menü, wie kann ich die Tabelle aus dem Webbrowser in excel
Kopieren ohne dropdown sondern mit den ausgewählten Werten im dropdown Menü?
MfG
Zdravi
27.04.2016 22:05:29
Thread-ID: 1490735
2 Beiträge
Nach copy and paste automatisch aktualisieren
esox

Hallo zusammen,ich habe das Problem, dass sich die Daten auf Tabelle2 nicht aktualisieren, wenn ich in Tabelle1 etwas hineinkopiere, also mit copy and paste aus einer txt-Datei, es soll um 1 hochgezählt werden:Code von Tabelle1:
******************************************************
Priva...
26.08.2002 10:12:31
Thread-ID: 152600
2 Beiträge
Copy and Paste Chartobject
Ansgar

Hallo zusammen,
ich möchte Grafiken von einem Worksheet auf ein anderes kopieren.
Sub Grafiken_kopieren() Dim chrObj As ChartObject For Each chrObj In Worksheets("Grafikbasis").ChartObjects chrObj.Copy _ Worksheets("Weiterverarbeitung").Range("A1") Next End Sub
chrObj.Copy funkti...
13.05.2017 14:32:11
Thread-ID: 1558126
8 Beiträge
VBA Copy and Paste
Marco

Abend nochmal,
ich habe eine Frage und zwar weiß ich wie man mittels VBA Daten von a nach b kopiert, aber ich möchte jetzt z.B. alle Zeilen von Spalte D bis L aus dem Tabellenblatt 1 in das Tabellenblatt 2 kopieren die in der Spalte H den Begriff "Haus" stehen haben.
Kann mir da bitte j...
03.12.2017 22:55:05
Thread-ID: 1595068
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Daten in Excel: Copy Paste in Schleife

Schritt-für-Schritt-Anleitung

Um die gewünschte Tabelle durch eine Schleife in Excel zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser Code kopiert die Daten aus deiner Tabelle und fügt sie entsprechend der geforderten Struktur ein:

Sub test()
    Dim Zelle As Range
    Dim Start As Range
    Set Start = Range("A4") ' Setze den Startpunkt deiner Daten

    For Each Zelle In Range(Start, Start.End(xlDown))
        Zelle.Resize(, 3).Copy
        Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Range(Start, Zelle).Resize(, 3).Copy
        Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        Selection.Columns(3).Value = Selection.Columns(3).Cells(1, 1).Offset(-1, 0).Value
    Next
End Sub

Führe diesen Code in der Excel-VBA-Umgebung aus, um die Daten zu kopieren und in der gewünschten Form anzuzeigen. Achte darauf, dass du die Zellen unterhalb von F3 leerst, bevor du das Makro ausführst.

Häufige Fehler und Lösungen

  1. Datumsformat stimmt nicht überein:

    • Überprüfe das Datumsformat in deiner Tabelle. Möglicherweise müssen die Zellen formatiert werden, um das richtige Format zu verwenden.

  2. Code funktioniert nicht in der Produktivdatei:

    • Stelle sicher, dass du die richtigen Bereiche im VBA-Code angegeben hast. Vergewissere dich, dass die Daten in der richtigen Struktur vorliegen.

  3. Kopierte Daten verschieben sich:

    • Achte darauf, dass du alle Schritte im Code korrekt ausführst. Die Schleife sollte die Daten wie gewünscht kopieren und einfügen.

Alternative Methoden

Wenn du keine VBA-Methoden verwenden möchtest, gibt es Alternativen:

  1. Manuelles Copy-Paste:

    • Du kannst die Daten manuell kopieren und einfügen, aber dies ist zeitaufwändig und nicht effizient.

  2. Formeln:

    • Verwende Formeln, um die Daten an den gewünschten Stellen anzuzeigen. Zum Beispiel kannst du die Funktion WENN verwenden, um zu überprüfen, ob ein Datum größer ist und entsprechend den Wert zu kopieren.

  3. Pivot-Tabellen:

    • Erstelle Pivot-Tabellen, um die Daten besser auszuwerten, anstatt sie in einer langen Liste zu führen. Hierbei kannst du auch die Bewegungsdaten analysieren.

Praktische Beispiele

Angenommen, du hast folgende Rohdaten:

Name Anzahl Datum
Hans 5 01.02.2020
Simone 10 05.04.2020
Stefan 6 07.04.2020
Brigitte 3 01.05.2020

Nach Ausführung des Codes sollte deine Tabelle wie folgt aussehen:

Name Anzahl Datum
Hans 5 01.02.2020
Hans 5 05.04.2020
Simone 10 05.04.2020
Hans 5 07.04.2020
... ... ...

Die Werte werden entsprechend dem Datum kopiert, sodass du die Stammdaten, Bewegungsdaten und Bestandsdaten in der gewünschten Form hast.

Tipps für Profis

  • Verwende Tastenkombinationen: Nutze Ctrl + C und Ctrl + V, um schnell zu kopieren und einzufügen. Dies kann besonders nützlich sein, wenn du große Datenmengen manuell bearbeiten musst.
  • Lege eine Vorlage an: Wenn du regelmäßig mit ähnlichen Daten arbeitest, erstelle eine Vorlage, die du immer wieder verwenden kannst.
  • Automatisierung: Überlege, ob du andere Prozesse in Excel automatisieren kannst, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Daten korrekt kopiert werden?
Überprüfe regelmäßig die Struktur deiner Daten und stelle sicher, dass die Zellformate stimmen.

2. Was tun, wenn der Code nicht funktioniert?
Überprüfe den Code auf Syntaxfehler und stelle sicher, dass du den richtigen Bereich in deiner Tabelle angegeben hast.

3. Kann ich das Copy-Paste ohne VBA durchführen?
Ja, du kannst Daten manuell kopieren und einfügen, aber es ist weniger effizient als die Verwendung eines Makros.

4. Welche Excel-Version benötige ich für das VBA-Skript?
Das Skript sollte in den gängigen Excel-Versionen wie Excel 2016 und später funktionieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige