nur Anzeige Fallfenster verändern
30.05.2004 11:55:27
thomas
Für ein Fallfenster ist die LinkedCell B300, ListIndex ist von B301:B303.
Mit folgendem Makro definiere ich die Variable "vorher" von OptionButtons, die ich dann in einem Copymakro mit verschiedenen Cases brauche.
Ich möchte erreichen, dass dort, wo jetzt ComboBox1 = Range("B301"), ein Codeelement steht, das in die linkedCell schreibt den Begriff "Break-even2 If OptionButton8, "Soll-Gewinn" If OptionButton9 und "Soll-ROS" If OptionButton10.
Eigentlich geht ja das mit ListIndex = 8, 9, 10. Das ist aber nicht optimal, da dann immer grad immer der enstprechende Case im Copymakro ausgeführt wird. Ich möchte also lediglich die Anzeige verändern.
Vielen Dank für Hilfe!
Dim vorher As String
Private Sub Worksheet_Activate()
If Sheets("Start").OptionButton8 = True Then
vorher = "Break-even"
ComboBox1 = Range("B301")
End If
If Sheets("Start").OptionButton9 = True Then
vorher = "Soll-Gewinn"
ComboBox1 = Range("B302")
End If
If Sheets("Start").OptionButton10 = True Then
vorher = "Soll-ROS"
ComboBox1 = Range("B303")
End If
End Sub