Private Sub UserForm_Click()
Dim ws As Worksheet
Dim rng As Range
Dim wsZiel As Worksheet
Dim EinfuegeZeile As Long
Dim sAdrErsterFund As String
With Worksheets("Tabelle2")
EinfuegeZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If EinfuegeZeile <> 1 Then EinfuegeZeile = EinfuegeZeile + 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> .Name Then
Set rng = ws.Range("C:C").Find(What:=TextBox9.Value, LookAt:=xlWhole)
If Not rng Is Nothing Then
sAdrErsterFund = rng.Address
Do
rng.EntireRow.Copy Destination:=.Cells(EinfuegeZeile, 1)
Set rng = ws.Range("C:C").FindNext(rng)
Loop While sAdrErsterFund <> rng.Address
End If
End If
Next
End With
End Sub