Public Function CopyRows()
 
  Dim i As Integer
  Dim x As Integer
 
  i = 2
  x = 2
 
  Do While Tabelle1.Range("A" & x).FormulaR1C1 <> ""
 
    Tabelle2.Range("A" & i).FormulaR1C1 = _
      Tabelle1.Range("A" & x).FormulaR1C1
 
    x = x + 28
    i = i + 1
 
  Loop
 
End Sub

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.