Excel Vba: Schaltfläche verlinken
22.10.2015 12:24:41
Memo
ich würde gern ein Programm schreiben, das es ermöglich per Klick auf eine Schaltfläche eine Datei zu öffnen.
Der erste Klick auf die Schaltfläche soll erlauben die zu verlinkende Datei aus irgendeinem Ordner auszuwählen.
Jeder weitere Klick soll die Datei direkt öffnen.
Die Verlinkung kriege ich hin, jedoch schaffe ich es nicht den Pfad abzuspeichern, sodass per Klick auf die Schaltfläche die Datei geöffnet wird.
Folgenden Code habe ich bereits geschrieben. Ich würde mich freuen, wenn
Ihr mir helfen könntet.
Private Sub Dateiauswaehlen1()
Dim varDatei As Variant
Dim Datei As String
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Sie haben abgebrochen"
Else
Datei = varDatei
ActiveWorkbook.FollowHyperlink Datei
End If
End Sub