Wenn Ordner noch nicht existiert dann MsgBox Meld.
04.12.2008 06:21:22
Josef
Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
Dim dokname
Dim dokname2
dokname = Range("Tabelle1!D1").Value
dokname2 = Range("Tabelle1!D2").Value
With Application.FileDialog(4)
.InitialFileName = "K:\Allg_dat\TRANSFER\HST\ABT08\" & dokname2 & "\" & dokname & "\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
Else
Exit Sub
End If
End With
dies würde auch passen. Wenn jedoch in D1 ein Name eines Ordners steht, der noch nicht existiert, wie kann ich bitte diesen Fehler mit einer MsgBox abfangen, weil ansonsten immer der Ordner "Eigene Daten" angezeigt wird?
Danke
Josef