AW: Registerkarten ein und ausblenden mit hacken
07.06.2018 13:42:33
Daniel
Hi
wenns unbedingt Checkboxen sein sollen, dann so:
1. verwende nur die erste Checkboxenspalte. die zweite kannst du löschen
2. schreibe folgendes makro ins Modul1 und weise es den Optionbuttons über das Kontextmenü zu:
Sub Kontrollkästchen_Klicken()
Dim sh As Worksheet
Dim OB As Shape
With ActiveSheet.Shapes(Application.Caller)
On Error Resume Next
Set sh = Sheets(Replace(Replace(.TopLeftCell.Offset(0, -1).Value, " Presse", ""), " ", ""))
On Error GoTo 0
If sh Is Nothing Then
MsgBox "Tabellenblatt konnte nicht gefunden werden, bitte Benennung prüfen."
Else
If .OLEFormat.Object.Value = 1 Then
sh.Visible = xlSheetVisible
Else
sh.Visible = xlSheetHidden
End If
End If
End With
End Sub
beim einrichten der Kontrollkästchen musst du darauf achten, dass die linke obere Ecke des Objektrahmens in der Zelle rechts neben dem Tabellenblattnamen liegt.
Gruß Daniel