Code für ToggleButton
22.04.2017 20:57:43
Frank
bezugnehmend auf folgende Codes:
Sub ZeilenAusblenden256_128()
Dim objCell As Range
For Each objCell In Range("DP4:DP639")
Select Case objCell.Row Mod 10
Case 4 To 6, 9: objCell.EntireRow.Hidden = True
End Select
Next
End Sub
Sub ZeilenEiblenden256_128()
Dim objCell As Range
For Each objCell In Range("DP4:DP639")
Select Case objCell.Row Mod 10
Case 4 To 6, 9: objCell.EntireRow.Hidden = False
End Select
Next
End Sub
hab ich mir folgenden Code für ein Togglebutton gebastelt,der sogar funktioniert(stolz guck)
Private Sub ToggleButton1_Click()
'Beispiel
If ToggleButton1.Caption = "128er Feld" Then
ToggleButton1.Caption = "256er Feld"
Else
ToggleButton1.Caption = "128er Feld"
End If
If ToggleButton1.Value = True Then
Dim objCell As Range
For Each objCell In Range("DP4:DP639")
Select Case objCell.Row Mod 10
Case 4 To 6, 9: objCell.EntireRow.Hidden = True
End Select
Next
Else
If ToggleButton1.Value = False Then
For Each objCell In Range("DP4:DP639")
Select Case objCell.Row Mod 10
Case 4 To 6, 9: objCell.EntireRow.Hidden = False
End Select
Next
End If
End If
End Sub
Mein Auge sagt mir,das dieser Code alles andere als Profihaft aussieht. Was kann man wie verbessern?Lg Frank