Datei (Zeichnung) mit VBA aufstarten (Hyperlink)
Giuseppe
Ich möchte gerne mittels VBA eine etwas spezielle Datei öffnen.
Also keine Standard-Datei wie xls, txt oder doc.
Mit einem Hyperlink kann man die Datei nicht öffnen.
Über den Explorer gehts aber.
Ich habe bis jetzt diese Ziel erreicht:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sFile As String
If Intersect(Target, Range("B1:B2")) Is Nothing Then Exit Sub
sFile = Range("B1").Value & "\" & Range("B2").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei " & sFile & " wurde nicht gefunden!"
Else
Shell "Explorer.exe " & sFile, vbNormalFocus
End If
End Sub
Dies funktioniert sehr gut!
Aber ich würde gerne die Datei aufstarten können, die ich anklicke.
sFile sollte eben nicht einen festen String-Wert darstellen, sondern das VBA sollte mir
den Dateiname einer x-Beliebigen Zelle auslesen, die ich anklicke.
Beispiel:
A1 Definierten Pfad: C:\
A2 Datei1.ZEI
A3 Datei2.ZEI
A4 Datei3.ZEI
Wie geht das?
Bitte um Hilfe
Mit freundlichen Grüssen
Giuseppe