wie kann ich mit Makro die Filegröße des aktiven Workbooks in MB feststellen?
Danke schon mal Grüße Herbert
Option Explicit
Sub Test1()
MsgBox FileLen(ThisWorkbook.Name)
End Sub
Sub Test2()
MsgBox FileLen(ThisWorkbook.Path & Application.PathSeparator & ThisWorkbook.Name)
End Sub
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
Sub test()
MsgBox FileLen(ActiveWorkbook.FullName) / 1024 & "Kb"
End Sub