passenden Ordner öffnen
06.11.2006 22:21:52
Uwe
hab folgenden Button auf meinem Tabellenblatt....
Private Sub CommandButton20_Click()
Dim fn
fn = Application.GetOpenFilename(FileFilter:="Alle Grafiken,*.jpg", Title:="Bitte Datei auswählen")
If fn = False Then
MsgBox "Benutzerabbruch"
Exit Sub
End If
Range("A818") = fn
End Sub
.... wie muß der Code aussehen wenn ich direkt schon im Ordner F:\Bilder sein möchte.
Vorab schon mal vielen dank!
Gruß Uwe