finde Zellen, die Schlüsselwörter in Excel enthalten VBA

Question

Ich möchte ein Makro schreiben, das durch eine Spalte in einer Datenbank sucht und in einem anderen Tab alle Zellen zurückgibt, die ein bestimmtes gegebenes Schlüsselwort enthalten. Mit anderen Worten, ich möchte "hammer" eingeben und eine Liste aller Zellen erhalten, die das Wort hammer enthalten, auch wenn das Wort in der Mitte des Werts steht (z. B. "der Bauherr hat gestern einen Hammer gekauft").

Ich bin ziemlich neu zu VBA, so dass ich einige Hilfe/Eingabe auf welche Funktionen zu diesem Zweck verwenden möchte. Ich habe versucht, AdvancedFilter zu verwenden, der jedoch nur den Anfang jedes Zellwerts betrachtet. Alle Rückmeldungen sind willkommen, danke!

Answer 1

Verwendung Autofilter() Verfahren Range Objekt

Sub main() 
    With Worksheets("hammer") '<--| reference searched worksheet (change "hammer" to its actual name) 
     With .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) '<--| reference its column "A" cells from row 1 down to last non empty one (change "A"s to your actual searched column index) 
      .AutoFilter Field:=1, Criteria1:="*hammer*" '<--| filter on referenced column to get cell containing "hammer" 
      If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets("different tab").Range("A1") '<--| copy any filtered cell into "different tab" worksheet 
     End With 
     .AutoFilterMode = False '<--| show all rows back 
    End With 
End Sub 

es die erste Zelle gesucht Bereich annimmt („A1“ in diesem Beispiel) ist ein Header Zelle, so dass es nicht für die durchsucht werden, wird " *Hammer".