Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei Auswählen und öffnen

Forumthread: Datei Auswählen und öffnen

Datei Auswählen und öffnen
19.04.2024 10:59:29
Marvin
Hallo,
Ich lasse dich die Application.FileDialog ein Fenster öffnen in wessen ich eine Excel auswählen kann.
Ich bekomme es aber nicht hin, dass er mir diese ausgewählte Datei anschließend öffnet.

Vielen danke schonmal im Voraus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei Auswählen und öffnen
19.04.2024 11:07:41
Beverly
Hi Marvin,

z.B. so: 

Sub Auswahldialog()

    Dim fdDialog As FileDialog

    Set fdDialog = Application.FileDialog(msoFileDialogFilePicker)

    With fdDialog

        .Filters.Clear

        .Filters.Add "Excel-Dateien", "*.xls*", 1

        If .Show = -1 Then

            Workbooks.Open .SelectedItems(1)

        End If

    End With

    Set fdDialog = Nothing

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: Datei Auswählen und öffnen
19.04.2024 11:47:08
Marvin
Danke für die schnelle Antwort.
Hatte es aber dann schon selbst hinbekommen durch eine kleine andere Methode 

Sub ordner_öffnen_C2()

Dim fd As Office.FileDialog

Dim strDatei As String



Set fd = Application.FileDialog(msoFileDialogFilePicker)



With fd



    .Filters.Clear

    .Filters.Add "Excel-Dateien", "*.xlsx?", 1

    .Title = "Eine Excel-Datei auswählen"

    .AllowMultiSelect = False



    .InitialFileName = Worksheets("'Tabellenblatt.Name").Range("B2").Text



        If .Show = True Then

        strDatei = .SelectedItems(1)

        Else

        MsgBox ("Abgebrochen"), vbExclamation

        End If

        

        Workbooks.Open (strDatei)

End sub
Anzeige
Das ist....
19.04.2024 12:05:48
Beverly
Hi Marvin,

...auch nichts anderes als mein Code. Allerdings hat meiner den Vorteil, dass er - im Gegensatz zu deinem - keine Fehlermeldung ausgibt falls keine Datein zum Öffnen ausgewählt wurde. ;-)

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige