macro hjælp !

Du behøver ikke markere hele området for at sortere.
Excel kan godt finde ud af at få alle kolonnerne med automatisk.

Men hvis du alligevel insisterer skal du indsætte denne linie:

ActiveCell.EntireColumn.Select

Den markerer hele kolonnen, hvor den aktive celle står.

hmmm Jan, jeg kan ikke få den til at virke, hvor skal den sættes ind og/eller hvad skal den erstatte?
hvordan ville din macro se ud til samme handling ?

Hvad er det præcist du ønsker at foretage?

set ac=activecell
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=ac, Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.End(xlDown).Select
End Sub

Husk at som den er her sorterer den kun den aktive kolonne. Alle værdier ved siden af bliver stående. Er det meningen?

jeg har nogle kolonner med tlf numre, disse skal sorteres "faldende" en efter en, derefter skal værdien +49 slettes
den måtte også meget gerne kunne startes i kolonne 1 og så tage kolonne for kolonne og stoppe af sig selv når der ikke er flere kolonner.
til

har prøvet at markere alle kolonner og sortere dem alle på en gang og det duer ikke.

Sub Sorter()
Set ac = ActiveCell
    Selection.CurrentRegion.Select
    Selection.Sort Key1:=ac, Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Selection.End(xlDown).Select
End Sub

Så glem lige den sidste makro.

Ja Bak, det er meningen.. din løsning virker efter min første beskrivelse.
men kunne man lave den som beskrevet i mit sidste indlæg ?

ups!! værdien +49 må kun slettes hvis den står alene,
da alle numre i kolonnerne starter med +49..og ikke skal slettes

Denne makro sorterer alle kolonner, sletter de celler hvor der kun står +49.
Du skal stå i øverste række når du starter den.
Sub sort2()
    Selection.CurrentRegion.Select
    For Each Co In Selection.Columns
    skey = Cells(1, Co.Column).Address
    Co.Select
    Selection.Sort Key1:=Range(skey), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Next
    Selection.CurrentRegion.Select
    For Each ce In Selection.Cells
    If Left(ce.Value, 8) = "+49" Then ce.ClearContents
    Next
End Sub

super fedt Bak ! den virker som den skal

tak for det og god weekend

peter