Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
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
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

worksheet.range.select -> selection.copy

worksheet.range.select -> selection.copy
17.10.2018 11:40:25
Anna
Hallo liebe Excel-Freunde,
folgendes Problem. Ich habe 2 Arbeitsmappen. Anwendung und Auswertung.
Ich möchte nun von der Mappe "Anwendung", Daten aus der Mappe "Auswertung" kopieren und in ein Sheet einfügen.
Problem: In Auswertung befinden sich mehrere Sheets. Beim auswählen und kopieren des Bereichs aus Sheet1 klappt das super, möchte ich aber nun den gleichen Bereich aus Sheet2 auswählen und kopieren - bekomme ich Laufzeitfehler 450: Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft.
Könnte mir jmd sagen wo das Problem liegt? (Namen der Sheets etc. wurde alles schon zigmal von mir überprüft)
Hier mal der Codeschnipsel:

Set basisworkbook = ActiveWorkbook
Workbooks.Open Filename:=str_adr
Set tmpworkbook = ActiveWorkbook
'Markieren und kopieren der neuen Daten
Worksheets("sheet2").Range("A10:W300").Select
Selection.Copy
'Einspielen der neuen Daten in die neue Arbeitsmappe
basisworkbook.Activate
Sheets("NeuesSheet2").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Danke!

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

Betreff
Datum
Anwender
Anzeige
Wohl verbundene Zellen ? (owT)
17.10.2018 12:02:20
EtoPHG

AW: Wohl verbundene Zellen ? (owT)
17.10.2018 12:07:41
Anna
JA, stimmt. Gibt es denn dann keine Möglichkeit den Bereich des Sheets auszuwählen und in eine andere Arbeitsmappe zu kopieren?
Bereich mit verbundenen Zellen
17.10.2018 12:15:10
EtoPHG
Hallo Anna,
Dann musst du darauf achten, das der Bereich die verbundenen Zelle vollständig enthält.
D.h. ein Verbund darf nicht aus diesem Bereich "herausragen".
Gruess Hansueli
AW: Bereich mit verbundenen Zellen
17.10.2018 14:52:36
Anna
Hallo EtoPHG,
ich weiß nicht genau was du damit meinst - der verbund darf nicht "herausragen". Ich habe großzügig den Bereich markiert bzw. immer eine Spalte mehr im zu kopierenden Range - falls du das meinst.
Wäre dir sehr dankbar wenn du kurz erklärst was du mit dem Satz meinst.
Grüße zurück!
Anzeige
AW: Bereich mit verbundenen Zellen
17.10.2018 15:17:49
Daniel
HI
naja, wenn du die Spalten A:W kopierst, solltest du keinen Zellverbund haben, der vor Spalte W beginnt und nach Spalte W aufhört.
folgende Zellverbünde wären OK:
A1:W1
W1:Z1
problematisch könnte sein:
A1:Z1
W1:X1
Gruß Daniel
AW: worksheet.range.select -> selection.copy
17.10.2018 12:22:03
Daniel
Hi
hat jetzt nichts mit dem Fehler zu tun, aber wenn du Quell- und Zielworkbook schon so schön einzelnen Variablen zuweist, dann solltest du diese auch nutzen in der Zellreferenzierung verwenden, anstatt zu selektieren und aktivieren:
Set basisworkbook = ActiveWorkbook
Set tmpworkbook =  Workbooks.Open(Filename:=str_adr)
tmpworkbook.Worksheets("sheet2").Range("A10:W300").Copy
basisworkbook.Sheets("NeuesSheet2").Range("A2").PasteSpecial Paste:=xlPasteValues
wenn du nur Werte übertragen willst, kannst du auchfolgendes tun, das stört sich vielleicht weniger an deinen Zellverbünden: 
Set basisworkbook = ActiveWorkbook
Set tmpworkbook =  Workbooks.Open(Filename:=str_adr)
basisworkbook.Sheets("NeuesSheet2").Range("A2:W292").Value = tmpworkbook.Worksheets("sheet2").Range("A10:W300").Value

Gruß Daniel
gruß Daniel
Anzeige
AW: worksheet.range.select -> selection.copy
17.10.2018 14:50:23
Anna
Hallo Daniel,
vielen Dank für deinen Hinweis! Ich versuche mich stetig zu verbessern & sowas ist total hilfreich dabei. Ich hab das schon immer so gemacht, deshalb danke für deinen Vorschlag - er wird jetzt umgesetzt!

29 Forumthreads zu ähnlichen Themen

VBA Range.Select Problem
Heinz Mergler

Hallo,
ich habe ein Problem, das mich zum auswachsen bringt.
ich habe ein VBA geschrieben, indem dynamisch datensätze in form von Zeilen eingebaut werden sollen.
Jetzt möchte ich gerne um die Zeilen einen Rahmen rumbauen.
Die Zeilenanzahl variiert aber.so sieht der Code aus:Range("A...
13.08.2002 14:00:11
Thread-ID: 148083
4 Beiträge
Anzeige
Zellwert in VBA Range.Select übernehmen
MikeS

Hallo,
ich möchte einen Wert aus immer dergleichen Zelle (H3) in eine Range.Select-Formel übernehmen und habe u.a. folgendes probiert:Sub Format_GrundeinstellunG()
' Zeile1 ist die 1. Sprungmarke
' Zeile2 ist die 2. Sprungmarke
Dim Zeile1 As Integer
Dim Zeile2 As Integer
Works...
05.12.2002 12:25:10
Thread-ID: 189283
4 Beiträge
VBA-Range select
Peter/Berlin

Hallo Ulf, gestern (11.07.04 um 20:49 Uhr) ist mir ein Fehler unterlaufen,
die Frage lautet:
Von einem Excel-Programm "A.xls" wird per VBA ein weiteres, bereits geöffnetes Excel-Programm "B.xls" aktiviert
und darin das entspr. Blatt "ABC" selektiert mit:
Windows("B.xls").Activate:...
12.07.2004 12:13:38
Thread-ID: 453725
3 Beiträge
Anzeige
VBA-Worksheets().Rows().Select
Alexander

Hallo Forum. Ich hab da ein neues Problem.
Das ist meine Code:
Public Deckblatt As Worksheet
Sub AddRowBySelection() Set Deckblatt = ThisWorkbook.Worksheets("Deckblatt AUD") Deckblatt.Unprotect Deckblatt.Rows(20).Select Selection.Insert (xlShiftDown) Deckblatt.Protect DrawingObjec...
25.05.2005 10:30:51
Thread-ID: 615915
10 Beiträge
VBA Worksheet_SelectionChange(ByVal Target As Rang
Anne

Hallo,
ich möchte gerne das im Arbeitsblatt Bemessung das Private Sub Worksheet_SelectionChange(ByVal Target As Range) so ausgeführt wird, dass der geänderte Wert xF auch in dem Slider sofort nach Eingabe ändert.
Bisher muß ich die Zelle (xF) nochmals anklicken um dies zu erreichen! Und...
20.07.2005 16:30:02
Thread-ID: 639928
7 Beiträge
VBA Range("A3:C3,A6:C8").Select
Chris
hallo
Ich habe folgendes Problem. Ich habe ein Programm mit VBA geschrieben, dass am Freitag funktionierte. Heute morgen hat es nicht mehr funktioniert. An einem anderen PC läufts, wider bei einem anderen läufts nicht mit der gleichen Excelversion. Kann das an einer Einstellung liegen?
Rang...
29.11.2005 12:22:16
Thread-ID: 702175
10 Beiträge
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 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
3
2
3
2
11
9
6
9
5
9
4
8
3
2
5
3
1
3
2
2
12
11
9
6
9