Ein- und Ausblenden per click
04.07.2016 12:53:35
Berni
Habe ein kleines Macro geschrieben, nur bekomme ich es noch nicht zum laufen.
Und zwar:
In einer Übersichtstabelle habe ich jeweils 35 commandbuttons mit dem Text Kostenxx und Stundenxx angelegt.
Über zwei Optionbuttons sollen nun abwechselnd die ersten 35 oder die zweiten 35 eingeblendet werden.
Dazu habe ich folgenden code geschrieben.
Private Sub Worksheet_Calculate()
Dim i As Integer
For i = 1 To 35
ActiveSheet.CommandButton(i).Visible = OptionButton1.Value
Next i
End Sub
Wo könnte der Hund begraben sein?
Vielleicht weiß jemand von Euch einen Rat?
Danke vorerst einmal
Berni