fout bij openen bestand

[Imod]

Goedemorgen,

Als ik onderstaand bestand open dan krijg ik een fout melding.
"kolommen sorteren Test.xlsm bevat onleesbare inhoud - wilt u deze herstellen"
Als je ja zegt dan open dit bestand zich en werkt het wel.

Er zit een macro onder een knop die de kolommen sorteren van A2 tot W4000.
Die macro kijkt in regel 2 naar de volgorde!
Was is er fout aan - waarom de foutmelding?

 

[spaarie]

Probeer het zo eens

Sub Bank_kolom_sorteren()
    Sheets(1).Columns("A:W").Sort [A2], xlAscending
End Sub

Er staat gewoon een hele hoop poep als je een macro opneemt. Hartstikke leuk als beginner, maar is meer informatief dan bruikbaar.

 

[Imod]

spaarie,

De eerste regel wijzigt nu mee met gehele kolom deze moet intact blijven.
Regel 2 en dan naar beneden sorteren.

 

[Jack Nouws]

Zo?

Range("A1").CurrentRegion.Sort Range("A2"), 2, , , , , , 2, , , 1

 

[Imod]

Volgens mij werkt dit niet.

Van spaarie werkt goed maar veranderd ook de regel 1 wat niet moet

 

[Imod]

Ik heb het al gevonden - iets aangepast
Sub kolom_horizontaal()
Range("A2:W4000").Sort Cells(2, 3), Header:=xlNo, Orientation:=xlSortRows
End Sub