ich möchte gerne von einer Startseite auf ausgeblendete Tabellenblätter zugreifen. Und wenn sich dann das Tabellenblatt öffnet, und ich wieder auf Blatt "Startseite" klicke, dann soll sich das zuvor geöffnete Blatt wieder schließen.
Ich habe von chatgpt diesen Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim ws As Worksheet
Dim TargetSheetName As String
' Das Tabellenblatt, das immer geöffnet bleiben soll (hier "Startseite" genannt)
TargetSheetName = "Startseite"
' Überprüfen, ob das aktivierte Blatt nicht das "Startseite"-Tabellenblatt ist
If Sh.Name > TargetSheetName Then
' Schließen Sie alle anderen Tabellenblätter
For Each ws In ThisWorkbook.Sheets
If ws.Name > Sh.Name And ws.Name > TargetSheetName Then
ws.Visible = xlSheetHidden
End If
Next ws
End If
End Sub
Aber es geht nicht. Habe verschieden Optionen durchprobiert, aber entweder schließen sich alle Blätter außer das aktive, oder eben keins.
Ich arbeite mit excel 365 auf MacOS.
Vielleicht kann mir jemand helfen.
LG