Office: Optionsfelder unsichtbar machen

Hallo zusammen,
eine neue Frage, neues GlücK??

ich habe 3 Optionsfelder, die ich gerne auf "invisible" eingestellt haben möchte. Erst wenn eine bestimmte Bedingung erfüllt ist, sollen sie Sichtbar werden. Ich komme hier mit der bedingten Formatierung nicht weiter, und habe schon versucht eine Farbfläche darüberzulegen, aber das geht nicht. Kriege ich die Optionsfelder nicht irgendwie in den Hintergrund??

LG
Tangomikel

 

Hallo Michael,

mit den Möglichkeiten von Arbeitsblattfunktionalität wirst Du die Optionsfelder (Version: Formularsteuerelemente) nicht ein- bzw. ausblenden können. Da bleibt Dir nur der Rückgriff auf VBA-Programmierung übrig.
Wenn Du zB. folgende Makrofunktion in ein allgem. Codemodul speicherst:

Code:

Public Function Optionen123(Optional Sichtbar As MsoTriState = msoFalse) As Long
  Dim Ws As Worksheet
  Dim Shp As Shape
  Dim Ct&
  Ct& = 0
  Set Ws = ActiveSheet
  For Each Shp In Ws.Shapes
    With Shp
      If .Type = msoFormControl Then
        If .FormControlType = xlOptionButton Then
          .Visible = Sichtbar
          Ct& = Ct& + 1
        End If
      End If
    End With
  Next Shp
  Optionen123 = Ct&
End Function

kannst Du im aktiven Arbeitsblatt in irgendeine Arbeitsblattzelle folgende Formel eingeben:
=Optionen123() oder auch folgende Formel: =Optionen123(0)
Daraufhin werden in diesem Arbeitsblatt alle Optionsfelder (in der Version der Formularsteuerelemente) ausgeblendet; ferner erhältst Du die Anzahl der so ausgeblendeten Optionsfelder als Resultat der Formel.
Bei Eingabe von =Optionen123(-1) werden sie wieder eingeblendet und ihre Anzahl als Resultat zurückgeliefert.
Bei Eingabe von =Optionen123(-3) werden sie abwechselnd eingeblendet und beim nächsten Aufruf wieder ausgeblendet.
Diese Formeln kannst Du in einen Formelausdruck für die bedingte Formatierung aufnehmen.