aus dem Forum habe ich folgenden Code, mit dem ich schnell doppelte Einträge in einer Spalte finden kann.
Sub Doppelte()
Dim arrAZ
Dim lngLauf As Long
Dim lngAnzahl As Long
Application.ScreenUpdating = False
lngAnzahl = Sheets("Tabelle1").Cells(65536, 1).End(xlUp).Row
arrAZ = Sheets("Tabelle1").Range("A1:A" & lngAnzahl)
For lngLauf = 2 To lngAnzahl
'wenn gleich dem Vorgänger, dann rot
If arrAZ(lngLauf, 1) = arrAZ(lngLauf - 1, 1) Then
Sheets("Tabelle1").Cells(lngLauf, 1).Interior.ColorIndex = 3
Else
'wenn gleich dem Nachfolger, aber ungleich dem Vorgänger, dann blau
If arrAZ(lngLauf, 1) = arrAZ(lngLauf + 1, 1) Then
Sheets("Tabelle1").Cells(lngLauf, 1).Interior.ColorIndex = 37
End If
End If
Next
Application.ScreenUpdating = True
End Sub
Leider ist immer fest voreingestellt "Tabelle1" und Spalte "A". Ich möchte aber flexibel auch mal die Dublettenprüfung ab Zelle "C5" starten können.
In einem anderen Makro von mir ist das so gelöst:
Sub blabla()
Dim Zelle1
Dim Wo, ber, Ja
eing = InputBox("Die Zelle eingeben, ab der geprüft werden soll," _
& (Chr(13)) & "z.B. A1 oder F6.", "Zellenauswahl")
If eing = "" Then Exit Sub
Range(eing).Select
eing = ""
Application.ScreenUpdating = False
Zelle1 = ActiveCell
Wo = ActiveCell.Address
ActiveCell.Offset(1).Select
ber = ActiveCell.CurrentRegion.Rows.Count
For x = 1 To ber
i = 1
For i = i To ber...............
End Sub
Wiederum leider kann kann ich das wegen fehlender VBA Kenntnisse nicht selbst in mein neues Marko einbauen :(
Wer kann bitte helfen?
Grüße Erwin