folgender Code soll jede beliebige Datei öffnen:
Private Sub btn_spare1_Click()
Pfad = Range("S14").Value
If Pfad = "" Or Pfad = "FALSCH" Then
MsgBox ("Kein Pfad definiert")
Else
UserForm1.Hide
Application.Visible = 1
aufruf = "cmd /c " & Pfad
ergebnis = Shell(aufruf, vbNormalFocus)
End If
End Sub
das klappt auch schon sehr gut dank Michael (ich weiss nicht wie ich auf alte Beiträge, die nicht mehr in der Liste stehen antworten kann :( )Die einzigen Dateien die es nicht öffnet, sind Excel-Dateien mit Makros.
Wie kann ich hier eine Abfrage hinzufügen, die schaut ob eine Exceldatei angesprochen wird und das ganze dann per "Workbooks.open" öffnet?
Oder geht das auch einfacher?
Freundliche Grüße und danke
Muehli