excel 2010 want drop down and the ability to search

David0630 

Excel VBA Textfeld scrollen nach unten automatisch

https://stackoverrun.com/de/q/12332075

Or something totally simple from the internet.

Option Explicit

Sub MultiLino ()
    Dim wks As Worksheet
    Dim rng As Range
    Dim sAddress As String, sFind As String
    sFind = InputBox ("Please enter search term:")
    For Each wks In Worksheets
       Set rng = wks.Cells.Find (_
          what: = sFind, _
          lookat: = xlWhole, _
          LookIn: = xlFormulas)
          If Not rng Is Nothing Then
             sAddress = rng.Address
             do
                Application.Goto rng, True
                If MsgBox (_
                   prompt: = "Next", _
                   Buttons: = vbYesNo + vbQuestion _
                   ) = vbNo Then Exit Sub
                Set rng = Cells.FindNext (after: = ActiveCell)
                If rng.Address = sAddress Then Exit Do
             Loop
         End If
     Next wks
     MsgBox prompt: = "No new reference!"
End Sub

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.