Microsoft Excel

Herbers Excel/VBA-Archiv

Doppelte Werte markieren?

Betrifft: Doppelte Werte markieren? von: Antonio
Geschrieben am: 11.03.2008 07:13:35

Guten Morgen zusammen,

Bitte um Hilfe! Kann man die doppelte Werte in Spalte A3:A ,die 2x vorkommen, per VBA-Code rot markieren lassen? und wenn die werte mehr als 2x vorkommen, gelb markieren?

Vielen Dank für eine Rückmeldung.

Gruß
Antonio

  

Betrifft: AW: Doppelte Werte markieren? von: Hans W. Herber
Geschrieben am: 11.03.2008 07:20:22

Hallo Antonio,

wie folgt:

Sub GetDoubles()
   Dim rngAll As Range, rngAct As Range
   Set rngAll = Range("A3:A50")
   For Each rngAct In rngAll.Cells
      If WorksheetFunction.CountIf(rngAll, rngAct.Value) > 2 Then
         rngAct.Interior.ColorIndex = 6
      ElseIf WorksheetFunction.CountIf(rngAll, rngAct.Value) > 1 Then
         rngAct.Interior.ColorIndex = 3
      Else
         rngAct.Interior.ColorIndex = xlColorIndexNone
      End If
   Next rngAct
End Sub


Gruss hans


  

Betrifft: AW: Doppelte Werte markieren? von: Antonio
Geschrieben am: 11.03.2008 07:23:57

Guten Morgen Herr Hans W. Herber,

vielen Dank für die schnelle Hilfe.



Gruß
Antonio :-)


 

Beiträge aus den Excel-Beispielen zum Thema "Doppelte Werte markieren?"