AW: Profi bitte drüberschauen -
25.07.2013 13:01:33
fcs
Hallo Thomas,
für mich ist unklar in welchem Zellbereich jeweils peprüft werden soll ob der Zellinhalt mehr als 1-mal vorkommt.
Da scheinen mir in der Formel deiner bedingten Formatierung ein paar $-Zeichen zu fehlen.
Wenn du mit bedingter Formatierung(inkl. Formel) arbeittest und Berechnung auf manuell steht, dann muss du nur Taste F9 drücken zur Neuberechnung.
Eine Makrolösung sieht etwa wie folgt aus. Sie benötigt aber auch schon ein paar Sekunden bei der Anzahl Zellen.
Gruß
Franz
Sub Formatieren()
Dim wks As Worksheet
Dim rngZelle As Range, rngPruefen As Range, rngZaehlen As Range
Set wks = ActiveSheet
Set rngPruefen = wks.Range("A8:NG240")
Set rngZaehlen = wks.Range("A8:A240")
Application.ScreenUpdating = False
rngPruefen.Interior.ColorIndex = xlColorIndexNone 'oder andere Basisfarbe setzen
For Each rngZelle In rngPruefen
'Prüft Anzahl Zellinhalt in Spalte A
If Application.WorksheetFunction.CountIf(rngZaehlen, rngZelle.Value) > 1 Then
'Prüft Anzahl Zellinhalt in Spalte der Zelle
'If Application.WorksheetFunction.CountIf(rngZaehlen.Offset(0, _
rngZelle.Column - rngZaehlen.Column), rngZelle.Value) > 1 Then
rngZelle.Interior.Color = RGB(0, 255, 0) 'hellgrün
End If
Next
Application.ScreenUpdating = True
MsgBox "Fertig mit Formatieren"
End Sub