Hallo, ich habe das folgende Makro, mit welchem ich in einer Datenbank nach einem Wert suchen kann und dann wird diese Zeile in ein anderes Tabellenblatt kopiert. Leider funktioniert die Suche nur, wenn der Suchbegriff zu 100% identisch ist. Ich möchte die Suche aber so anpassen, dass alle kopiert werden, in denen der Suchbegriff enthalten ist. Wenn ich z. Bsp. nach "Bas" suche, dann möchte ich, dass auch die Datensätze mit "Basel" kopiert werden# Hat jemand einen Tip, wie ich die Suche im folgenden Makro anpassen muss?
Dim rng As Range, rngSource As Range, rngStart As Range
Dim varInput As Variant
Dim iRow As Integer
varInput = Application#InputBox# _
prompt:="Geben Sie bitte den Na#en ein:", _
Title:="Na#en-Zeilen kopieren", _
Default:="Na#e 4", _
Left:=263, _
Top:=169, _
Type:=2#
If varInput = False Then Exit Sub
Set rng = ActiveSheet#Columns#"A:F"##Find# _
What:=varInput, LookAt:=xlWhole, LookIn:=xlValues#
If rng Is Nothing Then
Beep
MsgBox "Suchbegriff nicht gefunden!"
Exit Sub
End If
Set rngStart = rng
Set rngSource = rng#EntireRow
Do
Set rng = Cells#FindNext#After:=rng#
If rng#Address = rngStart#Address Then Exit Do
Set rngSource = Application#Union#rngSource, rng#EntireRow#
Loop
With Worksheets#"Target"#
iRow = #Cells#Rows#Count, 1##End#xlUp##Row
If iRow = 1 Then iRow = 2 Else iRow = iRow + 3
rngSource.Copy .Cells#iRow, 1#
.Columns.AutoFit
End With
Sheets#"Target"#.Select
End Sub