Private Sub sucheneinfügen()
Dim rngCell As Excel.Range
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim lZeile As Long
Dim iSpalte As Long
Set WkSh_Q = Worksheets("Rohdaten")
Set WkSh_Z = Worksheets("Tabelle1")
With Worksheets("Tabelle1")
Set rngCell = .Range(.Cells(1, "A").End(xlDown), .Cells(.Rows.Count, "A").End(xlUp))
If rngCell.Cells.Count > 1 Then Set rngCell = rngCell(1)
End With
rngCell.Select
rngCell.Offset(1).Select
For iSpalte = 3 To 14 Step 1
For lZeile = 7 To 1000
<strong> rngCell.Resize(5).Value = WkSh_Q.Cells(lZeile, iSpalte).Value</strong>
Next lZeile
Next iSpalte
End Sub