Guten Morgen!
*****
ChDir "C:\Documents and Settings\xyz\Desktop\Test1\Test2"
NameDatenquelle = Application.GetOpenFilename("Microsoft Excel Worksheet (*.xls), *.xls")
If NameDatenquelle "Falsch" Then
'Worksheets("Start").Range("B3").Value = NameDatenquelle
Workbooks.Open NameDatenquelle
Sheets(1).Move After:=Workbooks("Monatsauswertung Fehlerarten OF.xls").Sheets(8)
...
End If
*****
Ich hab' folgende, kurze Frage: Problem: Existiert dieser voreingestellte Pfad (ChDir) nicht, oder hat der User keine Zugangsberechtigung, resultiert eine Fehlermeldung... :-( Tritt dieser Fall ein, sollte eine MsgBox mit einer Info aufgehen und danach ein neuer Öffnen-Dialog mit dem Standard-Pfad "C:\", der ja immer existieren muss.
Hat jemand einen Rat, wie ich das programmieren kann?
Vielen, vielen Dank!!!
Christian