Sub Makro3()
'
' Makro3 Makro
' Makro am 11.3.2010 von PC aufgezeichnet
'

'
    Columns("A:A").ColumnWidth = 42.29
    Cells.Replace What:="€", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

    Cells.Replace What:="€", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Columns("C:E").Select
    Selection.Style = "Comma"
    Columns("D:E").Select
    Selection.NumberFormat = _
        "_-* #,##0.0 _€_-;-* #,##0.0 _€_-;_-* ""-""?? _€_-;_-@_-"
    Selection.NumberFormat = "_-* #,##0 _€_-;-* #,##0 _€_-;_-* ""-""?? _€_-;_-@_-"
    Columns("A:E").Select
    Selection.AutoFilter
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub