hallo leute,

ich freue mich sehr über etwas hilfe von euch.

ausgangslage:
ein blatt mit kriterieneingabe (Infos)
ein blatt zur ergebnisanzeige (FilterLand)
immer mehr werdende blätter welche zu filtern sind (50, 258, 259 ...)

als basis habe ich dieses video verwendet:
https://www.youtube.com/watch?v=Q6-DxC2u-fU

hier der code von mir:
Sub Filter()

Dim lngLastRow50 As Long
Dim lngLastRow258 As Long
Dim lngLastRow259 As Long
Dim lngLastRow260 As Long
Dim lngLastRowIn As Long
Dim lngLastRow As Long

lngLastRow50 = Sheets("50").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRow258 = Sheets("258").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRow259 = Sheets("259").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRow260 = Sheets("260").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRowIn = Sheets("Infos").Cells(Rows.Count, 1).End(xlUp).Row
lngLastRow = Sheets("FilterLand").Cells(Rows.Count, 1).End(xlUp).Row

Sheets("FilterLand").Select
Range("A1").Select

Sheets("50").Range("A1:I" & lngLastRow50).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Infos").Range("A1:E" & lngLastRowIn), _
CopyToRange:=Sheets("FilterLand").Range("A" & lngLastRow), _
Unique:=False
lngLastRow = Sheets("FilterLand").Cells(Rows.Count, 1).End(xlUp).Row + 2

Sheets("258").Range("A1:I" & lngLastRow258).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Infos").Range("A1:E" & lngLastRowIn), _
CopyToRange:=Sheets("FilterLand").Range("A" & lngLastRow), _
Unique:=False
lngLastRow = Sheets("FilterLand").Cells(Rows.Count, 1).End(xlUp).Row + 2

Sheets("259").Range("A1:I" & lngLastRow259).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Infos").Range("A1:E" & lngLastRowIn), _
CopyToRange:=Sheets("FilterLand").Range("A" & lngLastRow), _
Unique:=False
lngLastRow = Sheets("FilterLand").Cells(Rows.Count, 1).End(xlUp).Row + 1

End Sub

leider ignoriert er meine filtereingabe (im blatt Infos in der Zeile 2) und ich verstehe nicht weshalb. das ist mein erstes problem.
das zweite ist, dass ich weiß nicht wie ich den code umschreiben muss damit ich künfitg keine änderung am code machen muss, wenn neue
blätter hinzugefügt werden.

vielen dank im voraus für entsprechende rückmeldungen

glg
gerlinde