Danke, habe es jetzt anders gelöst. Warum nun kein Problem zum finden des "Pfades" besteht, erschließt sich mir nicht. Schöne Feiertage wünsche ich. Gruß Wolly
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim bestaetigung As VbMsgBoxResult
Dim passwort As String
' Bestätigungsnachricht anzeigen und Passwort abfragen
bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")
' Wenn der Benutzer auf "Ja" klickt
If bestaetigung = vbYes Then
passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")
End If
' Überprüfe das eingegebene Passwort
If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
End If
' Pfad zur Datei mit "Tabelle8"
Dim pfad_zur_datei As String
pfad_zur_datei = "G:\Rheumaliga\1_Quartal_2024.xlsm"
' Öffne die Arbeitsmappe
Set wb = Workbooks.Open(pfad_zur_datei)
' Überprüfe, ob die Arbeitsmappe geöffnet wurde
If Not wb Is Nothing Then
' Überprüfe, ob das Arbeitsblatt "Tabelle8" existiert
On Error Resume Next
Set ws = wb.Sheets("Tabelle1")
On Error GoTo 0
' Wenn das Arbeitsblatt gefunden wurde, aktiviere es
If Not ws Is Nothing Then
ws.Activate
Else
MsgBox "Das Arbeitsblatt 'Tabelle1' wurde nicht gefunden.", vbExclamation
End If
Else
MsgBox "Die Datei konnte nicht geöffnet werden.", vbExclamation
End If
End Sub