Office: (Office 365) Nur sichtbare Zeilen zählen

Moin,

ich habe einen Code der mir die Zeilenanzahl in meiner Tabelle anzeigt aber ich möchte das er wenn ich Filter verwende nur die sichtbaren Zeilen anzeigt.

Wer kann mir hier weiterhelfen :-)

Code:

Sub Zeilenanzahl_ermitteln()

'Intelligente Tabelle in Variable speichern
    Dim tbl As ListObject
    Set tbl = Tabelle1.ListObjects("tbDaten")

' Anzahl der Zeilen in der intelligenten Tabelle ermitteln
    zeilenanzahl = tbl.ListRows.Count
    
' Ergebnis in einer Messagebox anzeigen
    MsgBox "Dein Datensatz '" & tbl.Name & "' hat " & zeilenanzahl & " Zeilen."

End Sub

 

Hallo,

warum willst du das per Makro lösen? Dafür gibt es die Funktion =TEILERGEBNIS(2; [dein Bereich])

 

Hi,

weil das ganze in einer Intelligenten Tabelle ist und die Benutzer eine Oberfläche ohne Menü bekommen und dann einen Button haben über den Sie das Makro ausführen lassen können und er soll Ihnen dann nur die Anzahl der sichtbaren bzw. gefilterten Datensätze anzeigen.

 

Hallo,

dann versuche es mal damit:

Code:

Option Explicit

Sub Zeilen_zaehlen()
    Dim isect As Range
    Set isect = Application.Intersect(Target, Columns(1))
    If Not isect Is Nothing Then
        Range("AN1") = Application.WorksheetFunction.Subtotal(2, Range("A:A"))
    End If
End Sub

 

Hallo Klaus,

danke für deine Idee. Hier habe ich aber das Problem das ich ihm eine Range angeben muss daher wollte ich über die ListObject Funktion gehen und ihm als Range die Intelligente Tabelle geben, die ja von den Benutzern auch erweitert oder verkleinert werden kann, daher kann ich wie in deinem Code geschrieben keine feste Range wie zum Beispiel von A5:A134 vorgeben.

 

Hallo Plein,

du musst Zeile für Zeile überprüfen, ob sie ausgeblendet ist. (s. Bsp. in Mappe)

Gruß Sigi

 

Hallo Sigi,

jetzt habe ich aber das Problem das er das ganze Blatt nimmt als Range, er soll aber nur die sichtbaren Zeilen innerhalb der intelligenten Tabelle zählen.

 

Hallo,

verstehe ich nicht, habe einfach die vollständige Spalte (A) genommen. Du hast ja, wie ich hoffe, den Excelregeln entsprechend, nur eine Liste auf dem Tabellenblatt?

 

Es gibt oben auf dem Blatt ja noch Diagramme aus den Datenschnitten und einen Header, welche er bei der Zeilenanzahl natürlich jetzt mitzählt. Daher hatte ich ja wie in meinem ersten Beitrag geschrieben über den Code die Tabelle direkt angesprochen, was auch funktioniert und er spuckt mir dann auch die genaue Anzahl an Zeilen innerhalb der Tabelle aus. Nur wenn ich durch die verschiedenen Filter bestimmte Zeilen nicht eingeblendet habe zählt er Sie mit, was ich in dem Fall wo ich Daten gefiltert habe nicht haben möchte. Hier soll er mir dann nur die Anzahl der sichtbaren und gefilterten Zeilen innerhalb der anzeigen.

 

Hallo Plein,

niemand weiß, wie du deine intelligente Tabelle definiert hast.
Das Makro verwendet den UsedRange.
Eine intelligente Tabelle ist immer nur so groß wie gerade notwendig! (Sonst andere wäre es nicht intelligent.)

Gruß Sigi

 

Du kannst bei Range("...") statt der klassischen Zelladressen auch die Bezeichnungen der Intelligenten Tabelle verwenden, so wie du sie in den Formeln siehst wenn du darauf referenzierst.

informierst du bitte die anderen Foren, wenn du in einem der Foren, die du angefragt hast, eine passende Lösung bekommst?

Crossposter sind bei Helfern ungefähr so gerne gesehen wie Kunden, die bei mehreren Lieferdiensten eine Pizza bestellen und dann die nicht annehmen (und auch nicht bezahlen), die als zweite oder dritte geliefert werden.

 

Scheint gelöst, aber scheinbar kein Grund das mitzuteilen.....
ListObjects - Nur sichtbare Zeilen zählen | HERBERS Excel Forum

 

Hallo,

ich begreife immer noch nicht, warum du unbedingt ein VBA-Makro dafür benötigst, wenn du die sichtbaren Zeilen in einer intelligenten Tabelle zählen willst, sodass in dieser Anzahl eventuell ausgeblendete Zeilen der intelligenten Tabelle nicht mitgezählt werden.

Falls die intelligente Tabelle den Namen "tbDaten" hat und darin mehrere Spalten (=Felder) enthalten sind, so hat jede dieser Spalten einen eindeutigen Namen (der in der 1. Zeile dieser Tabelle steht), zB. "Feld2" oder "Betrag" oder "ID" oder ...

Dann genügt ja folgende Formel, um die Anzahl der sichtbaren Zeilen zu ermitteln:
=TEILERGEBNIS(3;tbDaten[ID])

Anmerkungen, um ein falsches Tabellen-Design zu vermeiden:
1) In diesem Fall heißt die intelligente Tabelle "tbDaten" und hat ein Feld mit dem Namen "ID" (=Spalte mit Spaltenkopf "ID" der intelligenten Tabelle)
2) Eine solche Tabelle hat in jeder Zeile Daten. Ein totaler Blödsinn ist - was man leider sehr oft sieht -, wenn eine solche Tabelle Zeilen quasi auf Vorrat hat, in der überhaupt keine Daten enthalten sind.
3) Eine solche Tabelle hat stets ein Feld (=Spalte innerhalb der Tabelle), das als Index-Feld dient (Spalte, die in jeder Zeile einen eindeutigen Wert enthält). Daraus folgt unmittelbar, dass in diesem Feld in jeder Zeile der intelligenten Tabelle ein (eindeutiger) Wert (=Text, Zahl, Datum, Uhrzeit) stehen muss. Genau dieses Feld verwendet man daher zum Zählen der Zeilen in obiger Formel. Ich habe dieses Feld "ID" (=Bezeichnung, die im Kopf des Tabellenfeldes steht) genannt.
4) Der Code 3 in der Formel bewirkt, dass sowohl Zeilen mit Zahleneinträgen als auch Texteinträgen in diesem Feld gezählt werden (bei Code 2 werden nur Zahlen gezählt).