Public Sub Markierung()
Dim letzteSpalte As Long
Dim i As Long
With Worksheets("Tabelle2")
letzteSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
.Columns(2).FormatConditions.Add Type:=xlExpression, Formula1:= _
"=UND(B1"""";B1
Gruß Werner