Zählen von Zahlen
25.07.2003 11:33:34
Nes80
ich habe ein folgendes Problem.Ich will das gezählt wird; wieviele verschiedene Zahlen, es in einer Tabelle(Bereich) gibt.
z.B:
000322
000333
000331
000333
000323
000322
000331
als Ergebnis soll 4 rauskommen
Bei dieser folgenden Lösung(siehe unten),da kommt immer 5 raus. Der Fehler liegt an folgender stelle die verschiedenen Zahlen (000333 und 000323) werden nicht als verschiedene erkannt.Hilft mir bitte die unten stehende Lösung zuvervollständigen.
LÖSUNG:
1) Kopiere diesen code in deine Mappe in ein Modul
Modul einfügen: "Extras" - "Makros" - "Visual Basic Editor" - "Einfügen" - "Modul"
Function ZÄHLEUNGLEICHE(Bereich As Range) As Long
Dim zähler As Long, c As Range
If Bereich.Cells.Count = 1 Then
ZÄHLEUNGLEICHE = 1
Else
For Each c In Bereich
If c.Address <> Bereich.Cells(1).Address Then
If c <> c.Offset(-1, 0) Then
zähler = zähler + 1
End If
End If
Next c
ZÄHLEUNGLEICHE = zähler
End If
End Function
2) sortiere die Liste
3) schreib in eine beliebige Zelle =ZÄHLEUNGLEICHE(A1:A15)
A1:A15 ist dein Listenbereich
Mfg Nes