ich habe unten stehenden Code im Internet gefunden. Mit dem Code werden Duplikate in der Spalte A markiert. Kann mir jemand den Code so anpassen, dass mit einer Inputbox abgefragt wird, welche Spalte durchsucht werden soll.
Gruß
Thomas
Option Explicit
Sub Doppelt_Red()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(lngZeile, 1) = Cells(lngZeile + 1, 1) Then
With Range(Cells(lngZeile, 1), Cells(lngZeile + 1, 1))
.Font.Bold = True
.Font.ColorIndex = 3
End With
End If
Next
Application.ScreenUpdating = True
End Sub