Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
608to612
608to612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage

Forumthread: Abfrage

Abfrage
12.05.2005 12:08:25
Rainer
Hallo,
brauche eine Formel oder ein Makro, das mir fünf Zellen überprüft ob midestens drei gleich sind!
Wie kann das realisiert werden?
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage
12.05.2005 13:33:41
Jörg
Hallo Rainer,
das kannst Du z. B. mit dieser Funktion:

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

In die Zelle kommt dann:
=uebereinstimmung(A1:A14;3)
Viele Grüße
Jörg
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige