|
Einen wunderschönen guten Tag wünsche ich.
Ich hoffe auf diese Weg, etwas Licht ins Dunkle bringen zu können. Mit VBA habe ich nicht wirklich täglich zu tun, was ich meistens mache wenn ich ein Makro benötige, das einfach aufzeichnen zu lassen. In der Regel funtkioniert das auch ganz gut, aber in diesem Fall überhaupt nicht.
Ich habe ein Dokument, Zeile A bis J.
Die Spaltenanzahl ist unterschiedlich, kann von 20 bis 2000 sein. Die Überschrift sieht so aus
| Status (erledigt oder fehler) |
Police |
System |
Name |
alt |
neu |
PB |
WC |
intermed |
ListenNummer |
| |
123 |
SI |
Test |
12345 |
78901 |
99999999 |
X236 |
23188 |
1 |
Wenn die Liste abgefüllt ist, müsste ich diese entsprechend sortieren
Also ich habe ich die Makro-Aufzeichnung gestartet und die befehle wie oben angegeben und anschliessend ausgeführt. Bei der ersten Verarbeitung hat das wunderbar geklappt, bei der zweiten hingegen übehaupt nicht mehr. Die Daten waren kreuz und quer sortiert. Hier noch das aufgezeichnete Makro:
Columns("A:J").Select
ActiveWorkbook.Worksheets("Policenumteilungen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Policenumteilungen").Sort.SortFields.Add(Range( _
"C2:C5000"), xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color _
= RGB(196, 215, 155)
ActiveWorkbook.Worksheets("Policenumteilungen").Sort.SortFields.Add(Range( _
"C2:C5000"), xlSortOnFontColor, xlDescending, , xlSortNormal).SortOnValue.Color _
= RGB(255, 0, 0)
ActiveWorkbook.Worksheets("Policenumteilungen").Sort.SortFields.Add2 Key:= _
Range("C2:C5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
ActiveWorkbook.Worksheets("Policenumteilungen").Sort.SortFields.Add2 Key:= _
Range("B2:B5000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Policenumteilungen").Sort
.SetRange Range("A1:J5000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End Sub
Kann mir jemand allenfalls helfen und mir sagen, wie ich das Makro ändern muss damit das einwandfrei und vorallem fehlerfrei funktioniert?
Würde mich auf eine Antwort freuen.
Vielen lieben Dank
romi
|