Dateinamen aus Ordner in Excel schreiben
Schritt-für-Schritt-Anleitung
Um die Dateinamen aus einem Ordner auszulesen und in Excel anzuzeigen, kannst Du den folgenden VBA-Code verwenden. Dieser Code durchsucht den angegebenen Ordner nach Dateien mit einer bestimmten Endung (z.B. *.h) und zeigt die Dateinamen in Spalte A an.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub DateinamenAusOrdnerAuslesen()
Dim FileList As Object
Dim I As Integer
Dim FolderPath As String
FolderPath = "C:\Test\" ' Ändere den Pfad nach Bedarf
Set FileList = CreateObject("Scripting.FileSystemObject").GetFolder(FolderPath).Files
I = 0
For Each File In FileList
If Right(File.Name, 2) = "h" Then ' Filter für .h Dateien
Cells(I + 1, 1) = Left(File.Name, InStr(1, File.Name, ".") - 1) ' Nur Dateiname ohne Endung
I = I + 1
End If
Next File
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Drücke ALT + F8, wähle DateinamenAusOrdnerAuslesen und klicke auf Ausführen.
Wenn Du die Aktualisierung alle 5 Minuten durchführen möchtest, kannst Du ein Timer-Formular erstellen.
Häufige Fehler und Lösungen
Fehler: Die Datei wird nicht gefunden.
Lösung: Überprüfe den angegebenen Ordnerpfad. Stelle sicher, dass der Ordner existiert und die Datei-Endung korrekt ist.
Fehler: Excel zeigt nur die Dateiendungen an.
Lösung: Vergewissere Dich, dass die Zeile zum Entfernen der Endung im Code korrekt ist:
Cells(I + 1, 1) = Left(FileList(I), InStr(1, FileList(I), ".") - 1)
Alternative Methoden
Eine alternative Methode ist, die Dateinamen aus einem Ordner in Excel mit Power Query zu importieren. Hier sind die Schritte:
- Gehe zu
Daten > Abrufen und Transformieren > Aus Datei > Aus Ordner.
- Wähle den Ordner aus und importiere die Daten.
- Filtere die Spalte nach der gewünschten Dateiendung.
Praktische Beispiele
Nehmen wir an, Du hast im Ordner C:\Test die Dateien Test.h, Beispiel.h und Dokument.txt. Nach dem Ausführen des Codes wird Excel nur Test und Beispiel in Spalte A anzeigen, da nur die Dateien mit der Endung .h berücksichtigt werden.
Tipps für Profis
- Du kannst den Code erweitern, um weitere Dateiendungen zu filtern, indem Du eine If-Bedingung hinzufügst.
- Um die Aktualisierung zu automatisieren, kannst Du den VBA-Code in eine Schleife einfügen, die alle 5 Minuten den Ordner erneut durchsucht.
FAQ: Häufige Fragen
1. Kann ich den Ordnerpfad dynamisch ändern?
Ja, Du kannst den Ordnerpfad in einer Zelle hinterlegen und den VBA-Code so anpassen, dass er diesen Wert ausliest.
2. Funktioniert dieser Code in Excel 365?
Ja, der Code funktioniert auch in Excel 365 und anderen Versionen, die VBA unterstützen.