Code für ToggleButton von Nepumuk
06.05.2017 22:18:20
Nepumuk
folgenden Code habe ich von Nepumuk bekommen.
Private Sub ToggleButton1_Click()
Dim objCell As Range
If ToggleButton1.Value Then
ToggleButton1.Caption = "128er Feld"
Else
ToggleButton1.Caption = "256er Feld"
End If
For Each objCell In Range("CZ4:DB80")
Select Case objCell.Row Mod 10
Case 4 To 6, 9: objCell.EntireRow.Hidden = ToggleButton1.Value
End Select
Next
End Sub
Bei erster Betrachtung sah es so aus,als wenn es passen würde.Nun musste ich feststellen,das ab Zeile 9 immer eine Zeile zuviel zu sehen ist. Es müssten eigentlich noch jeweils die Zeilen 10,20,30 usw auch noch ausgeblendet werden,dann passt es aber nicht mehr mit jeder 10. Zeile.In der Beispieltabelle habe ich jeweils ein Beispiel,wie es nach betätigen des Buttons aussieht und wie es aussehen soll.Ausserdem ist darin nur ein achtel der Tatsächlichen Zellen drin. Die letzte Zeile ist 639 bzw 640.
https://www.herber.de/bbs/user/113374.xls
Lg Frank