Zeilenanzahl eines gefilterten Sheets

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


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zeilenanzahl eines gefilterten Sheets
von: Ralf Koch
Geschrieben am: 25.06.2002 - 14:18:17

Hi,

ich habe eine gefiltertes Excel-sheet und versuche per VBA die Anzahl der Tatsächlich angezeigten Zeilen zu ermitteln.

Gruss
Ralf


nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Roland Köstring
Geschrieben am: 25.06.2002 - 14:26:12

Hallo Ralf,
würde es mit =TEILERGEBNIS(3;Spalte) in einer Hilfszelle versuchen. "Spalte" ist hierbei eine Spalte aus dem gefilterten Bereich, die durchgehend besetzt ist.
Gruss Roland

nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Ralf Koch
Geschrieben am: 25.06.2002 - 15:16:27

Danke, das mit der Anzahl klappt prima. Jetzt benötige ich nur noch die Zeilennummer des letzten Eintrag bei einen gefilterten Sheet.

Gruss Ralf


nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: roland Köstr
Geschrieben am: 25.06.2002 - 18:15:32

Ralf, wozu brauchst Du diese Zeilennummer?
Wenn Du sie dazu brauchst, um den gefilterten Bereich
zu selektieren (um ihn dann woanders hin zu kopieren)
würde ich einfach
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
verwenden, das kopiert Dir den gefilterten Bereich.
Gruss Roland

nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Ralf Koch
Geschrieben am: 26.06.2002 - 09:30:04

Hallo Roland,

ich möchte leider nicht den gesamten gefilterten Bereich kopieren, sondern alles bis auf die letzte Zeile.

Gruss
Ralf


nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Roland Köstring
Geschrieben am: 26.06.2002 - 21:29:43

Hallo Ralf,
damit ich es verstehe: Angenommen, Du hast 10 Zeilen,
die Filterung läßt die Zeilen 2, 5, 7. Willst Du also die
Zeilen 2 und 5?
Gruss Roland

PS: schreibe mir evtl an RKoestring@yahoo.com, falls dieser
thread herausfällt.

nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Ralf Koch
Geschrieben am: 27.06.2002 - 11:38:11

Im Prinzip ja, aber mir würde auch die Information das die vorletzte gefilterte Zeile die 5 ist reichen.
Ich habe mir jetzt so heholfen, das ich eine Schleife laufen lasse und als Abbruchkriterium eine bestimmte Anzahl von Leerzeilen genommen habe.

Gruss Ralf


nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Roland Köstring
Geschrieben am: 27.06.2002 - 15:11:45

Hallo Ralf,
ein Lösungsvorschlag für eine gefilterte Tabelle mit
Überschriftszeile:

Sub Letzte_Zeilennummern()
Dim As Long
'   Letzte Zeile
    i = Range("A65536").End(xlUp).Row
    If i = 1 Then
      MsgBox "Keine Zeile ausser Überschrift angezeigt!"
    Else
      MsgBox "Letzte angezeigte ZeilenNr=" & i
'     Vorletzte Zeile, falls vorhanden
      i = i - 1
      Do Until Rows(i).EntireRow.Hidden = False Or i < 2
        i = i - 1
      Loop
      If i > 1 Then
        MsgBox "Vorletzte angezeigte ZeilenNr=" & i
      Else
        MsgBox "Nur eine Zeile sichtbar!"
      End If
    End If
End Sub

Gruss Roland
nach oben   nach unten

Re: Zeilenanzahl eines gefilterten Sheets
von: Ralf Koch
Geschrieben am: 27.06.2002 - 15:45:02

Danke, das ist genau das was ich gesucht habe und klappt prima.

Gruss Ralf


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zeilenanzahl eines gefilterten Sheets"