hjælp!!!! hvad mangler for at min tæller finder alle poster og ikke hver anden post
hej experterjeg har et program som næsten virker .problemet er at med den tæller jeg har sakset og stykket sammen, er at når der eksempelvis i celler a1 til a20 står "1" så finder lykken kun hver anden post ???. jeg er totalt nuuuubiee . så et par kommentarer til hvor den går galt ville være GGGGRRRRRATE.
-----------------------------------
Private Sub UserForm_activate()
Sheets("Area51_DB").Select
Me.ListBox1.Clear 'slet evt. gl. indhold
Me.Label9.Caption = Range("last_a").Offset(-1, 0)
søg1
End Sub
Private Sub hentFundneTilListe(række)
With ActiveWorkbook.Sheets("Area51_DB")
Me.ListBox1.AddItem .Range("b" & (række))
For felt = 2 To 6
Me.ListBox1.list(Me.ListBox1.ListCount - 1, felt - 1) = .Cells(række, felt)
Next
Me.ListBox1.list(Me.ListBox1.ListCount - 1, felt - 1) = række
End With
ListBox1.ListIndex = 0
ListBox1.SetFocus
End Sub
Private Function søgIdatabase(søgefter, område)
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
End Function
Sub søg1()
Dim fundetRække As Integer, ræk As Long, søgFra As Long
Me.ListBox1.Clear 'slet evt. gl. indhold
If TextBox1.Text <> "" Then
Me.Label9.Caption = Range("last_e").Offset(-1, -4)
søgFra = 1
For ræk = StartRæk To 65000
fundetRække = søgIdatabase(Me.TextBox1, "A" & CStr(søgFra) & ":E65000")
If fundetRække = 0 Then
Exit For
Else
hentFundneTilListe fundetRække
søgFra = fundetRække + 1
Label7 = Area51_DB.ListBox1.ListCount
TextBox1.SetFocus
End If
Next ræk
Else
TextBox1.Text = ""
ListBox1.Clear
Label7 = ""
End If
TextBox1.SetFocus
End Sub
