Office: Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden

seppco · 12. September 2011

Hallo,

ich habe folgenden Code aus dem Internet für einen Toggle-Button.

Code:

Sub SpaltenAusblenden()
Sheets("Liste").Activate
Columns("C:D").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
End Sub

Sub SpaltenEinblenden()
Sheets("Liste").Activate
Columns("C:D").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
End Sub

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
If TB.Value = True Then
TB.Caption = "Spalten einblenden"
Call SpaltenAusblenden
Else
TB.Caption = "Spalten ausblenden"
Call SpaltenEinblenden
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei diesem Code werden bestimmte Spalten aus- und wieder eingeblendet. Ich möchte in meiner Tabelle, dass die Zeilen aus-/eingeblendet werden wenn in der Spalte AB ein x steht.

Könntet Ihr mir dabei helfen?

Vielen Dank!

seppco

:)

chris-kaiser · 14. September 2011

hi

Code:

Private Sub ToggleButton1_Click()
Dim TB As ToggleButton
Set TB = ToggleButton1
Dim rngRow As Range
Dim cell_ As Range
If TB.Value = True Then
TB.Caption = "Zeilen ausblenden"
Cells.Rows.Hidden = False
Set rngRow = Nothing
Else
TB.Caption = "Zeilen einblenden"
On Error Resume Next
For Each cell_ In Columns(28).SpecialCells(xlCellTypeConstants, 2)
If cell_.Value = "x" Then
If rngRow Is Nothing Then
Set rngRow = cell_.EntireRow
Else
Set rngRow = Union(rngRow, cell_.EntireRow)
End If
End If
Next
If Not rngRow Is Nothing Then rngRow.EntireRow.Hidden = True
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

seppco · 15. September 2011

Hallo,

klappt hervorragend. Vielen Dank!

Gruß

seppco

Office: Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden

Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden

Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden

Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden - Similar Threads - Zeille Toggle Button

Makro aus personal.xls starten

Excel VBA mit Toggle Button Zeile einfärben

Toggle Button mit Passwort schützen

Mehrere Wenn-Dann-Formeln auf mehrere Zeillen bezogen

Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Code optimieren

Hilfe für Makros