Alle Dateien mit den gleichen Namen finden
Schritt-für-Schritt-Anleitung
Um alle Dateien in einem Ordner mit einer bestimmten Zeichenfolge zu finden und aufzulisten, kannst Du folgendes VBA-Makro verwenden. Dieses Beispiel listet alle Dateien auf, die die Schlüsselwörter Teil1 und 2018 enthalten.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und wähle Modul.
- Kopiere den folgenden Code in das Modul:
Sub listFiles()
Dim varFiles() As Variant, lngIndex As Long, strFile As String
Const FILE_PATH As String = "D:\Downloads\Forum\" 'Ordnerpfad - Anpassen
strFile = Dir(FILE_PATH & "*Teil1*2018*", vbNormal)
Do While Len(strFile)
ReDim Preserve varFiles(lngIndex)
varFiles(lngIndex) = strFile
lngIndex = lngIndex + 1
strFile = Dir
Loop
If lngIndex > 0 Then Range("A1").Resize(lngIndex, 1) = Application.Transpose(varFiles)
End Sub
- Passe den
FILE_PATH an den gewünschten Ordnerpfad an.
- Führe das Makro aus, indem Du
F5 drückst oder es über das Menü startest.
Dieses Makro wird alle Dateien im angegebenen Ordner auflisten, die Teil1 und 2018 im Namen enthalten.
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du kein VBA verwenden möchtest, kannst Du auch die Windows-Suchfunktion nutzen:
- Öffne den Ordner, in dem Du suchen möchtest.
- Gib in die Suchleiste
*Teil1*2018* ein und drücke Enter.
- Die Suchergebnisse zeigen alle Dateien, die diese Schlüsselwörter enthalten.
Praktische Beispiele
Wenn Du andere Schlüsselwörter verwenden möchtest, kannst Du die Zeile im Makro anpassen:
strFile = Dir(FILE_PATH & "*DeinSchlüsselwort*", vbNormal)
Du könntest auch mehrere Bedingungen kombinieren, um eine spezifischere Suche zu ermöglichen, wie zum Beispiel:
strFile = Dir(FILE_PATH & "*Teil1*2018*Teil2*", vbNormal)
Tipps für Profis
- Verwende Variablen, um den Ordnerpfad und die Suchbegriffe dynamisch zu gestalten, sodass Du das Makro für verschiedene Suchanfragen wiederverwenden kannst.
- Experimentiere mit Filtern und Bedingungen in Deinem VBA-Code, um die Suche zu verfeinern.
- Denk daran, dass große Ordner die Ausführung des Makros verlangsamen können.
FAQ: Häufige Fragen
1. Wie kann ich das Makro anpassen, um nach anderen Dateien zu suchen?
Du kannst die Suchbegriffe in der strFile-Zuweisung ändern, um die gewünschten Dateien zu finden.
2. Funktioniert dieses Makro in anderen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen ab Excel 2010 funktionieren. Achte jedoch darauf, dass die VBA-Umgebung aktiviert ist.