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