ich nutze ein Makro und verschiedene xlsx.Dateien zentral zu öffnen.
Der Pfad setzt sich immer aus der Anpassung einer Inputbox zusammen. Für xlsx. Dateien funktioniet es auch super. Bei pptx. muss ich scheinbar noch Anpassungen machen, da immer ein Anwenungsfehler auftaucht. Kann mir hier jm helfen?
Sub Alte_WAPräsi_öffnen()
Dim Dateiname As String
Dateiname1 = InputBox("Jahr angeben! -> z.B.: 2017")
Dateiname2 = InputBox("Monat angeben! -> Für März: 03")
If Dateiname1 = "" Then Exit Sub
If Dir("S:Test\" & Dateiname1 & "Test\" & Dateiname1 & " " & Dateiname2 & " Test" & ".pptx") _
"" Then
Workbooks.Open Filename:="S:Test\" & Dateiname1 & "Test\" & Dateiname1 & " " & Dateiname2 & " _
Test" & ".pptx"
Else
MsgBox "Datei nicht vorhanden", vbInformation, "Fehler..."
End If
End Sub
Viele Grüße