Makro "Doppelte markieren"
20.10.2013 13:43:12
Claudia
das fettmarkierte funktioniert nicht. Ist meine Eigenregie, den Rest des Makros habe ich hier im Forum gefunden.
Ich würde gerne zwei Spalten rechts "doppelt" schreiben, damit ich den doppelten Eintrag besser filtern kann.
Vielen Dank!
LG Claudia
Sub Doppelte_markieren_ab_ersten_Eintrag_Neu()
'Es wird ab dem ersten Eintrag gefärbt
Dim Wert As Integer
On Error GoTo Fehler
Wert = InputBox("bitte Spalten-Nr. eingeben, die ausgewertet werden soll z.B. F=6, L=12, R=18, _
X=24, AD=30", "Spalten-Nr.", 1)
Dim rng As Range
Dim Bereich As Range
Set Bereich = Range(Cells(2, Wert), Cells(Rows.Count, Wert).End(xlUp)) 'Bereich A2 bis letzte _
Spalte in A wird durchsucht
' Set Bereich = Range("a2:a10000") ' fester Bereich wird durchsucht
For Each rng In Bereich
If Application.CountIf(Bereich, rng) > 1 Then _
rng.Offset(0, 1).Interior.ColorIndex = 3
rng.Offset(0, 2).Text = "doppelt"
Next
Exit Sub
Fehler:
End Sub