es geht um eine einfache Aufgabe: Die Daten sollen nach zwei Kriterien gefiltert werden (Spalte C und D), daraus soll die Zeile mit der min. Wert in der Spalte J gefunden und in eine andere Tabelle kopiert werden. Hier der Code:
Sub Filtern()
Application.ScreenUpdating = False
zeile = 1
For i = 22 To 30
For j = 38 To 67
ena = "C" & i
duo = "P'" & j
With Sheets("Tabelle2").UsedRange
.AutoFilter Field:=3, Criteria1:=ena
.AutoFilter Field:=4, Criteria1:=duo
.AutoFilter Field:=10, Criteria1:=WorksheetFunction.Min(Columns(10))
.CurrentRegion.SpecialCells(xlCellTypeVisible).EntireRow.Copy _
Worksheets("Tabelle1").Cells(zeile, 1)
End With
zeile = zeile + 1
Next
Next
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub
Problem: Die Schleifen funktionieren nicht richtig, er bleibt bei C22, P'38.
(Gestern habe ich vom Forum einen ersten Hinweis dankend angenommen, die Criteria1 zählen aber einfach nicht hoch)
Freundliche Grüße
Ioannis