Wie bekomme ich Workbooks(x).Sheets(x) in eine Variable?
Da ich von einer Tabelle viel in eine andere kopieren möchte, möchte ich nicht immer
Workbooks(x).Sheets(x).Range("A1").Value = Workbooks(y).Sheets(y).Range("A1").Value
Workbooks(x).Sheets(x).Range("B7").Value = Workbooks(y).Sheets(y).Range("B7").Value
Workbooks(x).Sheets(x).Range("D5").Value = Workbooks(y).Sheets(y).Range("D5").Value
...
schreiben müssen (eine Schleife ist nicht möglich)
Ich hatte versucht
Dim wks1 As Workbooks, wks2 As Workbooks
Set wks1 = Workbooks("xyz.xls").Sheets(1)
Set wks2 = Workbooks(2).Sheets(1)
erhielt aber in der Set-Zeile den Fehler 13, "Typen unverträglich".
Was muss ich eingeben, damit ich Workbooks(x).Sheets(x) in einer Variablen zusammenfassen kann und nur schreiben muss
wks1.Range("A1").Value = wks2.Range("A1").Value
wks1.Range("B7").Value = wks2.Range("B7").Value
wks1.Range("D5").Value = wks2.Range("D5").Value
...
Oder ist das so gar nicht möglich?
Vielen Dank schon mal für Eure Ideen.
Bye
Thorsten