Min listbox ser således ud, og fungerer fint, men der er nogle mangler. 

1) datoen står på amerikansk. Hvordan fixer jeg det?

2) hvordan gør jeg, så personen, der søger på navnet, kan kopiere teksten (Der kan sagtens være flere linjer med fraværsperioder)? Jeg har lavet en knap: "kopier tekst", men ikke skrevet noget kode.

3) hvordan gør jeg, så "søgefunktionen" nulstiller teksten i boksen? Som det er nu, smider den bare flere og flere linjer ind, hvis man søger efter et andet navn.

Jeg smider koden i næste indlæg.

herunder er koden. Det skal siges, at jeg nok er ved at være ude hvor jeg ikke kan bunde, så koden er måske ret dårligt skrevet.

Private Sub CmdCancel_Click()

  Unload Me

  

End Sub

Private Sub cmdOK_Click()

  Dim lrow As Long

  

  

  Unload Me

  

End Sub

Private Sub cmdSøg_Click()

    Dim lrow As Long

    

    For lrow = 1 To Range("tlbdata").Rows.Count

    

      If Range("tlbdata[navn]").Cells(lrow, 1).Value = Me.txtName Then

        Me.listFravær.AddItem Range("tlbdata[Første fraværsdato]").Cells(lrow, 1).Value

        Me.listFravær.List(Me.listFravær.ListCount - 1, 1) = Range("tlbdata[sidste fraværsdato]").Cells(lrow, 1).Value

        Me.listFravær.List(Me.listFravær.ListCount - 1, 2) = Range("tlbdata[Dage]").Cells(lrow, 1).Value

        Me.listFravær.List(Me.listFravær.ListCount - 1, 3) = Range("tlbdata[Fraværs/nærværsarter]").Cells(lrow, 1).Value

        

      End If

      

    Next lrow

    

    

End Sub

Private Sub UserForm_Initialize()

  Dim lrow As Long

  

End Sub

Jeg har tidligere lavet noget lignende, bare en søgefunktion i en kundedatabase i stedet.

I min liste brugte jeg avanced filter til mine selektioner.

Min VBA ser såleder ud, se om du kan bruge den som inspiration:

"Outdata" defineres som navn, som resultaterne af dit advanced filter.

/Skovgaard