1. aktive Zelle ermitteln

[Steffen Giesel]

Hallo Freunde,

ich habe folgendes Problem.
In einer Tabelle filtere ich einzelne Zeilen per
Autofilter heraus. Anschließend will ich per Makro in die
ausgewählten Zeilen Messergebnisse eintragen. Danach einen
neuen Filter setzen und wieder Ergebnisse in die neu
gefilterten Datensätze eintragen. Wie kann ich im Makro
erkennen, welche Zeilen beim aktuellen Filter ausgewählt
sind.

Ich danke schon mal vorab für Eure Bemühungen.

Steffen Giesel

[Bernd Held]

Hallo Steffen,

über folgendes Makro kannst Du die erste bzw. letzte gefilterte Zeile
erkennen.

Sub ErsteGefilterteZeileFinden()
Dim l As Long
Sheets("Tabelle4").Activate
Range("A1").Select
For l = 2 To ActiveSheet.UsedRange.Rows.Count
If ActiveSheet.Rows(l).Hidden <> True Then
MsgBox "Die erste gefilterte Zeile ist die Zeile " _
& l, vbInformation: Exit For
End If
Next
End Sub

Sub LetzteGefilterteZeileFinden()
Dim l As Long
Sheets("Tabelle4").Activate
Range("A1").Select
For l = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If ActiveSheet.Rows(l).Hidden <> True Then
MsgBox "Die letzte gefilterte Zeile ist die Zeile " _
& l, vbInformation: Exit For
End If
Next
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF)
unter http://held-office.de

"Steffen Giesel" <steffen...@freenet.de> schrieb im Newsbeitrag
news:000d01c31fa2$a5d02330$a101...@phx.gbl...

[Steffen Giesel]

>-----Originalnachricht-----

>.
>