für einige Dateien möchte ich aus Vereinfachungsgründen den gleichen Code verwenden. Da ich aus weiteren Vereinfachungen in dem Quellcode wieder subs anspreche, stellt sich die Frage, wie ich die Dateinamen bzw. Pfadangabe variabel gestalten kann (Dateien sind schreibgeschützt und nicht mehr änderbar). Das heißt: wenn die erste Datei geöffnet wird soll sich wsOverview auf wb("01.xls") beziehen und das für alle angesprochenen subs in einem code, dann schließt der code wb("01.xls") und öffnet wb("02.xls") ...
Gibt es Möglichkeiten?
Dim wsOverview As worksheet
Dim wsAuslesenBSC_Abt As worksheet
Dim wbStandortziele As Workbook
Dim wbRisikoverfolgung As Workbook
Workbooks.Open Filename:="Pfad\01.xls", UpdateLinks:=0
Set wsOverview = Workbooks("01.xls").Worksheets("Overview")
Set wbStandortziele = Workbooks("01.xls")
Call ProzessAuslesenStandort(ZeileAuslesen)
Windows("01.xls").Close
Workbooks.Open Filename:="Pfad\02.xls", UpdateLinks:=0
Set wsOverview = Workbooks("02.xls").Worksheets("Overview")
Set wbStandortziele = Workbooks("02.xls")
Call ProzessAuslesenStandort(ZeileAuslesen)
Windows("02.xls").Close
Danke,
eva