kann mir bitte jemand eine Makrozeile
zu folgendem Problem schreiben:
Ich möchte alle Inhalte der Zellen der Spalte M löschen
bis auf die Zellen mit "Andreas".
Danke und Grüße
A.
Sub M_Löschen()
Dim z As Range
For Each z In Intersect(ActiveSheet.UsedRange, Range("M:M"))
If z.Value <> "Andreas" Then z.ClearContents
Next z
End Sub