Bitte noch einmal Daniel ? Oder auch ...
24.10.2006 20:00:39
W.Kurt
hatte hier schon mal Unterstützung.
Ich komme einfach nicht weiter...
https://www.herber.de/forum/messages/813608.html
Leider funktioniert bei Dir das Makro nicht.
Makro:
Sub test()
If SHEET_prüfen_test() = True Then
MsgBox "JA"
Else
MsgBox "Nicht da "
End If
End Sub
Obwohl die Datei im Verzeichnis ist, wird die MsgBox "Nicht da "
angezeigt ! Nehme ich ein anders Laufwerk, Verzeichnis vorhanden, Sheet nicht,
wird ebenfalls MsgBox "Nicht da " angezeigt.
Hier das anderes Makro:
Private Function SHEET_prüfen_test()
Dim DateiNam As String
DateiNam = "c:\1_PKW_Verkauf_Verkäufer\1_VF-Altersstruktur-RR.xls"
If Dir(DateiNam) <> "" Then
MsgBox "Sheet da"
Else
MsgBox "Sheet nicht da"
End If
End Function
Ich bedanke mich im voraus,
gruß Kurti