Hvordan får jeg denne kode til at virke?

Ja, en userform og en listbox skal du bruge, samt et ark der hedder Sheet1
Koden sættes ind i en sub under userformen der hedder Sub Userform_Initialize eller Sub Userform_Activate

tak bak.
Jeg har den samme spørgsmål til denne kode
Private Sub UserForm_Initialize()

    Dim rFound As Range
    Dim sFirstAdd As String
    Dim rLook As Range
    Dim rValue As Range

    Set rValue = Sheet1.Range("A5")
    Set rLook = Sheet1.Range("A10:A250")
    Me.ListBox1.ColumnCount = 4

    Set rFound = rLook.Find(rValue.Value, , , xlWhole)

    If Not rFound Is Nothing Then
        sFirstAdd = rFound.Address

        Do
            With Me.ListBox1
                .AddItem rFound.Row
                .List(.ListCount - 1, 1) = rFound.Value
                .List(.ListCount - 1, 2) = rFound.Offset(0, 2).Value
                .List(.ListCount - 1, 3) = rFound.Offset(0, 5).Value
            End With

            Set rFound = rLook.FindNext(rFound)
        Loop Until rFound.Address = sFirstAdd
    End If

End Sub

send et svar

kommer her