Office: Datei über "Durchsuchen" auswählen und Dateiname a

Hallo,

vielleicht kann mir hier jemand weiterhelfen, obwohl ich nicht weiss, ob was ich vorhabe überhaupt funktionert.

Ich möchte in einem Userform einen Knopf erstellen, bei dem der Benutzer seine Laufwerke nach Bildern durchsuchen kann (ähnlich wie bei Datei öffnen). Von dem ausgewählten Bild soll dann der Dateiname inklusive Pfad ausgelesen werden und in eine Variable gespeichert werden.

Wäre echt super, wenn mir hier irgendjemand helfen könnte.

Gruß
Christian

 

Hi Christian,

vielleicht eine Möglichkeit:

Code:

Sub Start()
    Dim strVariable As String
    strVariable = DateiOeffnen
End Sub

Function DateiOeffnen() As String
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName = "C:\"
        .ButtonName = "OK"
        .Title = "Bilddateien auswählen"
        .Show
        If .SelectedItems.Count = 0 Then
            DateiOeffnen = ""
        Else
            DateiOeffnen = .SelectedItems(1)
        End If
    End With
End Function

Bis später,
Karin

 

Danke für die Hilfe