Hallo zusammen,
ich habe eine Frage bezüglich der Programmierung einer Checkbox mit dem Inhalt der Zellenausblendung.
Um meine Excel Liste auf den ersten Blick übersichtlich zu gestalten, will ich eine bzw. mehrere Checkboxen einfügen, über deren Klick mehrere Zellen ausgeblendet/bzw. eingeblendet werden. Dies habe ich anhand dieser Formelzeile recht gut geschafft:
Dim blend As Boolean
Const zellein As String = "Zellen einblenden"
Const zellaus As String = "Zellen ausblenden"
With CommandButton1
If .Caption = zellein Then
.Caption = zellaus
blend = False
Else
.Caption = zellein
blend = True
End If
End With
Dim n As Integer
For n = 12 To 14
Rows(n).Hidden = blend
Next
Nun habe ich das Problem, dass mit der Zeit weitere Zeilen eingefügt werden. Dies verändert die Nummerierung der einzelnen Zellen (wonach dann auch die Checkboxen die falschen Zellen ausblenden werden).
Kann mir jemand einen Quelltext geben, mit dem ich dynamisch die Zeilen ausblende. D.h. dass ab der Zeile, wo sich die Checkbox befindet, auch nur die nächsten z.B. 4 Zeilen ausgeblendet werden (Egal wieviele Zeilen davor noch zugefügt werden). Dies muß unabhängig der Nummerierung geschehen.
Oder gibt es vielleicht eine einfachere Lösung?