In 18 Spalten stehen Begriffe. Ich muss wissen, wo ein bestimmter Begriff steht. Am besten in welcher Zelle?
Danke
Sub suche()
cb = InputBox("Bitte suchbegriff eingeben")
With Worksheets(1).Cells
Set c = .Find(cb, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
MsgBox (c.Address)
Else
MsgBox ("nicht gefunden")
End If
End With
End Sub