Hilfe bei RadioButtons Teil 2

29/02/2008 - 13:44 von Andy Bar | Report spam
Hallo,

ich bin mit meinem Problem nun schon ein ganzes Stückchen weiter
gekommen, leider hakt es nun.

In meiner Tabelle funktioniert nun alles in Zeile "Qualitàt".

Aber nun muss ich diesen Code auf die anderen zwei Zeilen anwenden. Da
ich nicht programmieren kann, habe ich einfach den Code nochmal runter
kopiert und dann auf die anderen Zellen angepasst. Doch erhalte ich
immer nur Fehlermeldungen. Ich komm einfach nicht weiter.

Hier ist die aktuelle Beispieldatei:

http://www.adlb.de/temp/Radio2x.xls

Es wàre nett, wenn mir hier jemand wenigstens für die zweite Zeile das
anpassen könnte.

Vielen Dank im voraus...

Liebe Grüße,
Andy
 

Lesen sie die antworten

#1 Beverly
29/02/2008 - 16:28 | Warnen spam
Hi Andy,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oButton As Object
Application.EnableEvents = False
If Target.Count > 1 Then Exit Sub
If Target.Address = "$G$9" Then
If Target.Value = 5 Then Set oButton = OptionButton23
If Target.Value = 3 Then Set oButton = OptionButton22
If Target.Value = 1 Then Set oButton = OptionButton21
ElseIf Target.Address = "$G$8" Then
If Target.Value = 5 Then Set oButton = b3
If Target.Value = 3 Then Set oButton = b2
If Target.Value = 1 Then Set oButton = b1
ElseIf Target.Address = "$G$7" Then
If Target.Value = 5 Then Set oButton = OptionButton7
If Target.Value = 3 Then Set oButton = OptionButton4
If Target.Value = 1 Then Set oButton = OptionButton1
End If
With oButton
.Enabled = True
.Value = True
End With
Application.EnableEvents = True
End Sub

Bis spàter,
Karin
http://beverly.excelhost.de/
"Andy Bar" wrote:

Hallo,

ich bin mit meinem Problem nun schon ein ganzes Stückchen weiter
gekommen, leider hakt es nun.

In meiner Tabelle funktioniert nun alles in Zeile "Qualitàt".

Aber nun muss ich diesen Code auf die anderen zwei Zeilen anwenden. Da
ich nicht programmieren kann, habe ich einfach den Code nochmal runter
kopiert und dann auf die anderen Zellen angepasst. Doch erhalte ich
immer nur Fehlermeldungen. Ich komm einfach nicht weiter.

Hier ist die aktuelle Beispieldatei:

http://www.adlb.de/temp/Radio2x.xls

Es wàre nett, wenn mir hier jemand wenigstens für die zweite Zeile das
anpassen könnte.

Vielen Dank im voraus...

Liebe Grüße,
Andy

Ähnliche fragen