Mit dem Makrorecorder habe ich das untenstehend Skript aufgenommen.
Sub IEC_3()
Cells.Select
ActiveWorkbook.Worksheets("Artikelübersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Artikelübersicht").Sort.SortFields.Add Key:=Range( _
"AW2:AW52"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal 'Inhalt von AW1 ist: "IEC-Wi......."
ActiveWorkbook.Worksheets("Artikelübersicht").Sort.SortFields.Add Key:=Range( _
"I2:I52"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal 'Inhalt von I1 ist: "Lage 1"
With ActiveWorkbook.Worksheets("Artikelübersicht").Sort
.SetRange Range("A1:AX52")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
End Sub
Nun meine Fragen dazu:
1. Sortierung nach Kolonne I: Wie muss ich die Syntax abändern, dass nicht nach Kolonne AW gesucht wird sondern nach der Kolonne die in der 1. Zeile "Lage 1" stehen hat?
2. Sortierung nach Kolonne AW: Wie muss ich die Syntax abändern, dass nicht nach Kolonne AW gesucht wird sondern nach der Kolonne die in der 1. Zeile mit folgenden 3 Buchstaben beginnt "IEC"?
3. Im Beispiel heisst das aktive Worksheet ("Artikelübersicht"). Was muss ich in der Syntax ändern, wenn ich einfach vonm aktiven Worksheet starte?
Danke jetzt schon für Eure Hilfe. Gruss Urs