hvordan søger man i et område ("b1:e100") og fylder listebox med fundne ("a1:e100")
jeg vil gerne lave en søgning i b1:e100 og fylde listebox med fundne poster MEN listebox skulle gerne medtage kolonne "A" (a1:e100)her er hvad jeg er kommet frem til ind til nu:
Private Sub hentFundneTilListe(række)
'Application.ScreenUpdating = False
With ActiveWorkbook.Sheets("Area51_DB")
Me.LB_FundetPoster.AddItem .Range("a" & (række))
MsgBox "søg " & række
For felt = 1 To 5
Me.LB_FundetPoster.list(Me.LB_FundetPoster.ListCount - 1, felt - 1) = .Cells(række, felt) 'rette til
Next
Me.LB_FundetPoster.list(Me.LB_FundetPoster.ListCount - 1, felt - 1) = række 'gem det fundne række-nr
End With
LB_FundetPoster.ListIndex = 0
LB_FundetPoster.SetFocus
'Application.ScreenUpdating = True
End Sub
Private Function søgIdatabase(søgefter, område)
'Application.ScreenUpdating = False
With Sheets("Area51_DB").Range(område)
Set c = .Find(søgefter, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
søgIdatabase = c.Row
Else
søgIdatabase = 0
End If
End With
'Application.ScreenUpdating = True
End Function
Sub søg1()
'Application.ScreenUpdating = False
Dim fundetRække As Integer, ræk As Long, søgFra As Long
Me.LB_FundetPoster.Clear 'slet evt. gl. indhold
søgFra = 1
If TB_Find.Text <> "" Then
Me.LA_SumAfPosterIalt.Caption = Range("last_a").Offset(-1, 0)
For ræk = 0 To 65000
fundetRække = søgIdatabase(Me.TB_Find, "a" & (søgFra) & ":last_e")
'fundetRække = søgIdatabase(Me.TB_Find, "b" & (søgFra) & ":e65000")
If fundetRække = 0 Then
'fundetRække = søgIdatabase(Me.TB_Find, "a" & CStr(søgFra) & "65000")
Exit For
Else
'fundetRække = søgIdatabase(Me.TB_Find, "b" & CStr(søgFra) & ":last_e")
hentFundneTilListe fundetRække
søgFra = fundetRække + 1
LA_SumAfPosterFundnet = Area51_DB.LB_FundetPoster.ListCount
TB_Find.SetFocus
End If
Next ræk
Else
TB_Find.Text = ""
LB_FundetPoster.Clear
LA_SumAfPosterFundnet = ""
End If
TB_Find.SetFocus
'Application.ScreenUpdating = True
End Sub
