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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen