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