Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1692to1696
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
Inhaltsverzeichnis

Bereich aus einem WB in ein anderes WB kopieren

Bereich aus einem WB in ein anderes WB kopieren
21.05.2019 14:03:38
Edgar
Hallo,
ich bin fast am verzweifeln und bekomme mein Problem nicht gelöst. Auch nach stundenlanger Suche habe ich nichts gefunden, was meiner Anforderung entspricht.
Ich habe eine Arbeitsmappe WB1 geöffnet. Darin befinden sich zwei Arbeitsblätter WS1 und WS2.
Dann habe ich noch WB2 mit dem WS3.
Nun befinde ich mich auf WB1, WS1 und aktiviere einen Button CB1. Der soll:
aus WB2, WS3 den Bereich F2:M10 nach WB1, WS2 Bereich F2:M10 kopieren.
Was ich nicht schnalle ist, welches WB geöffnet sein muss und welches WS aktiviert sein muss. Egal wierum ich es probiere, ich bekomme immer Fehlermeldungen wie Index ausserhalb des Bereiches, Methode für Objekt ungültig, u.s.w.
Kann doch eigentlich nicht so kompliziert sein.
Ich freue mich schon auf Experten-Antworten,
Danke!

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

Betreff
Datum
Anwender
Anzeige
AW: Bereich aus einem WB in ein anderes WB kopieren
21.05.2019 14:51:08
Rudi
Hallo,
Sub Kopie()
Dim wbQUELLE As Workbook
Dim wbZIEL As Workbook
Const strQUELLE As String = "wb2.xlsx"  'anpassen
Set wbZIEL = ActiveWorkbook
On Error Resume Next
Set wbQUELLE = Workbooks(strQUELLE)
On Error GoTo 0
If wbQUELLE Is Nothing Then 'Quelle ist nicht geöffnet
Set wbQUELLE = Workbooks.Open("c:\test\" & strQUELLE) 'Quelle öffnen
End If
wbQUELLE.Sheets("ws3").Range("F2:M10").Copy wbZIEL.Sheets("ws2").Range("F2")
wbQUELLE.Close False  'Quelle schließen ohne zu speichern
End Sub

Gruß
Rudi
AW: Bereich aus einem WB in ein anderes WB kopieren
21.05.2019 15:00:53
EtoPHG
Hallo Edgar,
Code für den CB1:
Sub CB1_Click()
Dim WB1 as Workbook, WS2 as Worksheet
Dim WB2 as Workbook, WS3 as Worksheet
Set WB1 = Thisworkbook
Set WS2 = WB1.Worksheets("WS2") 'WS2 "String" durch Registernamen ersetzen
Set WB2 = Workbooks("WB2")      'WB2 "String" durch vollständigen Mappennamen ersetzen
Set WS3 = WB2.Worksheets("WS3") 'WS3 "String" durch Registernamen ersetzen
WS3.Range("F2:M10").Copy Destination:=WS2.Range("F2")
End Sub
Gruess Hansueli
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige