set Anweisung
19.10.2019 11:34:24
Fred
ich möchte folgenden Code-Teil ändern;
Dim wbZiel As Workbook
Dim wbQuelle As Workbook
Dim wks1 As Worksheet, wks2 As Worksheet
Set wbZiel = ThisWorkbook
Set wbQuelle = Workbooks.Open(Sheets("Kriterien").Range("I3"))
Set wks1 = wbQuelle.Sheets("safe_01")
bei
Set wks1 = wbQuelle.Sheets("d1_09-10")
steht ja der Name ausgeschrieben-Der Neme soll allerdings in Sheets("Kriterien".Range("I4") zu finden sein.
Meine bisherigen "Varianten" sind fehlgeschlagen. Kann mir bitte jemand die korrekte Code-zeile schreiben.
Gruß
Fred