Hmm, starter værdien altid med et 'A'? Hvis dette er tilfældet, så prøv at lave en "sorteringskolonne" på denne måde: =VÆRDI(KODE(VENSTRE(A2;1))+MIDT(A2;2;10))
Jeg har fin forståelse for makro'er, så det genere ikke mig.
Det er bare underligt at når jeg bruger overstående metode ændrer sorteringsmåden "Sorter fra A til Å" sig faktisk til "Sorter fra mindst til størst", men den sorterer stadig alfabetisk.
Dim antalRækker As Integer, ræk As Integer Sub sorteringAfAlfa() antalRækker = ActiveCell.SpecialCells(xlLastCell).Row For ræk = 1 To antalRækker Cells(ræk, 1).Activate talværdi = Mid(Cells(ræk, 1), 2) Cells(ræk, 2) = talværdi Next ræk
Sortering End Sub Sub Sortering() Range("A1").Select ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("B1"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Ark1").Sort .SetRange Range("A1:B6") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Fik det aldrig løst, men tak for hjælpen alle sammen.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.