indtast i inputbox og søg og lig tal til

Hej eksperter
Den er svær, Det syntes jeg,
derfor forhøjer jeg til 100 point

mvh

mvhansen

Hej igen

Jeg kan godt hente dem ind i textbox
sådan

Private Sub cmdsøg_Click()
Dim o As Long
Dim tb As String

txtmedlnr.Text = ""
txtfornavn.Text = ""
txtefternavn.Text = ""
txtcprnr.Text = ""
txtkroner.Text = ""

With Sheets("Salg_af_spille_timer")

o = .Range("A65000").End(xlUp).Row
tb = TextBox1.Text
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            txtmedlnr.Text = .Cells(i, 1).Value
            txtfornavn.Text = .Cells(i, 2).Value
            txtefternavn.Text = .Cells(i, 3).Value
            txtcprnr.Text = .Cells(i, 4).Value
            txtkroner.Text = .Cells(i, 5).Value & " Kr"
           
           
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With
End Sub

men kan man ikke gøre det med inputbox ????

mvh

mvhansen

Jeg har fundet ud af det
så jeg lukker

Private Sub CommandButton5_Click()
Dim o As Long
Dim tb As String
Dim pris As String



With Sheets("Salg_af_spille_timer")

o = .Range("A65000").End(xlUp).Row
tb = InputBox("indtast medl nr")
pris = InputBox("indtast pris")
    For i = 2 To o + 1
        If LCase(.Cells(i, 1).Value) = LCase(tb) Then
            tb = .Cells(i, 1).Value
        .Cells(i, 5).Value = .Cells(i, 5).Value + pris
           
            Exit For
        Else: If i = o Then MsgBox ("Ingen fundet")
        End If
    Next i

End With
End Sub

mvh

mvhansen