Option Buitton = false
04.12.2014 12:54:29
Chris
ich habe ein Option Button in einer UF, der bei Aktivierung einen bestimmten Bereich sortiert und farblich markiert. Das läuft auch - was ich nicht hinbekomme ist das Aufhabend der Farbmarkierungen bei OptionButton1.Value=False...
If OptionButton1.value = false funktioniert nicht, weiß jmd. wie man das macht?
Private Sub OptionButton1_Click()
Dim rng As Range
If OptionButton1.Value = True Then
Set rng = ActiveSheet.Range("Z14:AZ14")
For Each Zelle In rng
If Zelle.Value = "MW 4.3" Then
Zelle.Offset(1, 0).Resize(800).Sort _
Key1:=Range(Zelle, Zelle.Offset(1, 0)), Order1:=xlDescending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
Zelle.Resize(800).Interior.Color = RGB(230, 185, 164)
' else
'If OptionButton1.Value = True Then
'Set rng = ActiveSheet.Range("Z14:AZ14")
'For Each Zelle In rng
'If Zelle.Value = "MW 4.3" Then...
End If
Next
End If
Gruß
Chris