Private Sub sucheneinfügen()
Dim WkSh_Q As Worksheet, WkSh_Z As Worksheet
Set WkSh_Q = Worksheets("Rohdaten")
Set WkSh_Z = Worksheets("Tabelle1")
WkSh_Q.Range(WkSh_Q.Cells(1, 3), WkSh_Q.Cells(WkSh_Q.Cells(Rows.Count, 3).End(xlUp).Row, 3)).Resize(, 12).Copy _
WkSh_Z.Cells(WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Offset(1).Row, 1)
Set WkSh_Q = Nothing: Set WkSh_Z = Nothing
End Sub