AW: geht nich antwort auf fcs
14.08.2006 07:56:52
fcs
Hallo Thomas,
Dein bisheriger Code (ohne die "=" vor dem Value):
Sub Schaltfläche4_BeiKlick()
Sheets("Kappen").Activate
If OptionButton5.Value = True Then
Worksheets("Kappen").ScrollArea = "$40:$99"
Else
OptionButton6.Value = True
Worksheets("Kappen").ScrollArea = "$100:$163"
End If
End Sub
schaltet zwischen den beiden Scroll-Areas hin umd her.
Da du nicht das Changeereignis der Buttons auswertest, um die Scrollarea festzulegen, kannst du auch irgendwie anders die Scroll-Area mit der Anweisung
Worksheets("Kappen").ScrollArea = ""
wieder aufs ganze Blatt umstellen. Ein weiterer Optionsbutton ist nicht unbedingt erforderlich. Falls du einen weiteren Optionsbutton einfügts, dann schaut es ungefähr so aus:
Sub Schaltfläche4_BeiKlick()
Sheets("Kappen").Activate
If OptionButton7.Value = True Then
Worksheets("Kappen").ScrollArea = ""
Else
If OptionButton5.Value = True Then
Worksheets("Kappen").ScrollArea = "$40:$99"
Else
OptionButton6.Value = True
Worksheets("Kappen").ScrollArea = "$100:$163"
End If
End if
End Sub
gruss
Franz