Filter userform listbox via textbox

Det vil også være OK at indtaste en søgestreng og så klikke på en 'Søg' knap - jeg kunne forestille mig, at det vil gøre det nemmere. OG værdien af inkrementalsøgning er nok ikke besværet værd...

Foreløbig har jeg fundet frem til dette, der fungerer - dog ikke hvis kun EN post skal vises, da får jeg en fejl, fordi rng bliver: 1:2, 103:1048576... Kan nogen hjælpe med dette?

Public Sub SearchIdekatalog()

Dim rng As Range
Dim c As Range
Dim Sidste As Integer

    'Filter the sheet

Sidste = Sheets("Idekatalog").Range("A5000").End(xlUp).Row

            'Filter
    Sheets("Idekatalog").Range("$A$1:$C$" & Sidste).AutoFilter Field:=3, Criteria1:= _
        "=*" & Me.txtSeachlstIdekatalog.Text & "*", Operator:=xlAnd

Sidste = Sheets("Idekatalog").Range("C1").End(xlDown).Row

    'Populate Listbox with filtered range
    Set rng = Sheets("Idekatalog").Range("C2:C" & Sidste).Cells.SpecialCells(xlCellTypeVisible)

MsgBox Sidste
MsgBox rng.Address

    With Me.lstIdekatalog
        .RowSource = ""
       
        'Add rows to the list box
        For Each c In rng
       
            .AddItem c.Offset(0, -2).Value
            .List(.ListCount - 1, 1) = c.Offset(0, -1).Value
            .List(.ListCount - 1, 2) = c.Value
           
        Next c
    End With

End Sub

Jeg har også forsøgt med denne variant, men her fyldes listen op forkert:
1. Først med korrekte værdier fra de tre kolonner, i de rigtige kolonner
2. Så med værdierne fra kolonne 2 og tre, men i kolonne 1 og 2
3. Så med værdien fra kolonne 3 men i kolonne 1...
Og derefter samme med næste post.

Har jeg sat for få point på til at nogen vil hjælpe?

Dim Lastrow As Long
Dim i As Integer

Dim rng As Range, r As Range
  With Worksheets("Idekatalog")
      Lastrow = .Range("C65536").End(xlUp).Row
      .Range("A1:C" & Lastrow).AutoFilter Field:=3, Criteria1:="*" & Me.txtSeachlstIdekatalog.Text & "*"
      Set rng = .Range(.Cells(2, 1), .Cells(Lastrow, 3))
     
      Set rng = rng.SpecialCells(xlCellTypeVisible)
      ReDim rtab(0 To rng.Count - 1, 1 To 3)
     
      i = 0
      For Each r In rng
     
      MsgBox "r: " & r
     
          rtab(i, 1) = r.Value
          rtab(i, 2) = r.Offset(0, 1).Value
          rtab(i, 3) = r.Offset(0, 2).Value
          i = i + 1
      Next
   
  End With
  With frmIdekatalog
        .lstIdekatalog.RowSource = ""
        .lstIdekatalog.ColumnCount = 3
      .lstIdekatalog.List = rtab
  End With

lukkes