Hallo!

Ich möchte mit folgendem Makro aus einer Tabelle1 sämtliche Datensätze kopieren, die einen *Z*en (*) enthalten in die Tabelle2 kopieren:

Sub suchen_kopieren()

Application.ScreenUpdating = False
Dim Begriff As String, gefunden As Variant, firstAddress As Variant, _
Zeile As Long
Begriff = InputBox("suche nach:", "Suchbegriff")
If Begriff = "" Then Exit Sub
With Sheets("Tabelle1").Cells
Set gefunden = .Find(Begriff, LookIn:=xlValues)
If Not gefunden Is Nothing Then
firstAddress = gefunden.Address
Do
Zeile = gefunden.Row
Rows(Zeile).Copy
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial
Set gefunden = .FindNext(gefunden)
Loop While Not gefunden Is Nothing And gefunden.Address <> firstAddress
End If
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Das funktioniert so leider nicht. Für andere Buchstaben/Zeichen funktioniert das prima. Hat jemand eine Idee, wie man das Makro ändern müsste, damit das auch mit dem *Z*en funktioniert? Ich wäre sehr froh um Hilfe!

Vielen Dank schon Mal!

Suki