Hallo,
gegeben ist folgender Code, welcher durch Klick auf einen Button es ermöglicht, den PC nach einem Speicherordner zu durchsuchen. Der gewählte Ort wird dann in ein Tabellen-Blatt geschrieben.
Sub File_Ziel()
Dim ZielPowerPointPath As String
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Wählen Sie einen Zielort für die PowerPoint", &H1000, 17)
On Error Resume Next
ZielPowerPointPath = BrowseDir.items().Item().Path
If ZielPowerPointPath = "" Then Exit Sub
On Error GoTo 0
SheetAuswertung.Range("F11").Value = ZielPowerPointPath
Set BrowseDir = Nothing
Set AppShell = Nothing
End Sub
Nun möchte ich noch so ein Button anbringen, mit dem man nur nach Excel-Dateien suchen kann. Der Pfad des ausgewählten Dokuments soll dann ebenfalls in ein Tabellenblatt geschrieben werden.
Wie muss der obige Code angepasst werden um dies zu realisieren.
Besten Dank und viele Grüße
Tobi
|