Zeilen/Spalten ein- u. ausblenden
27.06.2007 11:24:57
Wrobel
habe folgenden Code.
Mit dem kann ich Zeilen und Spalten ein- u. ausblenden lassen.
Kann ich den Code aber auch so verändern, dass wenn alles ausgeblendet ist, danach nur noch alle Zeilen und nur noch die Spalte "G" eingeblendet wird?
Gruß
Wrobel
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("e, 1")
ws.Rows("6:10").EntireRow.Hidden = Not ws.Rows("6:10").EntireRow.Hidden
ws.Columns("H").EntireColumn.Hidden = Not ws.Columns("H").EntireColumn.Hidden
ws.Columns("J").EntireColumn.Hidden = Not Columns("J").EntireColumn.Hidden
ws.Columns("c").EntireColumn.Hidden = Not Columns("c").EntireColumn.Hidden
ws.Columns("i").EntireColumn.Hidden = Not Columns("i").EntireColumn.Hidden
ws.Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
ws.Columns("b").EntireColumn.Hidden = Not Columns("b").EntireColumn.Hidden
End Sub
Anzeige