Thema Datum  Von Nutzer Rating
Antwort
18.10.2018 11:57:03 Pixxel79
Solved
Blau Ordner finden Excel VBA
 18.10.2018 22:23:03 Flotter Feger
NotSolved
19.10.2018 06:59:54 Gast19899
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
18.10.2018 22:23:03		 Views:
481		 Rating:
     
Antwort:
  Ja
Thema:
Ordner finden Excel VBA

Hallo,

Public Function FindFolder(ByVal sDir As String, ByVal Search As String)
Dim oFSO As Object
Dim oFolders As Object
Dim oFolder As Object
On Error GoTo Error:

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sDir)
Set oFolders = oFolder.SubFolders

For Each oFolder In oFolders
    If InStr(1, oFolder, Search) > 0 Then
         FindFolder = oFolder
    Else
        FindFolder oFolder.Path, Search
    End If
Next
Exit Function
Error:
End Function

Sub TEST()
MsgBox FindFolder("C:\DeinOrdner", "SuchWort")
End Sub

VG Sabina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.10.2018 11:57:03 Pixxel79
Solved
Blau Ordner finden Excel VBA
 18.10.2018 22:23:03 Flotter Feger
NotSolved
19.10.2018 06:59:54 Gast19899
NotSolved