PDA

Vollständige Version anzeigen : Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden


seppco
14.09.2011, 16:06
Hallo,

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


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


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.09.2011, 16:31
hi

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

seppco
16.09.2011, 11:08
Hallo,

klappt hervorragend. Vielen Dank!

Gruß

seppco