Zeilen per Button ein- oder ausblenden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zeilen_ausblenden() Dim letztzeile as long Application.ScreenUpdating = False letztezeile = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row 'Spalte G = 7 For i = 1 To letztezeile If Cells(i, 7).Value = "Abgeschlossen" Then Rows(i).Hidden = True End If Next i Application.ScreenUpdating = True End Sub Sub Zeilen_einblenden() Dim letztzeile as long Application.ScreenUpdating = False letztezeile = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row 'Spalte G = 7 For i = 1 To letztezeile Rows(i).Hidden = False End If Next i Application.ScreenUpdating = True End Sub Jetzt noch die Makros deinen Button zuweisen und fertig. Gruß yummi

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(7).SpecialCells(xlCellTypeConstants, 2) If cell_.Value = "Abgeschlossen" 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

Private Sub ToggleButton1_Click() With ToggleButton1 .BackColor = IIf(.Value = True, RGB(0, 255, 0), RGB(255, 0, 0)) End With 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(7).SpecialCells(xlCellTypeConstants, 2) If cell_.Value = "Abgeschlossen" 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

Hi Bernd ich habe doch noch eine Frage zum Toggle Button. Ich habe jetzt 3 Toggle Buttons erstellt und den Code dreimal kopiert und dann angepasst.
Beim ersten Button sollen alle Zeilen in denen eine 1 steht ausgeblendet werden beim zweiten alle mit einer 2 und beim dritten alle Zeilen mit einer 3. Das funktioniert. Aber wenn ich alle Zeilen in denen eine 1 steht wieder einblenden möchte werden alle eingeblendet. Bei den anderen verhält es sich genauso.
Könntest du mir dabei vielleicht helfen?
Der Code sieht gerade so aus:

Private Sub ToggleButton21_Click()
With ToggleButton21
.BackColor = IIf(.Value = True, RGB(255, 255, 255), RGB(126, 186, 86))
End With
Dim TB As ToggleButton
Set TB = ToggleButton21
Dim rngRow As Range
Dim cell_ As Range
If TB.Value = True Then
TB.Caption = "ausgeblendet"
Cells.Rows.Hidden = False
Set rngRow = Nothing
Else
TB.Caption = "eingeblendet"
On Error Resume Next
For Each cell_ In Columns(9).SpecialCells(xlCellTypeConstants, 9)
If cell_.Value = 1 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
ThisWorkbook.Worksheets("Tracking Liste").Cells(1, 1).Select
End Sub

Beliebteste Forumthreads (12 Monate)

Zeilen per Button ein- oder ausblenden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

277 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen per Button ein- oder ausblenden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

277 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread