Bereiche nach kirterium sortieren
01.05.2009 13:39:13
Felix
Ich möchte bestimmte Bereiche in einem Excelsheet nach eigenen Kriterien sortieren. Also nicht alphabetisch, sondern nach selbst erstellter Auswahl. In den Bereichen stehen verschiede Automarken und ich möchte Opel immer als oberstes haben.
Da ich es selbst so nicht hinbekommen habe, habe ich den Umweg über eine farbliche Sortierung gewählt (Alle Opels mit bedingter Formatierung grün gefärbt und mit makro recorder die sortierung nach grün aufgezeichnet). Leider bekomme ich das jetzt nicht in die Schleife eingearbeitet.
Es taucht Fehler 1004 auf: "Application defined or Object defined error"
Sub opel_click()
Dim a As Integer
Dim b As Integer
For a = 5 To 850 Step 20
b = a + 15
ActiveWorkbook.Worksheets("Data ").Sort.SortFields.Add(Range(Cells(a, 1), Cells(b, 14)), _
xlSortOnFontColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 176 _
, 80)
With ActiveWorkbook.Worksheets("Data").Sort
.SetRange Range(Cells(a, 1), Cells(b, 14))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next
End Sub
