Office: mehrere Kontrollkästchen aber nur eine Auswahl zulassen

Hallo zusammen,


ich bin neu hier im Forum und hoffe auf einen freundlichen Kontakt.

Ich habe auf Arbeit eine ExcelTabelle zu erstellen, die eine Vielzahl von Produkten mit Eigenschaften aufzeigt. Hinter jedem Produkt soll eine Auswahlmöglichkeit über drei Kontrollkästchen erfolgen wo nur eine Option (Standard, Option, not required) möglich ist.
Diese Lösung habe ich schon unter folgendem Link gefunden:

http://www.herber.de/forum/archiv/5...trollkaestchen_nur_eine_Auswahl_zulassen.html

Meine Frage ist, wie erweitere ich dies, wenn ich mehrere Zeilen habe? Gibt es eine Möglichkeit Gruppen anzulegen und diese zu kopieren?



Ich hoffe ich konnte mein Problem ausführlich beschreiben und würde mich über eine Antwort freuen.
Vielen Dank im Voraus

Ralph

 

Hi Ralph,

für dein Vorhaben sind Optionsfelder die bessere Wahl, da man sie zu einer Gruppe vereinigen kann, innerhalb derer nur 1 Antwort möglich ist.

Ich würde dir jedoch empfehlen, stattdessen das SelectionChange-Ereignis des Tabellenblattes zu benutzen und z.B. ein "x" (oder ein anderes Zeichen) in die betreffende Zelle zu schreiben, da es ja sehr viele Zeilen sind. Das Problem bei den Steuerelementen ist nämlich, dass sie - insbesondere wenn man auch noch filtern will - häufig ihre Position verändern. Außerdem wäre es ein großer Aufwand, da du die Gruppe für jedes Steurelement einzeln eintragen müsstest.

Bis später,
Karin

 

Hallo Karin,


vielen Dank für die schnelle Antwort. Leider habe ich keine Erfahrung in VBA Macroprogrammierung. Könntest du (oder jemand anderes) mir hier etwas helfen, wie das Macro aussehen müsste?


Gruß Ralph

 

Hi Ralph,

mache einen Rechtsklick auf den Tabellenreiter und kopiere folgenden Code in das recht (obere) Codefenster:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("L2:N500")) Is Nothing Then  '<== Bereich anpassen
        Cancel = True
        Range(Cells(Target.Row, 12), Cells(Target.Row, 14)).ClearContents
        Target = "x"
        Target.HorizontalAlignment = xlCenter
    End If
End Sub

Sobald du nun im Bereich L2:N500 auf eine Zelle einen Doppelklick ausführst, wird in diese Zelle ein x eingetragen. Den Zellbereich musst du selbstverständlich anpassen.

Beachte: falls du eine Excelversion ab 2007 benutzt, musst du deine Arbeitsmappe im Dateiformat XLSM (Arbeitsmappe mit Makros) abspeichern, sonst löscht Excel (nach Rückfrage) den Code wieder, wenn du die Arbeitsmappe schließt.

Bis später,
Karin

 

Hallo Karin,


super vielen Dank, funktioniert einwandfrei!!! Besteht vielleicht noch die Möglichkeit die Zellen zu sperren, um eine direkte Eingabe zu verbieten?


Gruß Ralph

 

Hi Ralph,

benutze einen Blatschutz.
Der muss im Code dann natürlich erst aufgehoben und dann wieder gesetzt werden:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("L2:N500")) Is Nothing Then
        [COLOR=#ff0000]ActiveSheet.Unprotect[/COLOR]
        Cancel = True
        Range(Cells(Target.Row, 12), Cells(Target.Row, 14)).ClearContents
        Target = "x"
        Target.HorizontalAlignment = xlCenter
        [COLOR=#ff0000]ActiveSheet.Protect[/COLOR]
    End If
End Sub

Bis später,
Karin

 

Guten Morgen Karin,


erstmal vielen Dank für deine ausführliche und freundliche Hilfe!
Nun habe ich aber das Problem, dass ich den Bereich von L2:N500 zu N2:P500 abgeändert habe. Hier funktioniert das Macro aber nicht mehr richtig. In Spalte N lässt sich das "x" zwar aktivieren, wenn ich auf Spalte O wechsel, bleibt in Spalte N das "x" aber stehen?
Deine Erweiterung mit dem Blattschutz funktioniert zwar, jedoch wird das komplette Dokument damit geschützt. Da in Zukunft aber mehrere Leute drauf zugreifen sollen und Excel auch nach dem Passwort in den drei Auswahlspalten fragt, ist das nicht die optimale Lösung für mich.
Besteht vielleicht eine Möglichkeit mit Formeln und Gültigkeiten zu lösen?

Vielen dank im Voraus.


Ralph



P.S. das Problem mit der Auswahl habe ich gelöst. Habe in deinem Code Range(Cells(Target.Row, 12), Cells(Target.Row, 14) die Zahlen noch angepasst...

 

Hi Ralph,

was den Blattschutz betrifft: du musst natürlich alle die Zellen entsperren, in die Eingaben möglich sein dürfen.
Das Passwort musst du in den Code einbinden:

Code:

ActiveSheet.Unprotect "DeinPW"
.
.
.
ActiveSheet.Protect "DeinPW"

Bis später,
Karin