Hallo zusammen,
Ich hoffe ihr könnt mir weiterhelfen.
Ich will gerne das alle doppelte Werte, Zahlen z.b. auch 1-66-66-66 , Wörter usw. in der Spalte grün markiert.
Ich hab schon mal was versucht.
Leider nimmt er nur Zahlen an und nur in Spalte A.
Sub doppelte_färben()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("A1:A100") If WorksheetFunction.CountIf(ActiveSheet.Range("A1:A100"), zelle.Value) > 1 Then zelle.Interior.ColorIndex = 4 Next zelle End Sub
Kann man den Code so ändern, das es alles was in der Spalte ist markiert und das er vorher eine outbox frage kommt " in welcher Spalte soll überprüft werden"
Dann gebe ich z.b. K ein und jetzt überprüft er in Spalte K die Doppelte Werte , Zahlen markiert.
Geht sowas?
|