Syntax Sortiercode für jedes Arbeitsblatt
28.01.2016 09:06:00
Alex
für jedes Arbeitsblatt sollte folgender Sortier-code durchlaufen.
Problem: 'BIS HIERHIN läuft der Code auf allen Tabellenblätter, nur das Sortieren funktioniert nicht.
Ich denke es liegt daran, dass ws nicht eingebunden ist in die Sortierfunktion. Wie ist denn da die richtige Syntax?
Sub sor(ws As Worksheet)
Dim rng As Range
For Each rng In ws.Range(ws.Cells(1, 1), ws.Cells(Rows.Count, 1).End(xlUp))
rng.Cells(, 3) = "f" & rng.Cells(, 1)
rng.Cells(, 3).Font.ColorIndex = 1 'BIS HIERHIN
Columns("A:C").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp)).ClearFormats
Range(Cells(1, 3), Cells(Rows.Count, 3).End(xlUp)).Clear
Next rng
End Sub
Danke!
Gruß Alex