Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Mit ToggleButton Zeilen aus/einblenden

Betrifft: Mit ToggleButton Zeilen aus/einblenden von: Marko
Geschrieben am: 28.09.2020 11:39:36

Hallo,
ich möchte über einen ToggleButton Zeilen ausblenden, wenn in Spalte A ein x steht. Der Zeilenbereich: A14 bis A94
Das x wir über die Formel wenn B14 größer als 0 dann 0 sonst x ermittelt. Diese Formel befindet sich in der Zelle A14 bis A94.
Wenn der ToggleButton nicht aktiv ist, dann sollen alle Zeilen (14 bis 94) wieder eingeblendet werden.
Ich bekomme das einfach nicht hin. Vielen Dank im Voraus für Eure Hilfe.

Betrifft: AW: Mit ToggleButton Zeilen aus/einblenden
von: Daniel
Geschrieben am: 28.09.2020 11:54:56

Hi

Im Klick-Event des Togglebuttons
With Range("A14:A94")
If Togglebutton1 then    
   If worksheetfunction.Countif(.cells, "x") then
     .Specialcells(xlcelltypeformulas,2).entireRow.hidden = True
    End if
Else
    .EntireRow.Hidden = false
End if
End with
Gruß Daniel

Betrifft: AW: Mit ToggleButton Zeilen aus/einblenden
von: Marko
Geschrieben am: 28.09.2020 12:08:06

Genial, Vielen Dank...