Sub mehrere_zeilen()
Dim S As Integer
Dim zeilenanzahl As Integer
S = 2
zeilenanzahl = S + 3
Rows(zeilenanzahl & ":" & S).Select
End Sub
Sub mehrere_zeilen()
Dim S As Integer
Dim zeilenanzahl As Integer
S = 2
zeilenanzahl = S + 3
Rows(zeilenanzahl & ":" & S).Select
End Sub