AW: Rückfrage
07.11.2019 21:58:16
Werner
Hallo Caro,
das Makro schreibt ins Spalte AR, rechts neben deinen Datenbestand, eine Formel und blendet dann die entprechenden Zeilen aus.
Spalte AR kannst du ausblenden, dann sieht man davon nichts.
Sub ausblenden()
Dim loLetzte As Long
Application.ScreenUpdating = False
'Blattname anpassen
With Worksheets("Tabelle4")
loLetzte = .Cells(.Rows.Count, "E").End(xlUp).Row
.Range(.Cells(100, "AR"), .Cells(loLetzte, "AR")).FormulaLocal = _
"=WENN(ODER(E101=""Platzhalter"";E100=""Platzhalter"");0;"""")"
.Range(.Cells(100, "AR"), .Cells(loLetzte, "AR")).Value = _
.Range(.Cells(100, "AR"), .Cells(loLetzte, "AR")).Value
.Range(.Cells(100, "AR"), .Cells(loLetzte, "AR")) _
.SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
End With
End Sub
Gruß Werner