Hallo! Ich habe folgendes Problem: Ich möchte ein Makro programmieren, dass in einer Übersichtsdatei (mit dem Tabellenblatt "HYPF") verschiedene Daten aus 11 verschiedenen Quelldateien zieht, dort jeweils aus dem Tabellenblatt "Daten HYPF". In den ersten Gehversuchen habe ich das Makro 11x mal kopiert, jetzt möchte ich es aber in einer Schleife automatisieren. Ich scheitere aber an der Öffnung bzw. Zuweisung des Tabellenblattes "Daten HYPF"!
Hier der Code:
Sub HYPF()
Application.DisplayAlerts = False
'Variablendeklaration
Dim m As Integer
Dim wb_Quelldatei As String
Dim wb_Zieldatei As String
Dim ws_Quelldatei As Worksheet
Dim ws_Zieldatei As Worksheet
Dim Datei(1 To 11) As String
Datei(1) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Aareal Bank\Emittentenprofil\Covered\Deckungsstockdaten_Aareal Bank.xls"
Datei(2) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\BayernLB\Deckungsstockdaten_BayernLB.xls"
Datei(3) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Berlin Hyp\Emittentenprofile\Deckungsstockdaten_Berlin Hyp.xls"
Datei(4) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Deutsche Hypo\Emittentenprofil\Deckungsstockdaten_Deutsche Hypo.xls"
Datei(5) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Deutsche Pfandbriefbank\Deutsche Pfandbriefbank\Emittentenprofil\Deckungsstockdaten_DEPFA.xls"
Datei(6) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\DG Hyp\Deckungsstockdaten DG Hyp.xls"
Datei(7) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Eurohypo\Emittentenprofil\Deckungsstockdaten_Eurohypo.xls"
Datei(8) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\LBBW\Deckungsstockdaten LBBW.xls"
Datei(9) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Münchener Hyp\Emittentenprofil\Deckungsstockdaten_Münchener Hyp.xls"
Datei(10) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\Unicredit\Deckungsstockdaten Unicredit Bank.xls"
Datei(11) = "O:\Dat\5560\02Alle\Covered_Bond_Research\Emittenten\Emittentenprofile\WL Bank\Emittentenprofil\Deckungsstockdaten_WLBank.xls"
For m = 1 To 11
Workbooks.Open Datei(m)
wb_Quelldatei = Datei(m)
Worksheets.Open "Daten HYPF"
Set wb_Zieldatei = ActiveWorkbook
'Pfandbriefvolumen in Mio. Euro
ws_Zieldatei.Cells(8, m * 2 + 1) = ws_Quelldatei.Cells(15, 3)
ws_Zieldatei.Cells(9, m * 2 + 1) = ws_Quelldatei.Cells(26, 3)
ws_Zieldatei.Cells(10, m * 2 + 1) = ws_Quelldatei.Cells(37, 3)
...
ActiveWorkbook.Close False
Next m