GROSS und Kleinbuchstaben

Sub Zellen_ERLEDIGT_Ausblenden()
Dim Markierung As Range, Wert As String, Zelle As Range
Set Markierung = ActiveSheet.Range("M5:M501")
For Each Zelle In Markierung
Wert = Zelle.Value
If Wert = "ERLEDIGT" Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub