Ich möchte einen Maßnahmenplan erstellen.
Wenn eine Maßnahme mit dem Wert 100 in der Spalte B beendet wurde, soll die entsprechende Zeile ausgeblendet werden.
Kann mir jemand helfen.
Vielen Dank
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim r As Range, c As Range
Application.ScreenUpdating = False
With Ws
Set r = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
For Each c In r
If c.Value = 100 Then c.EntireRow.Hidden = True
Next c
End With
Set Wb = Nothing: Set Ws = Nothing: Set r = Nothing: Set c = Nothing
End Sub
LG
End Sub
noch das
Application.ScreenUpdating = True
Grüße, Bernd