VBA bedingte Formatierung
22.07.2013 08:50:36
Andy
mit dem folgenden Script markiere ich mir alle Nummer in Spalte A, die doppelte vorkommen. Wie _ muss ich mein Script erweitern, wenn ich anschließend zusätzlich alle Nummern in Spalte A orange markieren möchte, bei denen in Spalte S eine Zahl mit dem Wert "88888" steht?
Public Sub filtern()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
'doppelte Nummer in Spalte A farblich markieren
lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 1).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 1)), _
strSuchwert) 1 Then
Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
End If
Next lngZeilenSprung
End Sub
Gruß Andy
Anzeige