Autofilter: "endet mit" / "beginnt mit"
04.09.2017 10:30:04
Peter
Hallo zusammen,
ich habe ein Problem mit dem Autofilter per VBA.
Ich hätte gerne, dass er nach "beginnt mit" filtert, er filtert aber nach "endet mit".
Finde leider da keinen richtigen Weg.
Hoffe, mir kann jemand helfen.
Danke schonmal
IngLastColumn = ActiveSheet.Cells(5, ActiveSheet.Columns.Count).End(xlToLeft).Column
Range(ActiveSheet.Cells(5, 1), ActiveSheet.Cells(105, IngLastColumn)).Select
Selection.AutoFilter
Range("A1").Select
Selection.Copy
ActiveSheet.Range(ActiveSheet.Cells(5, 1), ActiveSheet.Cells(105, IngLastColumn)).AutoFilter _
Field:=1, Criteria1:=" *" & ActiveSheet.Cells(1, 1), _
Operator:=xlAnd