Moin!
Also mal auf die schnelle in Excel 2003 könnte es so gehen.
VG
Sub sortieren()
Dim ende As Long
'letzte Zeile
ende = Split(Split(ActiveSheet.UsedRange.Address, ":")(1), "$")(2)
ActiveSheet.Range("C4:G" & ende).Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
|