Sortere data i dropdownliste.

Prøv dette:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim celle As String
If Not Intersect(Target, Range("L1")) Is Nothing Then
  Application.ScreenUpdating = False
   
    Filename = "test.xls"
    Set ws2 = ActiveSheet.Range("M1")
    Set wb1 = Workbooks.Open(Filename)
    num = Len(Target.Offset(0, -1).Value)
    t = 0
    For Each c In wb1.Sheets("sheet1").Range("A2:A123")
        If UCase(Target.Offset(0, -1).Value) = UCase(Left(c.Value, num)) Then
            ws2.Offset(t, 0) = c
            t = t + 1
        End If
    Next c
    For i = t To 123
      ws2.Offset(i, 0) = ""
    Next i
    wb1.Close savechanges:=False
   
    Selection.Sort Key1:=Range("M1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
   
    Application.ScreenUpdating = True
   
    Exit Sub
fejl:
    MsgBox ("Liste kunne ikke opdateres")
    End If
End Sub

Virkede det ?

Hej, ja det gør det, og undskyld mit sene svar, kunne jeg få dig til at lægge et svar, så vil jeg give dig point :-)

Takker :-)

Jeg takker også :o)