Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Größe des aktiven Workbooks

Größe des aktiven Workbooks
16.09.2005 19:16:24
Herbert
Hallo zusammen,
wie kann ich mit Makro die Filegröße des aktiven Workbooks in MB feststellen?
Danke schon mal Grüße Herbert

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

Betreff
Datum
Anwender
Anzeige
AW: Größe des aktiven Workbooks
16.09.2005 21:45:45
Thomas
Hallo Herbert,
versuch's mal in etwa so ...


Option Explicit
Sub Test1()
    MsgBox FileLen(ThisWorkbook.Name)
End Sub
Sub Test2()
    MsgBox FileLen(ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name)
End Sub


Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

Anzeige
AW: Größe des aktiven Workbooks
16.09.2005 22:11:22
Thomas
Oder so ...


Option Explicit
Sub Test3()
    MsgBox IIf(FileLen(ActiveWorkbook.FullName) < 1000000, _
               Format(FileLen(ActiveWorkbook.FullName) / 1024, "0.00 kB"), _
               Format(FileLen(ActiveWorkbook.FullName) / 1048576, "0.000 MB"))
End Sub


Gruss
Thomas
Risi Thomas Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer

Anzeige
AW: Größe des aktiven Workbooks
ransi
hallo
in Kb gehts so:
Public

Sub test()
MsgBox FileLen(ActiveWorkbook.FullName) / 1024 & "Kb"
End Sub

ransi
Danke an alle oT
16.09.2005 22:10:03
Herbert
H

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige