Office: Filesearch funzt nicht mit Excel2007

DeBabba · 26. Juni 2010

Hallo zusammen,
ich steh mal wieder auf dem Schlauch und hoffe, dass mir jemand helfen kann. (ist wahrscheinlich wieder mal ganz einfach)
Folgendes Problem:
habe im Excel Makro den befehl Application.Filesearch
Dieser funktioniert im 2003er Excel auch Prima. jetzt soll das nach 2007 und da gehts nicht .
Bis zur rot markierten zeile läuft alles Prima aber da kommte der Fehler 445 (Objekt unterstützt diese Aktion nicht)
Was mach ich falsch ??
Code:

Sub Dateien_ermitteln()
Dim i As Long, intPos As Integer
Dim Dateidatum As Date
Dim KW As Integer
KW = Range("AA1")
stdpfad = MsgBox("Soll der Dateipfad " & Chr(13) & Chr(13) & _
"G:\TEAM\5_Klaus\csv\KW" & KW & Chr(13) & Chr(13) & _
" ausgewertet werden ?", vbYesNo)
If stdpfad = 6 Then
strsuchpfad = "G:\TEAM\5_Klaus\csv\KW" & KW
GoTo mit_Standardpfad
End If
strsuchpfad = VerzeichnisErmitteln(s)
If strsuchpfad = False Then Exit Sub
If strsuchpfad = 0 Then Exit Sub
mit_Standardpfad:
With Application.FileSearch
.NewSearch
.FileType = msoFileTypeExcelWorkbooks
.Filename = InputBox("Dateinamensteil eingeben :" & vbCrLf & "z.B. eingabe_*.xls")
'If Filename = False Then Exit Sub
.LookIn = strsuchpfad ' Suchverzeichnis
.SearchSubFolders = True ' suchen auch in Unterverzeichnissen
If .Execute() > 0 Then ' Dateien im Verzeichnis vorhanden
For i = 1 To .FoundFiles.Count ' Schleife über alle gefundenen Dateien
Dateidatum = FileDateTime(.FoundFiles(i)) 'Dateidatum
intPos = InStrRev(.FoundFiles(i), "\")
mitpos = InStrRev(.FoundFiles(i), ".")
datpos = InStrRev(Dateidatum, " ")
Cells(i + 1, 1) = Left(.FoundFiles(i), intPos - 1)
Cells(i + 1, 2) = Mid(.FoundFiles(i), intPos + 1)
Cells(i + 1, 3) = .FoundFiles(i)
Cells(i + 1, 4) = Mid(.FoundFiles(i), intPos + 1, mitpos - intPos - 1)
Cells(i + 1, 5) = Left(Dateidatum, datpos - 1)

Next i
'Range("B1").Resize(.FoundFiles.Count, 2).Sort Key1:=Range("B1"), Header:=xlYes
End If
End With
Range("a1").Select
Selection.ColumnWidth = 40
Selection.WrapText = True
Range("b1").Select
Selection.ColumnWidth = 25
Selection.WrapText = True
Range("c1").Select
Selection.ColumnWidth = 50
Selection.WrapText = True
Range("d1").Select
Selection.ColumnWidth = 25
Selection.WrapText = True
Range("e1").Select
Selection.ColumnWidth = 15
Selection.WrapText = True

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.HorizontalAlignment = xlLeft
Range("a1").Select
'---------------------------------

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hat jemand ne Lösung für mich ??

ich danke euch schon mal im Voraus

Gruß
DeBabba

:)

ebs17 · 28. Juni 2010

FileSearch wird ab Office 2007 nicht mehr unterstützt.
Guckst Du: VBA - Alternative zu Application.FileSearch (Excel …

DeBabba · 28. Juni 2010

Hallo Eberhard,
erst mal Danke für Deine superschnelle Hilfe.
Muss mir das mal in Ruhe ansehen. Check ich auf den ersten Bilck noch nicht und es ist auch schon spät
Werde mir das morgen mal ganz genau ansehen
gute nacht und nochmals Danke

De Babba klaus

jinx · 28. Juni 2010

Moin, Debabba,

unbedingt die Suche im Forum benutzen, bevor Threads eingestellt werden - zum Suchbegriff "FileSearch 2007" für das Forum Excel liefert mir die Suche ohne Deinen 22 Threads - als zeitlich letzten davon vor ca. zwei Wochen Alternative zu Application.FileSearch (Excel 2007)...

DeBabba · 28. Juni 2010

hallo Jinx,
Sorry,*redface *redface
ich werde mich bessern (und einfach so spät am Abend nicht mehr arbeiten)
Sorry, nicht böse sein:*redface *redface

Gruß
DeBabba

DeBabba · 28. Juni 2010

\@Eberhard
funzt prima,
Nochmals vielen dank

Gruß
DeBabba

Office: Filesearch funzt nicht mit Excel2007

Filesearch funzt nicht mit Excel2007

Filesearch funzt nicht mit Excel2007

Filesearch funzt nicht mit Excel2007

Filesearch funzt nicht mit Excel2007 - Similar Threads - Filesearch funzt Excel2007

Outlook 2007 - Suche funzt nicht

DLookup funzt irgendwie so gar nicht

Warum funzt die nicht? =WENN(ODER(ISTNV(SVERWEIS(.....

web.adresse funzt nicht

Dokument senden funzt nicht

Kennzeichnungsstatus OL 2007 vs. 2003 im Netzerk funzt nicht

Excel 2003 funzt nicht, Tasten etc funz. nach 1. Klick nicht