Windows Suche funktioniert nicht mehr (nach Makro)
02.01.2026 12:20:44
Christian
ich hoffe mir kann jemand helfen. Ich habe nachstehendes Makro ausgeführt, seitdem findet die Windows Suche keine Dateien mehr in dem Ordner, die mit AZN beginnen.
Diese sind jedoch nach wie vor noch da, lassen sich auch öffnen. Nur die Windows Suche sagt, es würden keine Suchergebnisse gefunden. 10 Min vorher hat es noch funktioniert. Andere Dateien in dem Ordner werden gefunden.
Hat da jemand eine Idee?
Gruß
Christian
Sub ListAZNFiles_Fast()
Dim fso As Object
Dim folder As Object
Dim files As Object
Dim dict As Object
Dim arr As Variant
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("D:\Bilder")
Set dict = CreateObject("Scripting.Dictionary")
' Dateien einmal erfassen
For Each files In folder.files
If Left$(files.Name, 3) = "AZN" Then
dict(files.Name) = Empty
End If
Next
If dict.Count > 0 Then
arr = Application.Transpose(dict.Keys)
With Worksheets("Update")
.Range("A:A").ClearContents
.Range("A1").Resize(UBound(arr)).Value = arr
End With
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End SubAnzeige