Markierte Felder zählen und ausgeben
09.12.2020 18:01:07
Jürgen
ich habe ein Macro, das mir in einer Tabelle mittels bedigter Formatierung und einer entsprechenden Regel Felder in einer Spalte markieren.
Jetzt würde ich noch gerne die Anzahl der Felder die markiert wurden ermitteln und ausgeben. Weiß jemand wie ich das machen könnte?
Der Code für die bedingte Formatierung sieht so aus. Davon habe ich einige, die sich dann lediglich in der Formel unterscheiden.
Danke und Grüße
Jürgen
Sub v7361_m()
Sheets("Sheet1").Select
Range("K3:K5000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(K3="""";G3=""O"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub