Zeilen ausblenden
27.10.2004 13:21:01
Holzi
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Sheets("Stückliste").Rows("25:26").EntireRow.Hidden = True
End If
If CheckBox1 = False Then
Sheets("Stückliste").Rows("25:26").EntireRow.Hidden = False
End If
End Sub
Frage:
Mit diesem Befehl kann ich Zeilen aus- und einblenden, in diesem Fall die Zeilen 25 bis 26. Wie lautet der Befehl, wenn ich z.B. die Zeilen 25 bis 27 und 36 und 48 bis 50 ausblenden möchte? Mit einer Checkbox!!
Sehr herzlichen Dank für Ihre Hilfe!!
Anzeige