Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.06.2025 13:53:13
23.06.2025 10:14:14
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Autofilter, letzte Zeile d. Filterliste ermitteln

Forumthread: Autofilter, letzte Zeile d. Filterliste ermitteln

Autofilter, letzte Zeile d. Filterliste ermitteln
08.07.2002 14:48:07
Carsten
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Autofilter, letzte Zeile d. Filterliste ermitteln
08.07.2002 15:19:18
@lex
Hallo !
msgbox Cells(Rows.Count,1).End(xlup).Row

oder habe ich etwas falsch verstanden ?


VG,
Alex

Re: Autofilter, letzte Zeile d. Filterliste ermitteln
14.07.2002 12:00:12
Carsten
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

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige