Makro erweitern die zweite
09.03.2007 11:18:00
Jürgen
ich bekomme es nicht hin mein aufgezeichnetes Makro zu erweitern.
Harald hat mir schon sehr geholfen.
Vielleicht ist nochmal jemand da meinen bestehenden Code zu erweitern.
Sub Listen_erstellen()
' Listen_erstellen Makro
Range("A9:u30000").Select
' Application.CutCopyMode = False
Selection.Sort Key1:=Range("J9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Hier soll die Spalte P (Kundennummern) aufsteigend sortiert werden.
ich schaffe es nicht.Bitte nochmal um Hilfe
Range("H7").Select
Application.Run "'Listen offener Beschwerden.xls'!markieren"
Selection.AutoFilter Field:=12, Criteria1:="Rechnung"
Selection.AutoFilter Field:=20, Criteria1:="Im KGO-Korb"
Selection.Copy
Sheets("KGO Beschw-Re").Select
Range("A9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Rohdaten").Select
Selection.AutoFilter Field:=20, Criteria1:="Im KSI-Korb"
Application.CutCopyMode = False
Selection.Copy
Sheets("KSI Beschw-Re").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Rohdaten").Select
Selection.AutoFilter Field:=20
Application.CutCopyMode = False
Selection.ClearContents
Selection.AutoFilter Field:=12
Range("A9:T20000").Select
Selection.Sort Key1:=Range("J9"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.Run "'Listen offener Beschwerden.xls'!markieren"
Selection.AutoFilter Field:=20, Criteria1:="Im KGO-Korb"
Selection.Copy
Sheets("KGO Beschw-Auf").Select
Range("A9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Rohdaten").Select
Selection.AutoFilter Field:=20, Criteria1:="Im KSI-Korb"
Selection.Copy
Sheets("KSI Beschw-Auf").Select
Range("A9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Rohdaten").Select
Selection.AutoFilter Field:=20, Criteria1:="Im KSI"
Application.CutCopyMode = False
Selection.Copy
End Sub
Anzeige