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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen