Application.Run funktioniert nicht
24.04.2007 15:09:00
Ralf
benötige Eure Hilfe. Sobald ich das Makro aufrufe, erfolgt die Fehlermeldung " 'Datei.xls' wurde nicht gefunden". Wo liegt in der Zeile "Application.Run ...." der Fehler?
Sub Makro1()
Pfad = Application.ThisWorkbook.Path & "\"
Ext = "Beispiel 100xz*.xls"
If Pfad = "" Then
Exit Sub
Else
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:= _
Pfad & Datei, _
UpdateLinks:=0
Windows(Datei).Activate
MsgBox Datei 'hier wird der korrekte Dateiname angezeigt
Application.Run ("'Datei'!Leere_Zeilen_ausblenden") 'hier findet er nicht die Datei _
und führt das Makro somit nicht aus
Workbooks(Datei).Close SaveChanges:=True
Datei = Dir()
Loop
End If
End Sub
Viele Dank im Voraus für Eure Hilfe