|
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":
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | 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)
color1 = 0
symbol2 = ChrW(9676)
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
|