Hallo,
schlage mich mit Fehlermeldungen einer folgenden Funktion rum, die nacheinander mehrere Dateien öffnen und Werte darin auslesen soll, um sie in der Hauptroutine zu verarbeiten. Dabei taucht immer die Fehlermeldung: "Laufzeitfehler '9', Index außerhalb des gültigen Bereiches" auf. Der Code lautet stark vereinfacht so:
sub main()
call unterroutine (Pfad, Dateiname, Werteparameter)
' Diese Unterroutine soll mehrfach mit unterschiedlichen Dateinamen durchlaufen werden
end sub
sub unterroutine(Pfad As String, Dateiname as String, Werteparameter As String)
Dim xls_Mappe As Excel.Workbook
Dim xls_Blatt As Excel.Worksheet
Set xls_MappeRBL = Workbooks(Pfad & Dateiname)
'An dieser Stelle kommt der Laufzeitfehler, bevor Werte ausgelesen werden können
usw.
end sub
Ich habe das Gefühl, dass grundsätzlich daran etwas nicht in Ordnung ist. Wer weiß Rat?
Danke!
Grüße
Axel
|