Ich möchte den Datei Pfad und Datei Namen durch Variable ersetzen
Da ich schon einiges probiert habe aber leider zu keinem Ergebniss
gekommen bin wende ich mich an euch
Sub Makro10()
Dim wb1 As Workbook
On Error Resume Next
Set wb1 = Workbooks(Auslastung.xlsm)
On Error GoTo 0
If wb1 Is Nothing Then
With ActiveWorkbook
If .ReadOnly = True Then
Exit Sub
ElseIf Dir("O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Log-Belegung-2021.xlsm") "" Then
Workbooks.Open "O:\TP-1\TP-15\TP-158\Intern\MechEG\03 Belegungsanalysen\Log-Belegung-2021. _
xlsm"
Application.WindowState = xlMinimized
End If
End With
End If
End Sub
Gruß Christian