Anzahl unterschiedl. Einträge

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 5.0/7.0
nach unten

Betrifft: Anzahl unterschiedl. Einträge
von: Lars Jungclaus
Geschrieben am: 04.06.2002 - 13:29:37

Wie kann man über einen Bereich zählen wie viele unterschiedliche Einträge (Text oder Zahl) vorhanden sind. Die Absolute Anzahl geht über Anzahl(), aber wenn nur die Varianten gezählt werden sollen fehlt eine Funktion.

Vielleicht geht es über eine Matrixformel - ich habe es aber nicht hinbekommen.

Wer weiss wie es geht ?


nach oben   nach unten

Re: Anzahl unterschiedl. Einträge
von: Heinz
Geschrieben am: 04.06.2002 - 14:02:51

Hallo Lars,

versuche es mal mit

=Anzahl2(Bereich)

Anzahl2 zählt Zahl und Text

Gruß Heinz


nach oben   nach unten

Re: Anzahl unterschiedl. Einträge
von: Harald Kapp
Geschrieben am: 04.06.2002 - 14:16:47

Hallo Lars,
vorausgesetzt, Die Werte sind sortiert (oder Du kannst Sie sortieren), dann kannst DU die unterschiedlichen Werte wie folgt zählen:

Sub test()
Dim As Long
Dim alt As Variant
Dim cell As Range

k = 0
alt = ""
For Each cell In Selection
   If cell.Value <> alt Then
      alt = cell.Value
      k = k + 1
   End If
Next
If k > 0 Then
   MsgBox "Anzahl unterschiedlicher Werte: " & k
End If
End Sub


1) Werte sortieren (auf- oder absteigend ist egal)
2) Bereich (nur Spalte) markieren
3) Makros aufrufen
Gruß Harald

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Anzahl unterschiedl. Einträge"