Makro - Zeilen ein- und ausblenden
WalterK
den Code habe ich vor längerer Zeit in einem Forum gefunden und die Bezeichnung "Ein" und "Aus" auf "Privat+Intern Ein" und "Privat+Intern Aus" abgeändert. Noch ist es so, dass über den CommandButton die Zeilen mit den Nichtleeren Zellen in Spalte H aus- oder eingeblendet werden.
Wer kann mir bitte den Code so abändern, dass in Spalte H nicht auf die Nichtleeren Zellen geprüft wird sondern darauf, ob der Text "Privat" oder "Intern" darin steht. Nur diese Zeilen sollen aus- und auch nur diese sollen wieder eingeblendet werden.
Option Explicit
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Long, hideCol As Integer
hideCol = 8
Select Case Me.CommandButton1.Caption
Case "Privat+Intern Ein", "Privat+Intern Aus"
Case Else
Me.CommandButton1.Caption = "Privat+Intern Aus"
End Select
If Me.CommandButton1.Caption = "Privat+Intern Aus" Then
For i = Cells(Rows.Count, hideCol).End(xlUp).Row To 2 Step -1
If Cells(i, hideCol) "" Then
Rows(i).Hidden = True
End If
Next i
Me.CommandButton1.Caption = "Privat+Intern Ein"
Else
With Cells
.EntireRow.Hidden = False
End With
With Me.CommandButton1
.Caption = "Privat+Intern Aus"
End With
DoEvents
Application.ScreenUpdating = True
End If
End Sub
Besten Dank im voraus, Walter