Thema Datum  Von Nutzer Rating
Antwort
Rot Browse nach einer Excel Datei
 28.04.2020 19:28:13 Tobi
NotSolved
29.04.2020 11:58:52 Gast3952
*****
Solved
29.04.2020 12:14:29 Tobi
NotSolved
29.04.2020 23:04:12 Gast36841
NotSolved

Ansicht des Beitrags:
Von:
Tobi		 Datum:
28.04.2020 19:28:13		 Views:
760		 Rating:
     
Antwort:
  Ja
Thema:
Browse nach einer Excel Datei

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

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
Rot Browse nach einer Excel Datei
 28.04.2020 19:28:13 Tobi
NotSolved
29.04.2020 11:58:52 Gast3952
*****
Solved
29.04.2020 12:14:29 Tobi
NotSolved
29.04.2020 23:04:12 Gast36841
NotSolved