Laufwerknamen auslesen in Excel
Schritt-für-Schritt-Anleitung
Um den Laufwerknamen in Excel auszulesen, kannst du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden VBA-Code in das Modul:
Public Sub OrdnerListen_Start()
Dim FSO As Object
Dim FO As Object
Dim strPfad As String
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Start-Verzeichnis wählen"
.ButtonName = "übernehmen"
If .Show -1 Then Exit Sub
strPfad = .SelectedItems(1)
End With
With ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(strPfad)
Worksheets("Inhalt").Cells(1, 16) = FO.Drive.ShareName
End With
End Sub
-
Schließe den VBA-Editor und gehe zurück zu deinem Excel-Arbeitsblatt.
-
Führe das Makro aus, indem du ALT + F8 drückst, wähle OrdnerListen_Start aus und klicke auf Ausführen.
-
Wähle das gewünschte Laufwerk aus. Der Laufwerknamen wird in der Zelle P1 (16. Spalte) des Arbeitsblattes "Inhalt" angezeigt.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keine VBA-Programmierung nutzen möchtest, kannst du auch eine Excel-Formel verwenden, um Informationen über das Laufwerk zu erhalten. Allerdings ist diese Methode eingeschränkter und bietet nicht die Möglichkeit, den Laufwerknamen direkt auszulesen.
Praktische Beispiele
Hier ist ein Beispiel, wie du das Makro anpassen kannst, um zusätzlich die Dateigröße und den Dateinamen aufzulisten:
Public Sub OrdnerListen_Start()
Dim FSO As Object
Dim FO As Object
Dim strPfad As String
Dim Datei As Object
Dim i As Integer
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Start-Verzeichnis wählen"
.ButtonName = "übernehmen"
If .Show -1 Then Exit Sub
strPfad = .SelectedItems(1)
End With
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(strPfad)
i = 1
For Each Datei In FO.Files
Worksheets("Inhalt").Cells(i, 1) = Datei.Name
Worksheets("Inhalt").Cells(i, 2) = Datei.Size
i = i + 1
Next Datei
Worksheets("Inhalt").Cells(1, 16) = FO.Drive.ShareName
End Sub
Tipps für Profis
- Nutze
Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert werden. Dies hilft, Fehler zu vermeiden.
- Experimentiere mit der
FileSystemObject-Klasse, um mehr über die Eigenschaften von Dateien und Ordnern zu lernen.
- Erstelle eine Benutzeroberfläche oder ein Formular, um die Auswahl des Laufwerks benutzerfreundlicher zu gestalten.
FAQ: Häufige Fragen
1. Kann ich das Makro in einer älteren Excel-Version verwenden?
Ja, das Makro sollte auch in Excel-Versionen vor 2016 funktionieren, solange VBA unterstützt wird.
2. Wo finde ich die Ergebnisse des Makros?
Die Ergebnisse werden in das Arbeitsblatt "Inhalt" geschrieben, in die Zelle P1 für den Laufwerknamen und in die ersten beiden Spalten für die Dateinamen und -größen.
3. Wie kann ich das Makro anpassen, um nur bestimmte Dateitypen auszulesen?
Du kannst eine Bedingung in die Schleife einfügen, um nur Dateien eines bestimmten Typs zu berücksichtigen, zum Beispiel:
If Datei.Type = "DeinDateityp" Then
' Code hier
End If