FileDialog - nur wie?
05.07.2004 13:58:55
Marc
Es soll ein File- (bzw. FolderDialog) aufgerufen werden. Mit untenstehenden Code funktioniert es auch in EXCEL XP u. 2003 - leider aber nicht in EXCEL 2000 - und genau da brauch ich es ;)
Sub Verzeichnis ()
Dim ordner AS FileDialog
Dim Zielzelle
Zielzelle = "D33"
SET ordner = Application.FileDialog(msoFileDialogFolderPicker)
If ordner.Show = -1 THEN
pfad = ordner.SelectedItems(1)
Range(Zielzelle).Cells.Value = pfad
End If
SET ordner = nothing
End Sub
Wie gesagt, bei XP und 2003 kein Problem, nur bei 2000 wird gemeckert das FileDialog unbekannt ist... Warum nur?
Danke und Gruß,
Marc