Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

318 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige