Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1100to1104
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1100to1104
1100to1104
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

dateigröße feststellen

dateigröße feststellen
otto
Hi,
wie kann ich die Größe der aktuell geöffneten Datei in einer bereits geöffneten UF anzeigen?
otto

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

Betreff
Benutzer
Anzeige
FileLen
14.09.2009 11:20:40
{Boris}
Hi Otto,
MsgBox FileLen(ThisWorkbook.FullName)
Grüße Boris
ist besser. oT.
14.09.2009 11:31:12
Tino
Super, Danke owT
14.09.2009 12:13:29
otto
AW: dateigröße feststellen
14.09.2009 11:28:46
Tino
Hallo,
müsste funktionieren.
Private Sub UserForm_Initialize()

Dim FSO As Object, F1 As Object, FileGroesse As Single

Set FSO = CreateObject("Scripting.FileSystemObject")
Set F1 = FSO.GetFile(ThisWorkbook.FullName)

FileGroesse = F1.Size / 1024

If FileGroesse > 1000 Then
 Label1.Caption = Round(FileGroesse / 1000, 2) & " MB"
Else
 Label1.Caption = Round(FileGroesse, 2) & " KB"
End If


End Sub
Gruß Tino
Anzeige

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige