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

2 und 3 Zeile kopieren und nebeneinander einfügen

Forumthread: 2 und 3 Zeile kopieren und nebeneinander einfügen

2 und 3 Zeile kopieren und nebeneinander einfügen
21.02.2025 23:45:24
Reiterk
Hallo zusammen, ich habe in eurem Forum schon öfters eine Lösung für meine Projekte gefunden,
aber diesmal war meine Suche erfolglos. Möchte folgende Aufgabe mit VBA lösen.
Daten aus Tabelle 1 Zeile 2 Bereich A2 bis H2 und Zeile 3 Bereich D3 bis H3 sollen kopiert werden,
und dann in Tabelle2 ab A2 nebeneinander eingefügt werden.
Musterdatei angehängt. https://www.herber.de/bbs/user/175925.xlsx
Anzahl der Datensätze in Tabelle 1 ist nicht immer gleich.
Danke im Voraus
Reiterk
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 und 3 Zeile kopieren und nebeneinander einfügen
22.02.2025 01:38:16
Uduuh
Hallo,
per Formel
Tabelle2!A2:H2: =INDEX(Tabelle1!A:A;ZEILE()*2-2)
Tabelle2!I2:M2: =INDEX(Tabelle1!D:D;ZEILE()*2-1)
und runter kopieren.

Gruß aus'm Pott
Udo
AW: 2 und 3 Zeile kopieren und nebeneinander einfügen
22.02.2025 02:02:42
Herbert
Hallo Reiterk,

Von der Grundfunktionalität sollte das eine Möglichkeit sein: 

Sub Übertragen()

Dim i%, lz%

For i = 2 To 22 Step 2

    With Sheets(1)

         lz = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1

        .Range(.Cells(i, 1), .Cells(i, 8)).Copy Sheets(2).Cells(lz, 1)

        .Range(.Cells(i + 1, 4), .Cells(i + 1, 8)).Copy Sheets(2).Cells(lz, 9)

    End With

Next

End Sub


Grüße Herbert
Anzeige
AW: 2 und 3 Zeile kopieren und nebeneinander einfügen
22.02.2025 15:04:09
Reiterk
Hallo Herbert,
Danke für die rasche Antwort, genau so habe ich mir die Grundfunktion vorgestellt.
Ist es möglich diesen Teil vom Code For i = 2 To 22 Step 2 zu ändern, weil die Anzahl der Datensätze in Tabelle1 sich jeden Tag ändert?
Besten Dank im Voraus

Grüße Reiterk
AW: 2 und 3 Zeile kopieren und nebeneinander einfügen
24.02.2025 08:03:03
MCO
Moin!

Das ist dann wohl so gemeint? 

Sub Übertragen()

    Dim i%, lz%, lz_1%

    lz_1 = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To lz_1 Step 2

        With Sheets(1)

             lz = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1

            .Range(.Cells(i, 1), .Cells(i, 8)).Copy Sheets(2).Cells(lz, 1)

            .Range(.Cells(i + 1, 4), .Cells(i + 1, 8)).Copy Sheets(2).Cells(lz, 9)

        End With

    Next

End Sub


Gruß, MCO
Anzeige
AW: 2 und 3 Zeile kopieren und nebeneinander einfügen
24.02.2025 23:26:21
Reiterk
Super Danke für die Hilfe

Forumthreads zu verwandten Themen

VBA: Spalten kopieren und vergleichen (dynamisch)
Emre

Hallo zusammen,
ich habe folgendes Problem:
Ich muss aus 3 Excel-Dateien jeweils eine Spalte in eine neue Excel-Datei importieren bzw. kopieren. 2 dieser 3 Spalten haben zwischen 1.000 und 2.000 Zeilen die 3. Datei hat um die 30.0000 Zeilen. Diese 3 Spalten muss ich dann in der neuen Ex...
30.10.2017 12:25:31
Thread-ID: 1588587
9 Beiträge
VBA - Sumproduct
Dip

Hallo Allerseits!
Gerne würde ich eine Problemstellung basierend auf das Planungsfile (siehe Datei im Anhang) einbringen, in der Hoffnung, dass mir jemand weiterhelfen kann.
https://www.herber.de/bbs/user/87528.xlsx
Es geht darum, die WBS Elemente (z.B. 1.1.1.2.1) in Spalte A, Blat...
15.10.2013 10:59:44
Thread-ID: 1334414
2 Beiträge
dyn. Tab - best. Bereich markieren
zira09

Hi,
ich benötige dringend Eure Hilfe. Nun zu meinem Problem. Ich möchte gerne eine Adressdatei erstellen. Leider wurden die Daten von einer Kollegin auf einzelne Tabellenblätter geschrieben,... und dann noch untereinander.
Das jeweilige Tabellenblatt sieht folgendermaßen in Excel aus (P...
03.02.2009 18:22:08
Thread-ID: 1046723
3 Beiträge
Werte aus feststehenden Bereich Kopieren
Maps
Hallo Liebe Community, Ich bin neu hier aber verfolge das Forum schon seit ein paar Jahren und habe auch schon einiges an Nutzen daraus Ziehen können für mein Projekt. Nun stehe ich vor ein Problem was meine Kenntnisse und meine noch laienhafte Erfahrung in VBA doch sehr fordert. In letzter Zeit, ko...
11.11.2021 04:18:35
Thread-ID: 1856079
10 Beiträge
Teile von Blatt in andere Datei kopieren
Blatt
Hallo,
ich habe eine Datei überarbeitet (Projektstunden-Tracking pro Mitarbeiter) und würde gerne aus der aktuell gepflegten Datei die Einträge in die neue Übertragen. Als einmalige Sache, aber da es >50 Blätter sind etwas zeitaufwändig. Da ich unerfahren bin was VBA mit mehrere Datei angeht...
30.05.2022 13:32:58
Thread-ID: 1885393
3 Beiträge
Neue Zeilen mit variablem Inhalt einfügen
Oliver Cl.
Hallo liebe Community,

ich bin hier nagelneu im Forum, aber ich habe hier bereits einige Lösungen für meine Probleme mit VBA gefunden und anwenden können.
Ich würde meine Kenntnisse in VBA als gering bezeichnen, da ich meist Copy & Paste betreibe und/oder den Makrorecorder nutze um...
12.01.2025 17:34:41
Thread-ID: 2001955
15 Beiträge
Zwischenergebnisse, Startzeilen, -spalten variabel
Dip

Guten Tag Allerseits,
Gerne würde ich eine Problemstellung im Forum einbringen, in der Hoffnung, jemand kennt die Lösung :-)
Im angehängten Excel File sieht man zwei Projekte.
Die von Hand eingegebenen Werte auf Stufe "Task" sollen auf Stufe "AP" summiert werden. Wiederum sollen dan...
29.10.2013 11:47:36
Thread-ID: 1336297
2 Beiträge
Autofilter - Gefilterten Bereich kopieren einfügen
Falk

Hallo zusammen,
folgendes Problem, meine Tabelle geht von Spalte A bis W und wird über eine SQL Datenbankabfragen befüllt. Die Filterung wird durch ein Makro gesteuert, was auch problemlos funktioniert.
Nun möchte ich wenn gefiltert ist, den Bereich zwischen Spalte F und W kopieren und...
20.02.2007 14:14:00
Thread-ID: 847869
1 Beitrag
Quellbereich beim kopieren
Oliver

Guten Morgen,
die Anwender können z.B. ganze Zeile kopieren oder aber nur Bereich kopieren (z.B. worksheets(1).range("A4:C4")). Diese wählt er selbst aus und kopiert (strg+v/Menü).
Nun geht er in ein anderes Blatt und fügt dort wieder ein. Nur eventuell an einer falschen Stelle (z.B. wo...
10.10.2007 08:39:00
Thread-ID: 914538
5 Beiträge
gefüllte Zellen kopieren - einfügen als Wert
Patrick

Hallo zusammen!
Bin seit Stunden... Tagen... auf der Suche nach einer Lösung. Hoffe einfach mal, dass ich hier Profis finde, die mein Problem a) verstehen und b) auch lösen können. :-) Basisinfo: Kenne mich einigermassen gut aus mit Funktionen, Formeln etc., VBA kann ich selber aber nur übe...
21.02.2008 11:55:57
Thread-ID: 953747
9 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