Hallo,
Diesen Code hat mir Hajo bzw. Gerd geschrieben.
Für eine andere Tabelle sind die Suchkriterien anders.Es soll ein Bereich (A3-O22) durchsucht werden. Hier wird nur in der aktiven Spalte gesucht.
Ich komme nicht klar, entsprechend anzupassen. Vielleicht kann mir jemand helfen.
Danke und Gruß Herbert
Dim sSerch As String
Dim Spalte As Long
Spalte = ActiveCell.Column
sSearch = InputBox("Suchbegriff:", , "")
If sSearch = "" Then Exit Sub
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, Spalte)), Cells(Rows.Count, Spalte).End(xlUp). _
Row, Rows. _
Count)
' enthalten
Set RaFound = Range(Cells(1, Spalte), Cells(LoLetzte, Spalte)).Find(sSearch, Cells( _
LoLetzte, Spalte), , xlPart, , _
xlNext)
' kompletter Vergleich und Inhalt
'Set RaFound = Range(Cells(1, Spalte), Cells(LoLetzte, Spalte)).Find(sSearch, Cells( _
LoLetzte, Spalte), , xlWhole, _
, xlNext)
If Not RaFound Is Nothing Then
RaFound.Select
End If