Doppelte Einträge in Zeile/Range finden
Holger,
die Forumssuche hat mir leider nicht geholfen.
Ich habe einen Range definiert und in diesem möchte ich nach doppelten
Einträgen finden. Zum Beispiel geht der Range von B19 bis Q19.
Der Code, den ich mir aus dem Forum rausgezogen habe, funktioniert nicht.
Anscheinend funktioniert er nur für Spalten, nicht für nur eine Zeile.
Aber ich verstehe ihn ja auch nicht wirklich.
Kann mir jemand helfen?
Gruß+Dank
Holger
Set rngCheckQuarter = wsDataWeek.Range(wsDataWeek.Cells(lng1stCell - 1, int1stCol), wsDataWeek.Cells(lng1stCell - 1, intLastCol))
entspricht B19:Q19
Dann die Function:
Call CheckQuarters(rngCheckQuarter)
Function CheckQuarters(ByVal RNG As Range) As Boolean
Dim arrDouble As Variant
Dim lngT As Long
arrDouble = RNG
With Application.WorksheetFunction
For lngT = 1 To UBound(arrDouble)
If .CountIf(RNG, arrDouble(lngT, 1)) > 1 Then
MsgBox "Hallo"
End If
Next lngT
End With
End Function