AW: Zellenvergleich mit Wertausgabe
23.01.2004 11:19:27
Thorsten
Hi,
nun, zu dem doppelten einer Spalte:
als Makro: die Doppelten der Spalte F werden rot makiert:
Sub MarkColor()
Dim rngCell As Range, rng As Range
Set rng = Range("F1:F" & Cells(Rows.Count, 6).End(xlUp).Row)
For Each rngCell In rng
If WorksheetFunction.CountIf(rng, rngCell.Value) > 1 Then
rngCell.Interior.ColorIndex = 6
End If
Next rngCell
End
Sub
Formel zum bestimmen der Häüfigkeit eines Zellwertes: Excel Formel mit ANZAHL, ist selbsterklärend.
Hoffe das hilft zunächst, oder wolltest du eine Kombination auis Makro und Anzahl?
Gruß T.