Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:54:17
Durchschnittswerte zwischen Tagen berechnen
16.04.2024 09:51:15
Frage: KPI - Logistik Dashboard
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range Copy Value

Range Copy Value
20.07.2017 11:41:22
Steve
Hallo, ich versuche aus einem Tabellenblatt Werte einer Spalte in die dazugehörige Spalte eines anderen Tabellenblattes (eines anderen Workbooks) zu kopieren.
Die Zieltabelle liefert mir die Formatierung, die Quelltabelle die Werte.
  • wbQuelle.Range((Cells(2, counter2)), Cells(lastrow_quelle, counter2)).Copy Destination:=wbZiel.Range(Cells(2, counter1), Cells(lastrow_quelle, counter1)), PasteSpecialPaste:=xlValues

    • Ich versuche an dieser Stelle nur die Werte zu kopieren. Die Spalten stimmen zwischen Quelle und Ziel nicht überein, diese werden anhand der Bezeichnung zugeordnet. Fehlermeldung: Laufzeitfehler
    Danke.

    6
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Range Copy Value
    20.07.2017 11:59:28
    Michael
    Hallo!
    Innerhalb eines Copy-Befehls kannst Du PasteSpecial (das bei Dir auch noch falsch geschrieben ist) nicht nutzen. Dafür braucht es zwei Methoden, schematisch:
    Range("A3:A55").Copy
Range("B3").PasteSpecial xlPasteValues
    Beachte: Es heißt NICHT PasteSpecialPaste:=xlValues...
    LG
    Michael
    AW: Range Copy Value
    20.07.2017 12:49:57
    Steve 
    
wbQuelle.Range((Cells(2, counter2)), Cells(lastrow_quelle, counter2)).Copy
wbZiel.Range(Cells(2, counter1), Cells(lastrow_quelle, counter1)).PasteSpecial xlPasteValues
    Bringt mir allerdings immer noch eine Fehlermeldung Laufzeitfehler 1004. Denke es liegt am .Range?!
    Anzeige
    AW: Range Copy Value
    20.07.2017 13:05:01
    Werner
    Hallo Steve,
    weil deine Referenzierung nicht stimmt. So wie du das schreibst muss vor allen Range-Objekten (Range, Cells) das entsprechende Blatt gesetzt werden.
    Das wäre dann so: 
    wbQuelle.Range(wbQuelle.Cells(2, counter2), wbQuelle.Cells(lastrow_quelle, counter2)).Copy
wbZiel.Range(wbZiel.Cells(2, counter1), wbZiel.Cells(lastrow_quelle, counter1)).PasteSpecial _
xlPasteValues
    Zudem muss bei dieser Schreibweise Quell und Zielbereich gleich groß sein.
    Kürzere Schreibweise über eine With - End With Klammer. Da wird dann auf das beim With angegebene Blatt referenziert, indem vor den jeweiligen Range-Objekten (Range, Cells) ein Punkt gesetzt wird.
    Zudem reicht normalerweise beim Ziel die Angabe der linken oberen Zelle des Zielbereichs.
    Das wäre in deinem Fall: 
    With wbQuelle
.Range(.Cells(2, counter2), .Cells(lastrow_quelle, counter2)).Copy
wbZiel.Cells(2, counter1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
    Gruß Werner
    Anzeige
    AW: Range Copy Value
    20.07.2017 13:45:51
    Steve
    Vielen Dank.
    Läuft!!
    Gerne u. Danke für die Rückmeldung. o.w.T.
    20.07.2017 13:49:01
    Werner
    AW: Range Copy Value
    20.07.2017 13:05:39
    Michael
    Hallo!
    Denke es liegt am .Range?!
    Ja. Gib keinen Ziel-Bereich an, sondern eine Ziel-Zelle.
    Bsp.
    Range("A1:A24").Copy
Range("C5").PasteSpecial xlPasteValues
    oder
    Range("A1:A24").Copy
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    LG
    Michael

    56 Forumthreads zu ähnlichen 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
    Anzeige
    Range(.Offset(1, 2), .Offset(???, 0)).Copy
    K.

    Hallo allerseits,
    ich möcht etwas folgendermaßen kopieren:
    With ActiveCell
    Range(.Offset(1, 2), .Offset(5, 0)).Copy
    End With
    Klappt so ja auch.
    Allerdings ist die 5 variabel und soll sich bis zur letzten gefüllten Zelle (der ActiveCell.Column) erstrecken. Hab schon alles...
    13.01.2012 08:54:27
    Thread-ID: 1245977
    3 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 range und Offset
    Chris

    Hallo zusammen,
    ich komme leider bei einer Sache gar nicht weiter:
    Nachdem der Autofilter im Bereich K5:Q707 alle "1er" anzeigt, will ich die links neben den erscheinenden Inhalte liegenden Zellen kopieren, das sind die Zellen F:K.
    Egal was ich bei Offset(...) eingebe, ich kriege...
    05.04.2013 17:05:35
    Thread-ID: 1307493
    7 Beiträge
    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
    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

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    10
    6
    2
    8
    6
    6
    7
    3
    6
    3
    1
    2
    7
    5
    1
    3
    2
    2
    4
    1
    6
    2
    4
    10
    4