Makro Zeilenbereich ein- und ausblenden
01.01.2021 22:40:58
Marko
ein frohes neues Jahr wünsche ich Euch.
Ich möchte in diesem Makro jede zweite Zeile im Bereich von Zeile 11 bis 90 mit einer CheckBox ausblenden.
Wie kann ich die Zeilen sinnvoll zusammenfassen und wie könnte der Code dann aussehen?
Vielen Dank für Eure Hilfe.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox1.Caption = "Details ausgeblendet!"
Range("O3").ClearContents
Columns("S:U").Hidden = True
Range("12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68, _
70,72,74,76,78,80,82,84,86,88,90").EntireRow.Hidden = True
Else
CheckBox1.Caption = "Details eingeblendet!"
Range("O3").Value = Sheets("Ausw1").Range("B9")
Columns("S:U").Hidden = False
Range("12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68, _
70,72,74,76,78,80,82,84,86,88,90").EntireRow.Hidden = False
Call ausblenden
End If
End Sub