Problem Excel 2003 - 2007
08.04.2009 21:11:08
peter
Hallo meine guten Helfer
Folgendes VBA funktioniert mit Excel 2003 aber mit Excel 2007 bleibt es in der Zeile Set Dateiname = Application.FileSearch hängen.
Bitte um Hilfe
Sub AblageAktualisieren() 'Liest Angebote
Application.ScreenUpdating = False
Dim Dateiname As FileSearch
Dim Zähler%
Set Dateiname = Application.FileSearch
Dim Pfad$
'Hier Angaben ändern: -------
Pfad = "Y:\Büro\Angebote"
Set Tabelle = Sheets("StartSeite").ComboBox1
Tabelle.Clear
With Dateiname
.LookIn = Pfad
.Filename = "*.xls"
.Execute
For Zähler = 1 To .FoundFiles.Count
Datei = .FoundFiles(Zähler)
Do While InStr(Datei, "\") 0
Datei = Right(Datei, Len(Datei) - InStr(Datei, "\"))
Loop
Tabelle.AddItem (Datei)
Next
End With
End Sub
Gruß Peter
Anzeige