Re: Tabelle sortieren
18.03.2003 17:48:25
Heinz Ulm
Hallo Olaf,Variante 2:
Neben der Formel von vorhin noch eine Spalte mit
=länge(A7)
Herunterziehen über alle Artikel.
Mit folgendem Makro sortiere ich jetzt zuerst nach der Länge und dann nach der Nummer. Da die Länge die mitzählt ist 04010 was anderes als 4010.
Schau dir mal das Makro an. Du musst es nur für dich abändern.
In A7:A10 stehen die Werte.
Sub test()
'
' test Makro
' Makro am 18.03.2003 von abh aufgezeichnet
'
'
Range("B7:B10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("C7:C10").Select
Application.CutCopyMode = False
Selection.Copy
Range("C7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A7:C10").Select
Selection.sort Key1:=Range("C7"), Order1:=xlAscending, Key2:=Range("B7") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("E17").Select
End Sub
Gruß Heinz