Office: (Office 2016) Zelle formatieren wenn wenn bestimmter Wert in Zelle vorhanden

Hallo Leute,
Ich hab in einer Spalte Zellen wo Werte mit "SW" oder "MN" oder "AN" oder "N" drinnen stehen. und die Zellen wo einer der Werte(Buschstaben) stehen sollen Fett formatiert werden.
Aber es will nicht ganz funktionieren. Irgendwelche Typen sind unverträglich.

Aktuell schaut mein Code so aus.

Code:

Sub Fett()
Dim F As Range
Dim Bereich As Range

Set Bereich = ("M2:M200")

    For Each Bereich In F
        If F Like "*SW*" Or "*MN*" Or "*N*" Then Cells.Font.Bold = True
    Next F

End Sub

 

Hallo,

das Makro muss wie folgt lauten:

Code:

Sub Fett()
   Dim F As Range
   Dim Bereich As Range

   Set Bereich = Range("M2:M200")
   For Each F in Bereich.Cells
      If (F Like "*SW*") Or (F Like "*MN*") Or (F Like "*N*") Then F.Font.Bold = True
   Next F
End Sub

 

Hallo Exl121150,

dank Dir für die Korrektur und Hilfe. Jetzt klappt es.

Gruß CX