Wenn Sie eine vollständige Anwendung mit Excel erstellen, möchten Sie möglicherweise etwas über die Umgebung wissen, in der Ihre Anwendung ausgeführt wird. Beispielsweise möchten Sie möglicherweise wissen, wie viele Laufwerke an das System angeschlossen sind, wie ihre Laufwerksbuchstaben lauten und wie viel Speicherplatz sie frei haben.

Das folgende Makro ruft die angeforderten Informationen ab. Sie müssen lediglich die Spaltenüberschriften angeben. Das Makro geht davon aus, dass Sie drei Spalten haben: In Zelle A1 sollten Sie die Überschrift „Laufwerk“ einfügen, in Zelle B1 die Überschrift „Free%“ und in Zelle C1 die Überschrift „Used%“. Außerdem sollten Sie die Spalten B und C als Prozentsätze formatieren.

Sub DriveSizes()

Dim Drv As Drive     Dim fs As New FileSystemObject     Dim Letter As String     Dim Total As Variant     Dim Free As Variant     Dim FreePercent As Variant     Dim TotalPercent As Variant     Dim i As Integer

On Error Resume Next     i = 2     For Each Drv In fs.drives         If Drv.IsReady Then             Letter = Drv.DriveLetter             Total = Drv.TotalSize             Free = Drv.FreeSpace                          FreePercent = Free / Total             TotalPercent = 1 - FreePercent

Cells(i, 1).Value = Letter             Cells(i, 2).Value = FreePercent             Cells(i, 3).Value = TotalPercent             i = i + 1         End If     Next End Sub

Wenn Sie dieses Makro zum ersten Mal ausführen, wird möglicherweise eine Fehlermeldung angezeigt. Wenn Sie dies tun, müssen Sie Ihr Makro so konfigurieren, dass es auf die Microsoft Scripting Runtime verweist. Befolgen Sie diese Schritte im VBA-Editor:

  1. Wählen Sie im Menü Extras die Option Referenzen. VBA zeigt das Dialogfeld Referenzen an.

  2. Stellen Sie in der Liste der verfügbaren Referenzen sicher, dass Microsoft Scripting Runtime ausgewählt ist.

  3. Klicken Sie auf OK.

Jetzt sollte das Makro einwandfrei funktionieren und Sie haben eine vollständig ausgefüllte Tabelle, die alle auf Ihrem System verfügbaren Laufwerke darstellt. (Wenn Ihr System über Laufwerke verfügt, die Wechselmedien verwenden, z. B. Diskettenlaufwerke, werden diese möglicherweise nur angezeigt, wenn Sie Medien darin haben.)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2716) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Laufwerksstatistik abrufen.