brauche eine Formel oder ein Makro, das mir fünf Zellen überprüft ob midestens drei gleich sind!
Wie kann das realisiert werden?
Function Uebereinstimmung(Bereich As Range, Anzahl As Integer)
Dim objZelle As Object
Dim intTemp As Integer
Application.Volatile
For Each objZelle In Bereich
intTemp = Application.WorksheetFunction.CountIf(Bereich, objZelle)
If intTemp >= Anzahl Then
Uebereinstimmung = intTemp & " x " & objZelle: Exit Function
End If
Next
Uebereinstimmung = "Keine " & Anzahl & " Gleichen"
End Function