Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ermitteln der Datei-Größe (Kb / MB)

Forumthread: Ermitteln der Datei-Größe (Kb / MB)

Ermitteln der Datei-Größe (Kb / MB)
26.02.2004 08:09:36
Dietmar
Wie kann man, mittels VBA-Code die Größe einer Datei ermitteln bevor diese geöffnet wird.
Gruß Dietmar
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ermitteln der Datei-Größe (Kb / MB)
26.02.2004 08:15:40
Alex K.
Halllo Dietmar,
ganz einfach
datLen = FileLen("c:\eigene datei\text.xls")
AW: Ermitteln der Datei-Größe (Kb / MB)
26.02.2004 08:23:24
Dietmar Danke Alex funktioniert super
Danke für die Rückmeldung oT
26.02.2004 08:30:28
Alex K.
Anzeige
AW: Ermitteln der Datei-Größe (Kb / MB)
26.02.2004 08:23:45
Galenzo
Hallo Dietmar,
auch in diesem Forum sind korrekte Umgangsformen immer wieder gern gesehen.
("Guten Tag", "Hallo", "Mahlzeit")
Die Größe einer Datei (in kB)ermittelt die Funktion FileLen, z.B.so:
Dim sFileName As String
sFileName = "c:\mappe1.xls"
MsgBox FileLen(sFileName) & " kB"
mfg
Anzeige
;
Anzeige

Infobox / Tutorial

Datei-Größe in Excel ermitteln: Kb und Mb verstehen


Schritt-für-Schritt-Anleitung

Um die Größe einer Datei in Excel mit VBA zu ermitteln, kannst du die FileLen-Funktion verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub DateigroesseErmitteln()
       Dim sFileName As String
       sFileName = "C:\DeinPfad\deineDatei.xls" ' Pfad zur Datei anpassen
       MsgBox "Die Größe der Datei beträgt: " & FileLen(sFileName) & " kB"
    End Sub
  4. Ändere den Pfad C:\DeinPfad\deineDatei.xls zu dem Speicherort deiner Datei.

  5. Schließe den VBA-Editor und führe das Makro aus, um die Dateigröße zu sehen.

Die Ausgabe zeigt dir die Größe in Kilobyte (kB). Um zu verstehen, was größer ist, kannst du auch die Umrechnung von kB in MB beachten, da 1 MB gleich 1024 kB ist.


Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden."

    • Überprüfe den Dateipfad auf Tippfehler oder ob die Datei wirklich existiert.
  • Fehler: "Typkonflikt"

    • Stelle sicher, dass der Dateipfad als String deklariert ist und die Datei die richtige Endung hat (z.B. .xls).

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, gibt es auch alternative Methoden, um die Dateigröße zu ermitteln:

  • Windows Explorer:

    1. Klicke mit der rechten Maustaste auf die Datei.
    2. Wähle Eigenschaften.
    3. Im Tab Allgemein findest du die Größe in kB oder MB.
  • Power Query in Excel:

    1. Wähle Daten > Daten abrufen > Aus Datei.
    2. Wähle die Datei aus, um Informationen einschließlich der Größe abzurufen.

Praktische Beispiele

Angenommen, du möchtest die Größe mehrerer Dateien ermitteln. Du kannst eine Schleife in VBA verwenden, um dies zu tun:

Sub MehrereDateigroessen()
    Dim sFileName As String
    Dim fileList As Variant
    fileList = Array("C:\DeinPfad\datei1.xls", "C:\DeinPfad\datei2.xls")

    Dim i As Integer
    For i = LBound(fileList) To UBound(fileList)
        sFileName = fileList(i)
        MsgBox "Die Größe der Datei " & sFileName & " beträgt: " & FileLen(sFileName) & " kB"
    Next i
End Sub

Tipps für Profis

  • Nutze die Umrechnungsformel, um die Werte von kB in MB zu konvertieren: MB = kB / 1024.
  • Verwende in deinen VBA-Projekten Error-Handling, um sicherzustellen, dass dein Code robust ist, z.B. durch On Error Resume Next.

FAQ: Häufige Fragen

1. Was ist größer, kB oder MB?
MB ist größer als kB. 1 MB entspricht 1024 kB.

2. Wie kann ich die Größe einer Datei in MB anzeigen?
Dividiere die Größe in kB durch 1024, um die Größe in MB zu erhalten.

3. Wo finde ich weitere Informationen zu Excel VBA?
Du kannst hilfreiche Ressourcen auf Websites wie site:www.herber.de finden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige