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