Ich hätte mal eine ganz peinliche Frage:
Ich habe schon öfters einen Code gefunden, der als Funktion dargestellt war.
Jetzt quält mich die Frage:
Wenn ich diese Funktion in ein Excel-Modul einfüge und diese dann ausführen will (mit F5 oder Einzelschritt F8), dann geht das nicht!
Weiß bitte jemand, was ich tun muß, um diese Funktion "funktionsfähig" zu machen? Nachfolgend habe ich euch eine solche Funktion hinenkopiert, vielleicht kann mir jemand helfen, indem er mir schreibt, wie ich diesen Code ausführen kann!
Public Function InUnterVerzSuchen(VerzPfad As String, DateiTyp As String, Attrib As Integer)
Dim VerzName As String, DateiName As String, VerzListe() As String, DateiNr As Integer
Dim VerzNr As Integer, DateiListe() As String, TempListe, Nr As Integer
' Liste mit Dateinamen erstellen
DateiName = Dir$(VerzPfad & "\" & DateiTyp, Attrib)
DateiNr = 0
While DateiName <> vbNullString
If (DateiName <> ".") And (DateiName <> "..") Then
DateiNr = DateiNr + 1
ReDim Preserve DateiListe(1 To DateiNr)
DateiListe(DateiNr) = VerzPfad & "\" & DateiName
End If
DateiName = Dir$()
Wend
' Liste mit Unterverzeichnissen erstellen
VerzNr = 0
VerzName = Dir$(VerzPfad & "\", Attrib Or vbDirectory)
While VerzName <> vbNullString
If (VerzName <> ".") And (VerzName <> "..") Then
' Handelt es sich um ein Verzeichnis ?
If GetAttr(VerzPfad & "\" & VerzName) And vbDirectory Then
VerzNr = VerzNr + 1
ReDim Preserve VerzListe(1 To VerzNr)
VerzListe(VerzNr) = VerzName
End If
End If
VerzName = Dir$() ' Nächsten Datei- oder Verzeichnisnamen holen
Wend
' Rekursiver Aufruf, um Unterverzeichnisse zu durchsuchen
For VerzNr = 1 To VerzNr
TempListe = InUnterVerzSuchen(VerzPfad & "\" & VerzListe(VerzNr), DateiTyp, Attrib)
If IsArray(TempListe) Then
For Nr = LBound(TempListe) To UBound(TempListe)
DateiNr = DateiNr + 1
ReDim Preserve DateiListe(1 To DateiNr)
DateiListe(DateiNr) = TempListe(Nr)
Next Nr
End If
Next VerzNr
If DateiNr = 0 Then InUnterVerzSuchen = False Else InUnterVerzSuchen = DateiListe()
End Function
Vielen Dank für Eure Bemühungen,
Liebe Grüße und schönes Wochenende wünscht euch
Otto!