Guten Morgen,

ich möchte gerne ein Bewertung System mit Excel VBA realisieren.

Im Prinzip soll es so funktionieren wie die Optionsfelder in einer Gruppe gruppiert. Ich möchte später andere Symboliken nutzen, hier nur zum Beispiel ähnliche Symbole.

Folgendes habe ich bisher "gebastelt":

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim symbol1 As String
Dim symbol2 As String
Dim symbol3 As String
Dim color1 As String
Dim color2 As String
Dim color3 As String

symbol1 = ChrW(9679)   'Symbol für Kreis ausgefüllt
color1 = 0

symbol2 = ChrW(9676)   'Symbol für Kreis nicht ausgefüllt
color2 = 4

If Not Intersect(Target, Range("A1:G1,A3:G3")) Is Nothing Then 
    If ActiveCell.Value = symbol2 Then
         With ActiveCell
            .Value = symbol1
            .Font.ColorIndex = color1
            .Offset(0, -1).Value = symbol2
            .Offset(0, 1).Value = symbol2
        End With
      
    Else
    With ActiveCell
        .Value = symbol2
        .Font.ColorIndex = color1
    End With
    End If
End If

Funktioniert leider noch nicht so ganz. Ich möchte, sobald ich z.B. in der Zeile 1 in meinem Bereich (A1:G1) eine Zelle wähle, z.B. B1, sollen die Zellen A1,C1,D1, E1, F1, G1, mit dem Symbol2, "deaktiviert" sein. Also im Prinzip, wie die Optionsfelder in einer Gruppe verhalten. Auch mein .offset ergibt ein Fehler, wenn ich die Zelle A1 anklicke, logisch, bei .offset(0,-1), aber ich habe keine Lösung.........

Irgendwie müsste das .Offset(x,x).value auf alle nicht anklickten zellen in der Zeile 1 im Bereich(A1:G1)

Außerdem sollte noch der Wert (A1 = 2, B1 = 3, C1 = 5, D1=7, E1 = 10, F1=13; G1 = 16) in Zeile H1 auftauchen.

Vielen Dank schon mal vorab

Andreas