Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erste gefilterte Zelle finden

Erste gefilterte Zelle finden
28.01.2008 10:28:14
Thorsten
Hallo,
ich habe eine Datei, die ich per Makro filtern lasse. (Über Spalte B).
ich möchte jetzt den Bereich von Ax (x ist die erste gefilterte Zeilennummer) bis Uy (y ist die letzte gefilterte Zeilennummer) markieren.
Da die Werte für x und y variieren können, weiß ich hier leider keine Möglichkeit.
Vielleicht kann mir hier jemand helfen.
Vielen Dank im Voraus.
Gruß Thorsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste gefilterte Zelle finden
28.01.2008 10:55:00
Beverly
Hi Torsten,
die erste gefilterte Zelle: laufe in einer Schleife über alle Zeilen und prüfe, wann RowHeight größer 0 ist - das ist die erste sichtbare Zeile.


AW: Erste gefilterte Zelle finden
28.01.2008 11:25:04
fcs
Hallo Thorsten,
hier eine Lösungsmöglichkeit. In den For-Zeilen ist 2 jeweils die Nummer der Zeile unter den Autofilter-Spaltentiteln.
Gruß
Franz

Sub Filterbereich()
Dim wks As Worksheet, Zeile1 As Long, Zeile2 As Long
Set wks = ActiveSheet
With wks
'1. gefilterte Zeile ermitteln
For Zeile1 = 2 To .Cells.SpecialCells(xlCellTypeLastCell).Row
If .Rows(Zeile1).Hidden = False Then Exit For
Next
'letzte gefilterte Zeile ermitteln
For Zeile2 = .Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
If .Rows(Zeile2).Hidden = False Then Exit For
Next
'Bereich Spalten A bis U selektieren
.Range(.Cells(Zeile1, 1), .Cells(Zeile2, 21)).Select
End With
End Sub


Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige