Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zeile in gefiltertem Arbeitsblatt

Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 12:07:44
Thomas
Hallo, ich wollte in einem per Autofilter gefilterten Tabellenblatt die letzte nicht leer Zeile ermitteln mittels 

lngLastRow = tblTest.Cells(Rows.Count, 7).End(xlUp).Row
, allerdings bekomme ich dann als Rückgabe Wert den Wert des Tabellenblatt wenn der Autofilter nicht gesetzt wäre, also des Gesamtenblattes, ich möchte aber ja nur den gefilterten Wert.
Kann man das auch für die erste Zeile ermitteln, denn z.b. fängt der Bereich beim Filtern dann nicht bei 2 (1 sind ja die Überschriften) sondern 400 an?
Danke

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 13:07:51
Thomas
Hi,
auch bei 

lngLastRow = tblTest.UsedRange.Rows(tblTest.UsedRange.Rows.Count).Row
wird mir die letzte Zeile des ungefilterten Bereich ausgegeben und nicht die des gefilterten. Es ist eine "intelligente" Tabelle, kann es damit zusammenhängen?
nimm ne Formel
18.07.2022 12:43:39
WF
als Arrayformel:
{=MAX(TEILERGEBNIS(3;INDIREKT("A"&ZEILE(1:999)))*ZEILE(1:999))}
bzw. per INDEX-Verlängerung ohne { }:
=MAX(INDEX(TEILERGEBNIS(3;INDIREKT("A"&ZEILE(1:999)))*ZEILE(1:999);0))
WF
Anzeige
AW: nimm ne Formel
18.07.2022 13:08:42
Thomas
Wie müsste das in einer VBA Anweisung eingebaut werden?
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 12:46:11
Daniel
Hi

Dim x As Range
Dim ErsteZeile As Long
Dim LetzteZeile As Long
Set x = ActiveSheet.AutoFilter.Range
Set x = Intersect(x, x.Offset(1, 0))
Set x = x.SpecialCells(xlCellTypeVisible)
ErsteZeile = x.Row
Set x = x.Areas(x.Areas.Count)
LetzteZeile = x.Row + x.Rows.Count - 1
Gruß Daniel
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 13:12:56
Thomas
Hi,
also nach dem ersten Test, scheint es perfekt zu funktioieren, nur leider ist mir nicht so ganz klar was da passiert, kannst du das bitte kurz erklären im einzelnen.
Danke
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 13:25:41
Daniel
das erste sollte selbsterklärend sein.
das intersect nimmt die Überschriftenzeile weg, die ja auch zum Autofilterbereich gehört und immer sichtbar ist.
Areas sind eine Untergruppe des Range-Objektes.
Eine Area ist immer ein rechteckiger lückenloser Zellbereich.
Eine Range kann aus mehreren Areas zusammengesetzt sein.
die Range("A1:C3,A5:C7,J4:K10") besteht aus den drei Areas A1:C3, A5:C7 und J4:K10
die letzte Zeile eines Bereichs ermittelt man, in dem man die erste Zeile nimmt (die bekommt man mit .row) und die Anzahl der Zeilen des Bereichs (rows.count) hinzuaddiert und 1 abzieht.
das funktioniert so aber nur mit Zellbereichen, die rechteckig und lückenlos sind, daher nimmt man die Areas und hierfür natürlich die letzte Area.
Gruß Daniel
Anzeige
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 13:54:12
Thomas
Super, vielen Dank für die Erklärung.
MFG
Thomas
AW: Letzte Zeile in gefiltertem Arbeitsblatt
18.07.2022 13:41:00
GerdL
Moin

MsgBox Intersect(tblTest.AutoFilter.Range, tblTest.Cells.SpecialCells(12)).SpecialCells(11).Row
Gruß Gerd

302 Forumthreads zu ähnlichen Themen

Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Anzeige
Tabellenblätter nach Liste erstellen
Hannes

Moin Moin,
ich möchte gerne nochmal meine frage von gestern auffrischen...
erst mal besten dank an Rudi...BESTEN DANK
die programmierung läuft fast richtig.
nur bei aktivierung haut ein LAUFZEITFEHLER 1004 dazwischen. wenn man dan beenden bzw debuggen drückt werden wie gewüsch a...
03.12.2008 14:26:37
Thread-ID: 1029835
6 Beiträge
Filtern mit mehreren Einträgen pro Zeile
Nico

Hallo,
ich bin gerade dabei eine Kontaktliste zu erweitern.
Pro Zeile ist ein Kontakt eingetragen.
Ich will die Kontakte jetzt gruppieren können.
Ich möchte einen Kontakt z.B. drei Kathegorien zuordnen ("Freunde", "München", "Schule")
Bei einem anderen soll z.B. stehen "Beka...
14.01.2009 19:41:32
Thread-ID: 1039783
12 Beiträge
Anzeige
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
stunden liste nach vorgabe filtern | Herbers Excel-Forum
chris
hallo zusammen ich hatte schon mal einen anlauf mit dieser frage aber ich bin trotzdem nicht weiter gekommen
in der liste stehen alle meine stunden es letzten jahres, ich an den tagen verschiedene termine
ich möchte rausfinden an wieviel tagen cih mehr als 8 stunden gearbeitet habe kann ma...
25.01.2010 20:59:04
Thread-ID: 1132844
3 Beiträge
Autofilter beginnt eine Zeile zu spät
tco99


Hallo zusammen,
ich habe folgendes Problem:
ich habe eine Beispielmappe gemacht. In dieser Mappe gibt es das Blatt "Daten" und das Blatt "Ausgabe". Mit einer Userform und den ComboBoxen in dieser Userform filtere ich die Daten und übertrage sie auf das Blatt "Ausgabe". Das Übertrag...
05.03.2010 10:46:51
Thread-ID: 1143590
8 Beiträge
Filtern nach Eingabe
Steffen

Guten Morgen. Ich tüftle seit ner Weile an folgendem Sachverhalt:
Ich möchte eine Tabelle nacheinander nach allen Werte einer Spalte filtern und als PDF-Drucken. Die Spaltennummer in der gefiltert wird, steht unter
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value...
07.04.2010 17:24:27
Thread-ID: 1150498
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
6
5
11
4
6
1
2
7
6
4
1
2
2
1
1
8
2
3
16
2
6
7
8
2