AW: Tabelle sortieren mit Makro
10.07.2005 16:34:16
GünterP
Vielleicht hift dir das folgende Makro; es wird werden zwei Hilfsspalten eingefügt; zunächst eine mit der Auftragsnummer, die dann mit "Text in Spalten" in Nummer und Jahr zerlegt wird; dann wird nach Jahr/Nummer sortiert und die Hilfsspalten wieder gelöscht.
Sub Sortierung()
Columns("C:C").Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight
Range("D1").Select
ActiveCell.FormulaR1C1 = "Nummer/Datum"
Columns("D:D").Select
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("D3").Select
Range("A1:F7").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
"D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
Columns("D:E").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub
GünterP