Die VBA-Suche unter Excel 2007

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

die Anfrage wird wahrscheinlich unten nicht mehr gesehen deshalb schreib ich leidern nen neuen Artikel - bitte dies zu entschuldigen liebe Admins.

Ok, die Suche etc alles klappt. Also bei mir aufn Laptop mit OfficeXp
Hier auf Arbeit mit Office 2007 hackts!

Option Explicit
'
Private Sub CommandButton1\_Click()
Dim strSuche As String, lngFound As Long
strSuche = TextBox1
 If TextBox1 = "" Then
 MsgBox "Bitte Suchbegriff eingeben"
 End If

With Application.FileSearch
 .NewSearch
 .LookIn = "d:\"
 .SearchSubFolders = True
 .Filename = "\*.txt"
 .TextOrProperty = strSuche
 .MatchTextExactly = True
 ListBox1.Clear
 If .Execute() \> 0 Then
 For lngFound = 1 To .FoundFiles.Count
 ListBox1.AddItem Left(.FoundFiles(lngFound), Instrrev(.FoundFiles(lngFound), "\") - 1)
 Next lngFound
 Else
 ListBox1.AddItem "Nix gefunden"
 End If
End With
End Sub

FileSearch ist scheinbar nicht mehr gültig in 2007. Hat hier jemand ne Idee was ich da machen könnten?

Gruß Rolf

#2

Hallo Rolf,
meinst du nicht auch, dass eine Suche via Google scheller zum Ziel führt als ein Posting hier?

http://support.microsoft.com/kb/920229/

  • zig Alternativen bei Suchbegriffen wie „filesearch office 2007“

Das einzige was ich nicht gefunden habe, ist di Erklärung warum MS die Funktion entfernt hat ohne sie vorher als „veraltet“ zu kennzeichnen. Hat das was mit Vista zu tun? Hat jemand ein Statement dazu bzw einen Link?

Gruss
Joey

#3

Servus Joey,

du hast vollkommen recht - sorry!
Aber hier wird mir immer so schnell und super geholfen - da bin ich wohl etwas verwöhnt :smile:
Dein Link hat eh die richtige Lösung gebracht - Danke dir!

Gruß Rolf

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]