wie kann ich es einstellen, dass eine Datei in Notepad++ geöffnet wird, falls dies beim Anwender existiert, ansonsten notepad.exe? Was muss ich bitte im Code ergänzen / ändern? Muss der vollständiger Pfad angegeben werden oder reicht es nur mit notepad++.exe?
Sub Open_File()
Datei = Range("A1")
If Dir(Datei) = "" Then
MsgBox "Datei nicht vorhanden: " & Datei, vbCritical
Else
'show = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
show= Shell("C:\Program Files (x86)\Notepad++\notepad++.exe " & Datei, 1)
End If
End Sub
Besten Dank im Voraus!Gruß,
Sergej