Folgendes Beispiel hilft mir zwar weiter, allerdings benutze ich eine englische Excel-Version und da funktioniert es irgendwie nicht! Kann mir jemand helfen? Wahrscheinlich solten die deutschen Bezeichnungen durch englische ersetzt werden, aber die weiß ich nicht...
Sub ZufallSelect()
Randomize
Dim Zeile As Double
Dim i As Integer
i = Int(Rnd * 7000) + 1
For Zeile = 1 To 5406
Rows(Zeile * 4).Select
If Zeile >= i Then Exit Sub
Selection.Copy Destination:=Sheets("Tabelle2").Rows(Zeile)
Next Zeile
End Sub