Kriterium korrekt auslesen
30.09.2017 10:46:44
Fred
Ich habe in Arbeitsblatt Basis Spielpaarungen aus europäischen Ligen.
Aufgrund genannter Mannschaft (in Blatt: Kriterien) möchte ich alle Paarungen in aktives Blatt kopiert haben.
Mein dafür zuständiger Code-Teil:
Sheets("Basis").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Kriterien").Range("A1:C2"), CopyToRange:=Range("A6:J6") _
, Unique:=False
Anscheinend bezieht sich bei meinem Code das Kriterium auf das erste Wort.
Beispiel:
Habe ich als Kriterium Barcelona, werden alle Spiele von Barcelona als auch Barcelona II kopiert.
Genauso; Sevilla & Sevilla B, Ajaccio & Ajaccio GFCO usw.
Kann mir jemand bitte den Code entsprechend ändern,- so das nur der korrekte Zellen-Inhalt (aus Blatt Kriterien) als Kriterium dient?!
mit freundlichen Gruß
Fred Neumann