multi select i en liste

Sæt egenskaben "Bundet kolonne" = 2 på List1

Prøv så denne kode:
    Dim Itm As Variant
    Dim Start As Date
    Dim Slut As Date
    For Each Itm In Me!Liste1.ItemsSelected
        If Start = 0 Then
            Start = Me!Liste1.ItemData(Itm)
        End If
        Slut = Me!Liste1.ItemData(Itm)
    Next Itm
    msgbox "Start: " & Start & vbnewline & "Slut: " & Slut, vbinformation

Hmm, jeg får en kørselsfejl 13
Typerne passer ikke sammen!
Jeg har prøvet at ændre date til string og integer uden held
Jeg tror ikke Me!liste1!itemsselected indeholde nogen data selvom jeg har markeret flere rækker i listen

Prøvede du at ændre "Bundet kolonne" til 2 (altså dato-kolonnen)?

ja, jeg ændrede bundet kolonne til 2, for liste1