Code verbessern/verkürzen
F.
Wie kann ich diesen Code (Recorder) verkürzen bzw. verbessern?
Sub Vorbereitung()
Columns("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1**", Operator:=xlAnd, _
Criteria2:="2**"
Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Columns("A:A").Select
Selection.AutoFilter
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(7, 1)), TrailingMinusNumbers:=True
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
Vor allem diese Zeile sollte wirklich alle Zeilen erfassen.. Range(Selection, Selection.End(xlDown)).Select
...was sie im Moment nicht tut.
Vielen Dank für Eure Inputs!
Gruss
Frédéric