Bestimmte Spalten mit einem Klick Ein- und Ausblenden?

1 Antwort

Button mit diesem VBA Code erstellen:

Private Sub CommandButton1_Click()
  Rows("2:9").Select
  If Rows("2:9").Hidden = True Then
    Selection.EntireRow.Hidden = False
  Else
    Selection.EntireRow.Hidden = True
  End If
End Sub

Dann kannst du die Zeilen ausblenden und wieder einblenden.

Oubyi, UserMod Light  26.10.2018, 17:49

DH!

Es ginge aber auch mit einem Einzeiler:

Private Sub CommandButton2_Click()
Rows("2:9").Hidden = Not Rows("2:9").Hidden
End Sub
0