Office: (Office 2010) VBA-Fehler,Benutzerdefinierter Typ nicht definiert

Unklar01 · 19. Oktober 2016

Hallo,
ich bekomme es einfach nicht hin.

Ich habe hier Script mit dem ich mir die Verzeichnisstruktur auflisten kann.
Das Script funktioniert wenn ich es in der Datei aufrufe in der ich es mal eingegeben hatte.

Nun wollte ich es in meiner PERSONAL.XLSB mit unterbringen, denn ich benötige es halt auch in anderen Dateien.
Da meckert er immer das ein Benutzerdefinierter Typ nicht definiert sei.

Kann mir einer dabei behilflich sein? Bitte nicht F1.... da werde ich nicht schlau draus.

Code:

Sub Verzeichnisse_auflisten_mit_Anzahl_Dateien_Strg_Y()

'Verweis auf
'Microsoft Scripting Runtime
'muss gesetzt sein!

' Tastenkombination: Strg+q

Dim fStart As Folder
Dim fso As New FileSystemObject

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
Set fStart = fso.GetFolder(.SelectedItems(1) & Application.PathSeparator)
Else
Exit Sub
End If
End With

If MsgBox("Alte Ausgabe löschen?", vbYesNo, "Alte Ausgabe Löschen?") = vbYes Then
With ActiveSheet
.[A:D].ClearContents
.[A1].Value = "Pfad"
.[B1].Value = "Dateien"
.[C1].Value = "Größe"
.[D1].Value = "Unterverz."
.[A1:D1].Font.Bold = True
.Cells.Hyperlinks.Delete
End With
End If

'Start der Ausgabe
nextSF fStart

Set fStart = Nothing
Set fso = Nothing

Application.StatusBar = False
End Sub
Function nextSF(ByVal f As Folder) As Folder
Dim sf As Folder

Application.StatusBar = f.Path
If f.Name = "System Volume Information" Then Exit Function

With Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Offset(0, 0) = f.Path
.Offset(0, 1) = f.Files.Count
.Offset(0, 2) = f.Size
.Offset(0, 3) = f.SubFolders.Count
End With

For Each sf In f.SubFolders
nextSF sf
Next sf

Set sf = Nothing
Set f = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

EarlFred · 21. Oktober 2016

Hallo ???,

steht doch als erstes in Deinem Code:
Code:

'Verweis auf
'Microsoft Scripting Runtime
'muss gesetzt sein!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VB-Editor - Extras - Verweise.

Also genau das Gleiche, über das wir uns schon vor knapp 6 Jahren unterhalten haben:
http://www.ms-office-forum.de/forum/...d.php?t=272702

Ggf. musst Du dafür als Admin angemeldet sein bzw. Excel mit Admin-Rechten starten (Rechtsklick - "Als Administrator ausführen").

Grüße
EarlFred

Unklar01 · 25. Oktober 2016

Meine Güte bist Du nachtragend.... *grins
Da kannst mal sehen wie die Zeit vergeht..... *rolleyes.gif*
Nein, mal im ernst, habe es überlesen, wie Du schon sagtes
ich habe den Kommentar ja selber hinzugefügt....

Habs eingestellt... und es funkt.

EarlFred · 25. Oktober 2016

Hallo ?,

bist Du nachtragend
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nein. Ich habe aber offenbar ein funktionierendes Gedächtnis.

es funkt.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kein Wasser, ist elektrisch! Löschdecke drauf oder CO2-Löscher nehmen.

Und danke für Dein herzliches Dankeschön. Ich helfe gerne.

Grüße
EarlFred

Unklar01 · 25. Oktober 2016

Hallo EarlFred,
;o)
Erschrocken war ich über den Zeitraum der vergangen ist.

Ich würde das ganze gern um die Auflistung der Dateinamen erweitern.
Könntest Du mir da mal sagen wie das geht, bin da leider nicht fit genug.

Habe übrigens festgestellt, das es eine Fehlermeldung gibt wenn das Verz. auf das zugegriffen wird administriert wird und Rechte drauf vergeben wurden.
Dann muß ich
Code:

.[C1].Value = "Größe"
.[D1].Value = "Unterverz."
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

heraus nehmen.

Unklar01 · 27. Oktober 2016

Ich habe heute das "Tool" eig. ein Macro benutzt um die Anzahl von Dateien auszulesen...
leider haut da was nicht hin, es werden mir Verzeichnisse aufgelistet wo nix drin ist und im Feld Dateien (Spalte B) eine 1 dargestellt.

Habe in einem Verzeichnis dann einfach mal ne Kopie erzeugt (damit waren 2 Dateien im Verz) die wurden auch gezählt.

Warum zeigt er mir im Verz. eine Datei an, wenn gar keine im Verz. ist?

Unklar01 · 28. Oktober 2016

Habe das ganze erweitert und hier abgelegt.

http://www.ms-office-forum.net/forum...00#post1769300

Können wir diesen hier schließen.

Office: (Office 2010) VBA-Fehler,Benutzerdefinierter Typ nicht definiert

VBA-Fehler,Benutzerdefinierter Typ nicht definiert

VBA-Fehler,Benutzerdefinierter Typ nicht definiert

VBA-Fehler,Benutzerdefinierter Typ nicht definiert

VBA-Fehler,Benutzerdefinierter Typ nicht definiert - Similar Threads - VBA Fehler Benutzerdefinierter

Kreuztabelle / VBA / Fehler behandlung

VBA Stapelspeicher Fehler

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

Makro Problem nach Wörtern filtern und Zeilen löschen

Fehler beim übertragen einer funktionierenden VBA

Warum Fehler beim Kompilieren (VBA)???

VBA Fehler auf 1 von 3 Rechnern