Denne makro kører, hver der tastes nye tal ind i A-kolonnen. Den skal kopieres over til en arkfanes modul for at virke.
NB! at eventuelle tal i B-kolonnen skal tastes først, da de ellers ikke bliver sorteret med
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("A:IV").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End If End Sub
Kopier det, der står ovenfor fra "Sub..." til "....End sub" og gå til dit regneark, højreklik på fanebladet (der, hvor der står "Ark1", vælg "vis programkode" og sæt det kopierede ind. Tryk ALT + F4 og gem regnearket. Så skulle den være dér!
Hej X-lars.. Vil du lægge et svar, så du får lidt points for det :) jeg beklager jeg ikke har fulgt op på det, men løsningen ser ud til at virke. PFT...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.