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

Copy paste mit range als variable

Forumthread: Copy paste mit range als variable

Copy paste mit range als variable
18.07.2018 13:22:00
Ed
Hallo,
ich habe eine Arbeitsmappe (geöffnet ) mit dem Sheet "1". Nun möchte ich aus einer zweiten Arbeitsmappe, die ich gerade geöffnet habe vom Sheet "Tipp1" den Bereich F3:F33 in den Bereich F3:F33 von "1" kopieren.
Dabei ist F die Spalte im Ziel ("1") und muss variabel sein
Wie kann ich das Kopieren anstellen und wie kann ich den Bereich so Darstellen: Range("var3:var33)?
Range(cells(3,6),cells(33,6)) funktioniert nicht
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy paste mit range als variable
18.07.2018 13:45:49
Daniel
Hi
Im Prinzp so:
dim Sp als Long 'variable Kopierspalte
Sp = 6
ActiveWorkbook.Sheets("Tipp1").Cells(3, sp).Resize(31, 1).copy
ThisWorkbook.Sheets("1").Cells(3, sp).PasteSpecial xlpasteall
wenn du mit mehren Mappen oder auch Tabellen arbeitest, dann musst du bei Range(cells(3,6),cells(33,6)) die Mappe (Workbooks()) und das Tabellenblatt (Sheets()) vor den den beiden Cells innerhalb der Range angeben!
das wird dann unübersichtlich.
Range(Worbook(...).Sheets(...).cells(3,6),Workbooks(...).Sheets(...).cells(33,6))
Definiere einen größeren Zellbereich über Cells.Resize, dann musst du Workbook und Sheet nur 1x hinschreiben.
beim Einfügen reicht es aus, als Ziel die linke obere Zelle anzugeben, dh hier brauchst du keine Range, sonderen das einfache Cells reicht aus.
Gruß Daniel
Anzeige
AW: Copy paste mit range als variable
18.07.2018 14:07:59
Ed
Hallo Daniel,
funktionert einwandfrei! Ich wusste nicht, das man bei Range(cells()) die Angaben für Workbook und Worksheet machen muss. Nach Deiner Beschreibung aber eigentlich logisch.
Vielen Dank für Deine schnelle, qualifizierte Hilfe
Edgar
;

Forumthreads zu verwandten Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
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
PasteSpecial statt copy Range geht nicht
Burghard

Hallo,
ich möchte mittels dieses Makros nur die Werte einfügen (also nicht mittels copy):
Sub Leerzellen_auffuellen() Dim L As Long Dim Bereich As Range For L = 1 To 10000 If WorksheetFunction.CountIf(Range(Cells(L, 6), Cells(L, 8)), "") = 3 Then _ Range(Cells(L, 1), Cells(L, 2)).Copy R...
21.01.2013 17:34:43
Thread-ID: 1295268
9 Beiträge
Anzeige
Copy/Paste funktion für bestimmten Range sperren
StefanG

Hallo zusammen,wie kann ich die Copy/paste Funktion für einen Bestimmten Range sperren?Ich möchte für einen bestimmten Zellrange die möglichkeit sperren etwas reinzukopieren. Geht das, wenn ja, wie?das ganze soll Sheet spezifisch sein, also unter Worksheet laufen.GrußStefan
11.07.2002 08:08:54
Thread-ID: 135585
8 Beiträge
Range - Copy Destination & PasteSpecial
Thomas

Hallo Erich & Bastian!
Vielen Dank für Eure Hilfe, leider war der Thread schon geschlossen (von mir?) und ich konnte nicht mehr auf Antworten...
Jedenfalls hat die Variante von Erich bestens funkioniert und ich werde sie auch verwenden, die von Dir Bastian leider nicht - zumindest i...
07.10.2013 22:21:30
Thread-ID: 1333486
4 Beiträge
Anzeige
VBA select then copy then paste
Paul

Hallo Leute,
ich hoffe Ihr könnt mir helfen. Ich möchte aus Tabelle 1 zunächst Spalte M nach dem Wert/Wort "Germany" durchsuchen, anschließend aus der Spalte AF den korrespondierenden Wert in Tabelle 2 Spalte F einfügen. Das ganze sollte möglichst über ein Command Button in Tabelle 2 laufe...
27.12.2013 18:35:00
Thread-ID: 1343585
7 Beiträge
VBA: Dynamisches Copy-Pasten mittels Identifier
Hamiltonian

Hallo liebe Forengemeinde,
nachdem ich schon eine halbe Ewigkeit fleißig mitlese und mir die ein oder andere Antwort wie auch Tutorials über schwere Excelzeiten hinweg geholfen haben, muss ich mich jetzt doch mit einem eigenen Thread mal an euch wenden.
Vorab: Ich konnte in der Suche ni...
22.04.2014 20:00:18
Thread-ID: 1358213
4 Beiträge
Copy Paste abfangen - VBA ! Erweitert...
Thorben

Guten morgen alle zusammen,
ich habe hier diese Datei von Tino in der Recherche gefunden (geiles Teil ;)
https://www.herber.de/bbs/user/70002.xls
Nun hab ich die Frage ob man es so anpassen kann (und wenn ja wie) dass, egal in welchem Blatt ich "paste" anwende, immer in Tabelle X (...
13.05.2014 08:38:20
Thread-ID: 1361235
2 Beiträge
per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
Anzeige
VBA Copy/Paste Spalten in andere Datei
Sio
Hallo, lerne gerade VBA und bastel gerade an folgendem Makro:
Ziel des Makros:
-Spalten A:C kopieren
- Datei auswählen wohin es kopiert werden soll
- Einfügen in ein spezielles Worksheet dieser Datei
- Refresh der Datei
- schließen der Datei woraus es kopiert wurde
Das...
23.08.2014 11:23:10
Thread-ID: 1377842
6 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
VBA Copy/Paste über ext. Datei und Auswahlliste
Thomas

Guten Abend.
Ich bin wieder total gerädert.
Seit Stunden sitzte ich an folgendem Problem:
ich möchte aus einer Listbox (die über einen Button geöffnet wird) auf eine ausgewählte (externe und bereits geöffnete) Datei zugreifen, und dann von der ausgewählten Datei in einem Tabellenbla...
29.10.2014 22:55:27
Thread-ID: 1389492
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Copy-Paste mit Range als Variable in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Variablen definieren: Lege eine Variable für die Spalte fest, die Du kopieren möchtest. Beispiel:

    Dim Sp As Long ' variable Kopierspalte
Sp = 6 ' entspricht Spalte F

  2. Bereich kopieren: Verwende Cells und Resize, um den gewünschten Bereich zu kopieren. Beispiel:

    ActiveWorkbook.Sheets("Tipp1").Cells(3, Sp).Resize(31, 1).Copy

  3. Bereich einfügen: Füge den kopierten Bereich in das Zielblatt ein, indem Du nur die obere linke Zelle angibst:

    ThisWorkbook.Sheets("1").Cells(3, Sp).PasteSpecial xlPasteAll

  4. Workbook und Worksheet angeben: Wenn Du zwischen mehreren Arbeitsmappen und Tabellenblättern wechselst, stelle sicher, dass Du die richtigen Referenzen angibst:

    Workbooks("DeineMappe.xlsx").Sheets("Tipp1").Cells(3, Sp).Copy
Workbooks("DeineZielMappe.xlsx").Sheets("1").Cells(3, Sp).PasteSpecial xlPasteAll

Häufige Fehler und Lösungen

  • Fehler: PasteSpecial-Methode des Range-Klasse fehlgeschlagen: Dies passiert oft, wenn das Zielblatt nicht existiert oder die Zielzelle ungültig ist. Stelle sicher, dass das Zielblatt und die Zelle korrekt angegeben sind.

  • Fehler bei Range(cells()): Wenn Du Range(cells()) verwendest, vergiss nicht, auch die Workbook- und Worksheet-Namen anzugeben, um Verwirrungen zu vermeiden.

Alternative Methoden

  • Direktes Kopieren ohne Range: Anstatt Range.Copy zu verwenden, kannst Du auch direkt Cells.Copy verwenden, was oft einfacher ist:

    ThisWorkbook.Sheets("1").Cells(3, Sp).Copy

  • Verwendung von Value: Wenn Du nur die Werte kopieren möchtest, kannst Du Value verwenden, um eine schnellere Ausführung zu erzielen:

    ThisWorkbook.Sheets("1").Cells(3, Sp).Value = ActiveWorkbook.Sheets("Tipp1").Cells(3, Sp).Value

Praktische Beispiele

Hier sind einige praktische Beispiele, um das Kopieren von Bereichen in Excel VBA zu verdeutlichen:

  1. Kopiere einen Bereich von einer Tabelle in eine andere:

    Dim Sp As Long
Sp = 6 ' F-Spalte
' Kopiere von Tipp1 nach 1
ActiveWorkbook.Sheets("Tipp1").Range(Cells(3, Sp), Cells(33, Sp)).Copy
ThisWorkbook.Sheets("1").Cells(3, Sp).PasteSpecial xlPasteAll

  2. Schleife für mehrere Spalten:

    Dim Sp As Long
For Sp = 6 To 10 ' F bis J
   ActiveWorkbook.Sheets("Tipp1").Cells(3, Sp).Resize(31, 1).Copy
   ThisWorkbook.Sheets("1").Cells(3, Sp).PasteSpecial xlPasteAll
Next Sp

Tipps für Profis

  • Vermeide Select und Activate: Diese Methoden machen den Code langsamer und fehleranfällig. Arbeite stattdessen direkt mit den Objekten.

  • Nutze Application.ScreenUpdating = False: Deaktiviere die Bildschirmaktualisierung, um die Ausführung zu beschleunigen. Vergiss nicht, sie am Ende wieder zu aktivieren:

    Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich den kopierten Bereich automatisch anpassen? Du kannst Resize verwenden, um die Größe automatisch anzupassen, basierend auf der Anzahl der Zeilen und Spalten, die Du kopieren möchtest.

2. Was ist der Unterschied zwischen Copy und Value? Copy kopiert das gesamte Format und die Inhalte, während Value nur die Werte in die Zielzelle einfügt, ohne das Format zu übernehmen.

Beliebteste Forumthreads (12 Monate)

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