ich würde gerne per Button alle Zeilen in einem bestimmten Bereich (Zeilen 8 bis 111) ausblenden, die in Spalte A den Wert -1 haben. Kann mir jemand mit dem zugehörigen Makro helfen?
Gruß Basti
Sub ausblenden()
For zl = 111 To 8 Step -1
If Cells(zl, "A") = "-1" Then
Rows(zl).Hidden = True
End If
Next zl
End Sub
Sub blendomat()
Dim rngB As Range
Dim intC As Integer
Dim ws As Worksheet
Set ws = ActiveSheet 'anpassen
With ws
For intC = 8 To 111
If .Cells(intC, 1).Value = -1 Then
If rngB Is Nothing Then
Set rngB = .Cells(intC, 1)
Else
Set rngB = Union(rngB, .Cells(intC, 1))
End If
End If
Next
End With
If Not rngB Is Nothing Then
rngB.EntireRow.Hidden = True
End If
Set rngB = Nothing
End Sub