Code verbessern/verkürzen

Forumthread: Code verbessern/verkürzen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Code verbessern/verkürzen

Hallo zusammen
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Code verbessern/verkürzen

Dirk
AW: Code verbessern/verkürzen

F.

AW: Code verbessern/verkürzen

11.03.2010 17:23:44

Dirk

Poste mal eine Datei dazu nur mit dem Codetext kann man nicht viel anfangen, da er bei einem testlauf ohne Daten usw. schon in der 2. Zeile sich erhängt
ansonsten würd ich spontan aus der Hüffte mal folgendes Probieren

Sub Vorbereitung()
Columns("A:A").AutoFilter Field:=1, Criteria1:="1**", Operator:=xlAnd, _
Criteria2:="2**"
Range("A7").Select
Range(Selection, Selection.End(xlDown)).EntireRow.Delete
Columns("A:A").AutoFilter
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(7, 1)), TrailingMinusNumbers:=True
Rows("1:1").Delete Shift:=xlUp
Range("A1").Select
End Sub