Hallo Excel/VBA Experten,
so laangsaam schreibe ich "eigene" VBA Lösungen,- sobald es "komplizierter wird", steh ich da, wie der Ochs vorm Berg".
Diesmal;
Ich selektiere Daten derzeit mit
Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
If Target.Address = "$E$2" Then
LastBasis = Sheets("Basis").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Basis").Range("A10:FK" & LastBasis).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Sheets("Kriterien").Range("H1:I3")
End If
End Sub
Was ich allerdings möchte, das nur die letzten 20 Zeilen (Spiele) des ausgewählten Teams selektiert werden.Zum besseren Verständnis, habe ich eine einfach gehaltene Arbeitsmappe angefügt.
https://www.herber.de/bbs/user/130155.xlsb
Könnte mir jemand aufzeigen, wie ich das umsetze?
Mit freundlichen Gruß
Fred Neumann