Excelfrager84
13.02.2015, 09:28
Makro um doppelte Werte fablich zu hinterlegen

Hallo, ich habe ein Makro, welches eine Excel Tabelle nach bestimmten Vorgaben formatiert. Dabei durchsucht es Spalte A nach doppelt vorkommenden Sachnummern und hinterlegt die gesamte Zeile grau wenn denn solche auftauchen.

Es kann aber vorkommen, dass nach doppelt vorkommenden Sachnummern direkt wieder doppelte Sachnummern angezeigt werden. Jetztz suche ich nach einer Möglichkeit, diese dann in einer anderen Farbe zu hinterlegen. Wie unten beispielhaft dargestellt, würden die Zeilen A5:A9 grau hinterlegt. Das Ziel wäre jetzt, dass Zeilen A5:A7dunkelgrau und A8:A9 hellgrau hinterlegt werden. Ich hab keine Idee, wie man so etwas anstellen könnte.

  1. Spalte A
  2. V
  3. L
  4. O
  5. H
  6. H
  7. H
  8. S
  9. S

Danke schon mal an alle die sich die Zeit nehmen zu Antworten

...zum Beitrag
Antwort
von Excelfrager84
13.02.2015, 12:14

Hallo Paule VBA und maximilianus7,

danke für eure Antworten, den Code habe ich hier mal eingefügt, maximilianus7, mit Flip-Flop und arrays kenne ich mich leider überhaupt nicht aus, gibt es dazu irgendow infos/trainings?

Code: Selection.FormatConditions(1).StopIfTrue = False Range("A11:S600").Select Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=ZÄHLENWENN($A$1:$S$600;$A11)>1" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.249946592608417 End With Selection.FormatConditions(1).StopIfTrue = False

 ...zur Antwort