wieso macht der das?
Dirk
ich hab 2 Fragen
zum einen
Sub export()
Dim o As FileDialog
Dim dir As Variant
Set o = Application.FileDialog(msoFileDialogFilePicker)
With o
.Title = "Datenbank"
.ButtonName = "Auswaehlen"
.InitialView = msoFileDialogViewList
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel", "*.xls", 1
.InitialFileName = "d:\Projekte\"
.Show
If .Show = -1 Then
For Each dir In .SelectedItems
MsgBox "Sie wollen " & dir &" öffnen"
Next dir
Else
End If
End With
End Sub
muss man die Datei Datei 2mal auswählen.
kann mir einer Sagen wo der Fehler liegt?
und die Andere Frage ich versteh nicht wiso da umbedingt ne for each schleife rein muss ich möchte doch nur eine Datei Auswählen aber ohne for each läuft das irgendwie nicht.
ach und wird der Code auch unter Excel2000 laufen?
wenn nein brauch ich da garnicht weiter machen und muss mir was anderes einfallen lassen
Dank im Vorraus
Dirk