Anzahl sichtbarer Einträge zählen

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Anzahl sichtbarer Einträge zählen
von: Wolfi
Geschrieben am: 08.07.2002 - 13:04:31

Hallo, ich habe in einer Spalter verschiedene Namen stehen.
Wie kann ich die Anzahl der verschiedenen Einträge in der Spalte ermitteln, aber nur von denen, die sichtbar sind.
Wenn ich alle zählen möchte, auch die nicht sichtbaren (mit Filter), dann kann ich die Formel

{=SUM((FREQUENCY(A:A;A:A)>0)*1)}

verwenden, aber wie, wenn ich nur die Anzahl der sichtbaren Namen zählen will.
Danke.

nach oben   nach unten

Mit VBA
von: @lex
Geschrieben am: 08.07.2002 - 13:15:15

Mahlzeit Wolfi !
Vielleicht hilft Dir ja dieser Code etwas weiter:

Sub Zählen()
Dim intCount, intCounter As Integer
For intCount = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Rows(intCount).Hidden = False Then intCounter = intCounter + 1
Next intCount
MsgBox intCounter
End Sub

VG,
Alex
nach oben   nach unten

Anzahl der VERSCHIEDENEN Einträge
von: Wolfi
Geschrieben am: 08.07.2002 - 13:26:47

Danke, aber kannst du mir auch sagen, wie ich die Anzahl der verschiedenen Einträge zähle. gleiche Einträge sollen nur einmal gezählt werden

nach oben   nach unten

Re:
von: @lex
Geschrieben am: 08.07.2002 - 13:54:38

Hallo nochmal !
Sorry hatte ich überlesen :-(

Hilft es Dir wenn Du Dir die doppelten über den Spezialfilter aus filterst ?
Falls Du Dich mit VBA auskennst, kannst Du ja mal ins Archiv schauen, dort gibt es bestimmt massig Code-Fragmente, die ohne doppelte zählen.


VG,
Alex

nach oben   nach unten

Re:
von: Wolfi
Geschrieben am: 08.07.2002 - 14:37:37

hallo, ich darf die doppelten Einträge nicht über den Filter ausblenden, da ich die restliche Zeile für jeden Eintrag auswerten muss.
Danke trotzdem, werde mich umsehen

nach oben   nach unten

Re:
von: Hans W Hofmann
Geschrieben am: 09.07.2002 - 10:50:43

Versuchs mal damit

Function CountDubles(Bereich As Range)
Dim As New Collection, b, c As Integer
On Error Resume Next
For Each b In Bereich
  If b.Value <> "" Then
    a.Add b.Value, "_" & b.Value
    CountDubles = CountDubles - (a.Count > c)
    c = a.Count
  End If
Next
On Error GoTo 0
End Function

Gruß HW

nach oben   nach unten

Re:
von: Hans W Hofmann
Geschrieben am: 09.07.2002 - 12:06:24

Ajee, es sollen die ausgeblendeten ja nicht mitzählen
also ergänze
If b.Value <> "" And Not b.Rows.Hidden Then

Gruß HW


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Anzahl sichtbarer Einträge zählen"