|
Hallo zusammen,
ich hoffe Du kannst mir helfen. Ich habe in einer Excel-Datei ein Makro programmiert, dass alle Dateien (Excel) in einem Verzeichnis öffnet und prüft, ob der Wert der einen Zelle größer ist als der einer anderen Zelle. Falls das der Fall ist, soll dies angezeigt werden. Nach dem Aufrufen des Makros wird zwar die erste Datei geöffnet, aber dann der folgende Fehler angezeigt:
Laufzeitfehler 9. Index außerhalb des gültigen Bereichs.
Beim Debugging wird die fettgedruckte Zeile im unten aufgeführten Makro gelb unterlegt.
Wie kann ich das Makro korrigieren?
Danke
Sub Dateien_prüfen()
Dim Dateiname As String
Dim StrTyp As String
Dim Dateipfad As String
Dateipfad = ThisWorkbook.Path & "\" & "Live\"
StrTyp = "*.xlsb"
Dateiname = Dir(Dateipfad & StrTyp)
Do While Dateiname <> ""
Workbooks.Open Filename:=Dateipfad & Dateiname
'Überprüfung, ob Handlungsbedarf
If Sheets("Tab1").Range("AE11").Value > Sheets("Tab1").Range("AF11").Value Then
MsgBox "Handlungsbedarf"
End If
Dateiname = Dir
Loop
End Sub
|