Office: (Office 2013) Text in Spalte suchen und gesamte Zeile in neues Arbeitsblatt kopieren

Hallo zusammen,

ich versuche den Text "case" in Groß und Kleinschreibung zu suchen und falls gefunden die gesamte Zeile in ein neues Arbeitsblatt zu kopieren.
Problem was ich hab:
Kann nicht nach nach weiteren Wörtern suchen und nach dem ersten Treffer wird nicht weitergesucht.

Anbei mein aktueller Stand:

Code:

Dim TC As String
Dim Suchwert As Range

TC = "case"

Worksheets("Sheet2").Columns(1).ClearContents
Set Suchwert = Worksheets("Sheet1").Range("A2:A165").Find(TC)
If Suchwert Is Nothing Then
  MsgBox "Wert " & TC & " nicht gefunden!"
Else
  Suchwert.EntireRow.Copy
  Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteAll
End If

End Sub

Viele Grüße,
ricki

 

Hi,
Kann der Wert nur einmal vorkommen?
TC = case
FOUND = 0
For i = 2 to 165
if lcase(worksheets("Sheet1").cells(i,1)) = TC then
Worksheets("Sheet2").Range("A1").PasteSpecial Paste:xlPasteAll
FOUND = FOUND + 1
end if
if FOUND = 0 then
Msgbox "Wert" & TC & " nicht gefunden!"
else
Msgbox FOUND & " Werte gefunden!"
end if
next i

 

Kommt mehrfach vor. Sowohl klein als auch groß geschrieben. Daher müsste ich nach "case" und "Case" suchen.

 

Das wäre bei meinem code egal, er wandelt die Zelle mit lcase() immer in Kleinschrift um und vergleicht dann mit TC was auch klein geschrieben ist.
Kann sein dass man auch "like" statt = verwenden kann.