Autofilter, letzte Zeile d. Filterliste ermitteln

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Autofilter, letzte Zeile d. Filterliste ermitteln
von: Carsten
Geschrieben am: 08.07.2002 - 14:48:07

Guten Tag,

ich suche eine VBA-Lösung mit dem Autofilter, um von einer 3-fach gefilterten und nach einem weiteren Kriterium sortierten Liste den letzten Datensatz zu finden, da dieser den Ausgangswert für den neuen Datensatz bildet. Ohne Autofilter dauert das mit folgendem Code recht lange

Sub Nummernvergabe()

Dim SWert%, N1Wert%, N2Wert%, i&, lfdNr%

i = ActiveSheet.UsedRange.Rows.Count

Selection.Sort Key1:=[G2], Order1:=xlAscending, Header:=xlYes, _
Orientation:=xlTopToBottom

For SWert = 0 To 1 ' Filter 1
For N1Wert = 1 To 9 ' Filter 2
For N2Wert = 0 To 9 ' Filter 3
For j = 1 To i - 1
If Cells(j + 1, 4).Value = SWert And Cells(j + 1
,5).Value = N1Wert _
And Cells(j + 1, 6).Value = N2Wert And Cells(j + 1, 7).Value = "" Then
Cells(j + 1, 7).Value = lfdNr
lfdNr = lfdNr + 1
ElseIf Cells(j + 1, 4).Value = SWert And Cells(j + 1, 5).Value = N1Wert _
And Cells(j + 1, 6).Value = N2Wert And Cells(j + 1, 7).Value <> "" Then
lfdNr = Cells(j + 1, 7).Value + 1
End If
Next
Next
lfdNr = 1
Next
lfdNr = 1
Next
lfdNr = 1

End Sub

Danke für die Hilfe

nach oben   nach unten

Re: Autofilter, letzte Zeile d. Filterliste ermitteln
von: @lex
Geschrieben am: 08.07.2002 - 15:19:18

Hallo !
msgbox Cells(Rows.Count,1).End(xlup).Row

oder habe ich etwas falsch verstanden ?


VG,
Alex


nach oben   nach unten

Re: Autofilter, letzte Zeile d. Filterliste ermitteln
von: Carsten
Geschrieben am: 14.07.2002 - 12:00:12

Danke für die Hilfe,

kannst Du mir vielleicht auch einen Tipp geben, wie ich die Treffer der Filterliste einzeln ansteuern kann?

Dank im voraus

Carsten


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Autofilter, letzte Zeile d. Filterliste ermitteln"