Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

optionsfelder nach Auswahl ausblenden

Forumthread: optionsfelder nach Auswahl ausblenden

optionsfelder nach Auswahl ausblenden
15.07.2017 22:45:46
stef26
Hallo liebe Excel Profis,
ich bin gerade dabei einen kleinen Test mit Fragen zu schreiben, die mit Optionsfeldern beantwortet werden sollen.
Problem: mit der Auswahl des Optionsfeldes sollen die beiden Optionsfelder (ja/nein)
verschwinden, so dass man nicht noch einmal auswählen kann.
Dies versuch ich mit
ActiveSheet.Shapes("Optionsfeld13").Visible = False
Leider bleibt das Optionsfeld trotzdem sichtbar.
Kann mir jemand sagen, was ich da falsch mache?
Liebe Grüsse
Stefan
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: optionsfelder nach Auswahl ausblenden
16.07.2017 00:17:06
stef26
Ach noch was vergessen.
Sollten sich die Optionsfelder nicht ausblenden lassen, kann man dann einzelne (die man angeklickt hat) evtl. sperren. Die anderen müssen noch anklickbar sein...
:-)
Stefan
AW: optionsfelder nach Auswahl ausblenden
16.07.2017 06:52:36
Werner
Hallo Stefan,
folgendes Makro in ein allgemeines Modul. Die Namen deiner Optionsfelder musst du natürlich noch an deine Verhältnisse anpassen.
Sub Button_ausblenden()
ActiveSheet.Shapes("Optionsfeld 13").Visible = False
ActiveSheet.Shapes("Optionsfeld 14").Visible = False
End Sub
Dann rechter Mausklick auf das Optionsfeld 13 - Makro zuweisen - obiges Makro auswählen
Das gleiche dann noch für dein zweites Optionsfeld.
Jetzt werden bei Auswahl eines der beiden Optionsfelder beide ausgeblendet.
Anmerkung: In deinem Beispielcode stimmt deine Schreibweise des Optionsfeldes nicht. Da fehlt nach Optionsfeld ein Leerzeichen.
Du hast ("Optionsfeld13") richtig wäre ("Optionsfeld 13")
Zu irgendeinem Zeitpunkt bzw. durch irgendeine Aktion musst du die Optionsfelder ja auch wieder einblenden. Wie/wann du das machen willst ist mir nicht bekannt. Hierbei solltest du dann aber auch beide Optionsfelder abwählen/deaktivieren. Wenn du sie nur wieder einblendest, dann hast du den Zustand vom Ausblenden. Sprich, eines der beiden Optionsfelder ist ausgewählt.
Einblenden und beide Optionsfelder zurücksetzen (beide sind nicht ausgewählt) ginge dann so:
ActiveSheet.Shapes("Optionsfeld 13").Visible = True
ActiveSheet.Shapes("Optionsfeld 14").Visible = True
ActiveSheet.Shapes("Optionsfeld 13").DrawingObject.Value = 0
ActiveSheet.Shapes("Optionsfeld 14").DrawingObject.Value = 0
Gruß Werner
Anzeige
AW: optionsfelder nach Auswahl ausblenden
16.07.2017 07:37:59
stef26
Guten morgen Werner,
bin ich doof!!!!!
Das Leerzeichen hab ich gar nicht bemerkt.
Besten Dank
Gruß
Stefan
Gerne u. Danke für die Rückmeldung. o.w.T.
16.07.2017 07:54:42
Werner
Anzeige
Anzeige

Infobox / Tutorial

Optionsfelder in Excel nach Auswahl ausblenden


Schritt-für-Schritt-Anleitung

Um Optionsfelder in Excel auszublenden, wenn eine Auswahl getroffen wird, kannst Du das folgende Makro verwenden:

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub Button_ausblenden()
        ActiveSheet.Shapes("Optionsfeld 13").Visible = False
        ActiveSheet.Shapes("Optionsfeld 14").Visible = False
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Klicke mit der rechten Maustaste auf das erste Optionsfeld (z.B. "Optionsfeld 13") und wähle Makro zuweisen.

  6. Wähle das Makro Button_ausblenden aus.

  7. Wiederhole den Vorgang für das zweite Optionsfeld.

Jetzt werden beide Optionsfelder ausgeblendet, wenn eines der Felder ausgewählt wird.


Häufige Fehler und Lösungen

  • Fehler: Optionsfeld bleibt sichtbar.

    • Überprüfe, ob Du den Namen des Optionsfeldes korrekt eingegeben hast. Achte auf Leerzeichen, z.B. sollte es "Optionsfeld 13" anstelle von "Optionsfeld13" sein.
  • Fehler: Makro wird nicht ausgeführt.

    • Stelle sicher, dass Du das Makro korrekt zugewiesen hast und dass Makros in Deiner Excel-Umgebung aktiviert sind.

Alternative Methoden

Anstelle von Makros kannst Du auch die Gruppenfunktion in Excel verwenden. So kannst Du Optionen gruppieren und bei Auswahl einer Option die Sichtbarkeit der anderen steuern. Dies ist jedoch weniger flexibel als die Verwendung von VBA.


Praktische Beispiele

Angenommen, Du hast zwei Optionsfelder, die "Ja" und "Nein" repräsentieren. Mit dem obigen Makro kannst Du sicherstellen, dass, wenn der Benutzer "Ja" auswählt, das "Nein"-Optionsfeld verschwindet. Dies ist besonders nützlich, wenn Du eine Umfrage oder einen Test mit einer Excel Optionsfeld Mehrfachauswahl erstellen möchtest.


Tipps für Profis

  • Verwende die Funktion DrawingObject.Value, um den Status der Optionsfelder zurückzusetzen, wenn Du sie wieder einblenden möchtest. Beispiel:

    ActiveSheet.Shapes("Optionsfeld 13").Visible = True
    ActiveSheet.Shapes("Optionsfeld 14").Visible = True
    ActiveSheet.Shapes("Optionsfeld 13").DrawingObject.Value = 0
    ActiveSheet.Shapes("Optionsfeld 14").DrawingObject.Value = 0
  • Wenn Du Excel Optionsfelder trennen möchtest, um sicherzustellen, dass nur eine Auswahl gleichzeitig möglich ist, kannst Du dies durch die richtige Gruppierung von Optionsfeldern erreichen.


FAQ: Häufige Fragen

1. Wie kann ich mehrere Optionsfelder gleichzeitig ausblenden? Du kannst mehrere Optionsfelder im gleichen Makro ansprechen, indem Du den Code für jedes Optionsfeld hinzufügst, wie im obigen Beispiel gezeigt.

2. Was mache ich, wenn die Optionsfelder nicht reagieren? Überprüfe die Zuweisung der Makros und stelle sicher, dass Du die richtigen Namen der Optionsfelder verwendest. Achte auf Groß- und Kleinschreibung sowie auf Leerzeichen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige