Rulleliste i alfabetisk orden

Og det var denne guide: http://www.get-digital-help.com/2010/10/26/create-a-drop-down-list-containing-alphabetically-sorted-values-in-excel/

Guiden virker som den skal, så det er måske en fejl-40 :-)

Husker du at trykke [CTRL] + [SHIFT] + [ENTER], når du har tastet formlen, i stedet for blot at trykke på [ENTER]?
Den viste formel er en matriksformel, og skal afsluttes med [CTRL] + [SHIFT] + [ENTER].

Ja, det gør jeg :-).

Som sagt, så kan jeg også få guiden til at virke. Bare ikke i de celler, hvor jeg har jeg for det.

Højre klik på Ark2's Arkfane, vælg Vis Programkode og indsæt følgende :

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B3:B42")) Is Nothing Then Exit Sub

Dim t As Integer, j As Integer, hold As String

Rng = WorksheetFunction.Transpose(Range("B3:B42"))

For t = LBound(Rng) To UBound(Rng)
  For j = t + 1 To UBound(Rng)
    If Rng(j) < Rng(t) Then hold = Rng(t): Rng(t) = Rng(j): Rng(j) = hold: hold = ""
  Next
Next

For t = LBound(Rng) To UBound(Rng)
  If rng2 = "" Then
    If Rng(t) <> "" Then rng2 = Rng(t)
      Else
    rng2 = rng2 & "," & Rng(t)
  End If
Next

With Sheets("Ark1").Range("B21").Validation
.Delete
.Add xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=rng2
.InCellDropdown = True
End With

End Sub

Koden opretter en sorteret liste til celle B21 i Ark1

Du skal lige ændre et eller  andet i Liste (B3:B42) før koden kører

Hej Excelent, og tak for dit svar.

Din kode virker fint, men jeg er dog afhængig af at lave det uden kode, da jeg skal have det liggende, så det kan tilgåes fra Excel Online og Excel via iPad.

Kan du måske hjælpe mig at omsætte linket her, så det passer til de celler, jeg har nævnt foroven? http://www.get-digital-help.com/2010/10/26/create-a-drop-down-list-containing-alphabetically-sorted-values-in-excel/

På forhånd tak.

http://excel.pm/Eksperten/DropDown.xlsx

Helt perfekt, tak skal du have! :-)