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

2 Ranges kopieren und einfügen

Forumthread: 2 Ranges kopieren und einfügen

2 Ranges kopieren und einfügen
03.05.2019 13:11:38
Giorgi
Hallo an das Forum,
ich würde gerne die Range1("A3:B3, E3") kopieren und die Range2 ("A12:G") kopieren.
und in einem anderen offenen Sheet in der nächsten freien Zeile in A Range1 einfügen und in der nächsten freien Zeile in Spalte D die Range2 einfügen.
Leider kriege ich immer eine Errormeldung.
Hat jemand von Euch Anregung oder Tipps für mich?
Gruß G.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Ranges kopieren und einfügen
03.05.2019 13:14:45
Torsten
Hallo,
poste deinen Code oder die Datei und dir kann geholfen werden, denke ich
AW: 2 Ranges kopieren und einfügen
03.05.2019 13:33:11
Giorgi 

Sub Test()
Dim ZielDatei As String
Dim Range1 As Range
Dim Range2 As Range
Set Range1 = Range("A3:B3, E3")
Set Range2 = Range("A12:G")
Range1.Copy
Range2.Copy
ZielDatei = "C:\Users\Test\Desktop\Testdatei.xlsx"
Set wbk = Workbooks.Open(Filename:=ZielDatei)
With wbk.Sheets(1)
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row.PasteSpecial Paste:=xlPasteAll
ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row.PasteSpecial Paste:=xlPasteAll
End With
End Sub

Anzeige
AW: 2 Ranges kopieren und einfügen
03.05.2019 14:09:25
Torsten
Hallo,
Fehler schon in dieser Zeile: 
Set Range2 = Range("A12:G")
wo hoert das auf in Spalte G?
AW: 2 Ranges kopieren und einfügen
03.05.2019 14:17:41
Giorgi
Es hört in G12 auf. Fehler beim rüberkopieren.
Tut mir Leid
AW: 2 Ranges kopieren und einfügen
03.05.2019 15:07:49
Torsten
Hi Giorgi,
versuchs mal so: 
Sub Test()
Dim ZielDatei As String
Dim Range1 As Range
Dim Range2 As Range
Dim x As Long, y As Long
Set Range1 = ThisWorkbook.ActiveSheet.Range("A3:B3, E3")
Set Range2 = ThisWorkbook.ActiveSheet.Range("A12:G12")
Range1.Copy
Range2.Copy
ZielDatei = "C:\Users\Test\Desktop\Testdatei.xlsx"
Set wbk = Workbooks.Open(Filename:=ZielDatei)
With wbk.Sheets("Sheet1")
x = .Cells(Rows.Count, 1).End(xlUp).Row
y = .Cells(Rows.Count, 4).End(xlUp).Row
Range1.Copy
.Cells(x, 1).PasteSpecial Paste:=xlPasteAll
Range2.Copy
.Cells(y, 4).PasteSpecial Paste:=xlPasteAll
End With
End Sub
Gruss Torsten
Anzeige
AW: 2 Ranges kopieren und einfügen
06.05.2019 10:38:13
Giorgi
Hallo Torsten,
der Code funktioniert einwandfrei.
Vielen lieben Dank für deine Mühe.
Gruß Giorgi
AW: 2 Ranges kopieren und einfügen
08.05.2019 11:23:32
Torsten
Hi Giorgi,
freut mich. Danke fuer die Rueckmeldung

Forumthreads zu verwandten Themen

Autofilter-Phänomen in Excel 2000 Arbeitsmappe
steff

Hallo, liebe Forumsmitglieder,
ich hoffe, ihr könnt mir helfen. Ich habe ein Problem mit einer Excelmappe (XLS 2000), welches (wohl) mit dem Autofilter zusammenhängt. Die Mappe habe ich leider nicht auf meinem priv. PC vorliegen bzw. kann auch nicht veröffentlicht werden, da vertraulich.
05.01.2009 13:59:00
Thread-ID: 1036947
2 Beiträge
Fehler bei meiner Loop-Funktion
Manuel

Guten Morgen,
ich bin noch relativ neu im VBA-Geschehen, konnte mir bislang aber immer ganz gut mit den verschiedensten Forenbeiträgen (vor allem diesen) weiterhelfen.
Jetzt verstehe ich das Problem allerdings nicht.
Kurz vorweg:
Ich habe 6 Tabellenblätter:
Deckblatt
Sta...
29.05.2020 13:15:10
Thread-ID: 1762038
2 Beiträge
Anzeige
VBA Code Kürzen / INTELLIGENTER schreiben
Mark.

Hallo zusammen,
ich brauch dringen HILFE würde gerne mein VBA-CODE kürzen bzw. intelligenter schreiben.
Der VBA-CODE fügt Kommentare, Tabellen und Graphen in eine PowerPoint-Präsentation ein. Je PowerPoint Folie eine Tabelle (als Bild kopiert), ein Graphen und eine TextBox mit den Komme...
09.02.2016 18:54:31
Thread-ID: 1474392
7 Beiträge
Immer erste Mappe ansprechen und bestimmten Bereich kopieren
KamKam
Hallo zusammen,

ich bin neu im Forum und freue mich auf eine interessante Mitgliedschaft. Vor allem freue ich mich auf mein Wissen, dass ich mir hier zusätzlich aufbauen und mit euch Erfahrungen rund um VBA austauschen kann.

Ich komme gleich mit einem ersten Thema, das mich seit gu...
03.05.2024 00:04:57
Thread-ID: 1976425
18 Beiträge
VBA - Nach Markierung bestimmte Werte einfügen
Simon

Guten Tag,
ich versuche momentan Tabellen zu überarbeiten und bin auf ein Problem gestoßen, dass scheinbar nur über VBA zu lösen ist. Leider sind meine Kenntnisse in VBA nur sehr rudimentär.
Aufbau:
Ich habe 3 Tabellenblätter. Im ersten Blatt, nennen wir es mal "A", wird zu bestimmt...
20.07.2015 15:56:48
Thread-ID: 1437402
13 Beiträge
VBA Zellbereich kopieren
Karin

Hallo Forum,
ich muss von einem Tabellenblatt bei bestimmten Bedingungen Zellbereiche in ein anderes Tabellenblatt kopieren. Eigentlich leicht, dachte ich ... In den XL-Beispielen habe ich auch ein wunderbares Makro gefunden, das per Doppelklick den gesamten Zellbereich in das zweite Tabell...
14.07.2009 21:08:09
Thread-ID: 1088630
9 Beiträge
Anzeige
VBA Kopieren von Zeilen auf anderes Tabellenblatt Probleme
Vectra
Hallo Experten, ich möchte nach Zeilen im Tabellenblatt "1" suchen und diese dann an eine bestimmte Pos. im Blatt "2" einfügen.
Gesucht werden soll nach dem Wort in gelb ("und" zb) und die entsprechende Zeile dann auf TabBlatt "2" kopiert werden.
Es tritt aber immer ein Problem auf, abhängig...
25.03.2025 13:35:12
Thread-ID: 2009550
3 Beiträge
VBA: Nur gefilterte Datensätze in anderes Blatt kopieren
Fritz_W
Hallo Forumsbesucher,

nachdem mir vor einigen Tagen hier in diesem Forum wieder einmal durch so prima Vorschläge geholfen wurde, bitte ich erneut um eure Unterstützung.
Ich möchte aus einer gefilterten (intelligenten) Tabelle (Tabellenname "Liste2") einzelne Spalten kopieren und nur di...
19.12.2023 19:00:45
Thread-ID: 1958171
14 Beiträge
Tabelle Markieren
Daniel

Hallo zusammen,
Ich habe in einem Tabellenblatt mehrere Tabellen (zB. A1:C10 und D1:F20). Ich möchte jetzt eine der Tabellen, die nicht immer die gleiche grösse hat kopieren und in ein anderes Tabellenblatt einfügen. Wie kann man das in VBA realiesieren.
Gruss und Dank
Daniel
24.09.2004 15:02:54
Thread-ID: 490299
1 Beitrag
Zelleninhalte kopieren in neues Blatt
Andrea

Servus zusammen,
ich sitze jetzt seit 3 Stunden hier und bekomme das einfach nicht hin auch in der Suche bin ich leider nicht fündig geworden:
Kurz zum Problem:
Ich habe ein Rohdatenblatt, welches ich aus einem anderen System kopiere. Automatisch soll dann auf anderen Blättern Infor...
01.09.2014 23:49:15
Thread-ID: 1379411
6 Beiträge
Anzeige
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