Unterschiedliche Ranges?

Sub Test()
Dim rBereich As Range
Dim a  As Range
Dim b  As Range
Set rBereich = Range("C2:K10")      'Einen Bereich festlegen
Set a = rBereich.Rows(4)        'Bereich a (die vierte Zeile von rBereich)
a(1).Select                 'Reihe 4 von rBereich
a(4).Select                 'Reihe 7 von rBereich
a.Select                    'Wieder Reihe 4 von rBereich
Set b = Range("C5:K5")          'Bereich b (gleich wie a)
b(1).Select                 'Zelle 1 in b
b(4).Select                 'Zelle 4 in b
b.Select
End Sub