es sollen 2 Optionsbuttons (nicht aus Formular erstellt) ausgeblendet werden, wenn ein Wert 1 in Zelle R25 steht. Funktioniert mit folgenden Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Sheets("Tabelle1").Range("R25").Value = 1 Then
Optionbutton1.Visible = False
Optionbutton2.Visible = False
Else
Optionbutton1.Visible = True
Optionbutton2.Visible = True
Application.ScreenUpdating = True
End If
End Sub
Allerdings reagiert die Funktion erst, wenn irgendeine Zelle angeklickt wird. Wenn die Seite allerdings gesperrt ist, kann ich keine Zelle anklicken.
Dachte mir, mit dem "ScreenUpdating" funktioniert das, aber geht auch nicht.
Über eine kurze Hilfe und dem Hinweis, wo der Fehler liegt, würde ich mich freuen.
Gruß Werner