VBA: Bereiche mit Range und Cells ansprechen

Wer sich schon einmal in der VBA-Programmierung versucht hat, weiß, dass zur Ansprache eines Bereiches die Anweisungen RANGE oder CELLS verwendet werden können. Beide Anweisungen liefern letztlich das gleiche Ergebnis.

Dennoch gibt es Unterschiede, mit denen sich der Beitrag beschäftigt.

1. Einordnung von Range und Cells

VBA ist eine objekt- und ereignisorientierte Programmierung. Aufgrund der vorhandenen Objekthierarchie ist es leicht möglich, Elemente, die mit dem Code manipuliert werden sollen, anzusprechen und zu identifizieren.

Wichtig für das Verständnis von Objekten ist, dass Objekte ihren Zustand über ihre komplette Lebensdauer behalten.

Range ist ein Objekt und so in der Objekthierarchie eingeordnet:

Ein Range-Objekt kann eine einzelne Zelle oder einen Zellbereich umfassen.

Mit der Range-Eigenschaft kann eine einzelne Zelle oder ein Zellbereich zurück gegeben werden.

Dagegen kann die Cells-Eigenschaft immer nur eine einzelne Zelle zurück geben.

Die nachfolgenden Beispiele sollen die Handhabung beider Eigenschaften verdeutlichen.

2. Zellen und Bereich selektieren und aktivieren

Die Range-Eigenschaft verwendet die A1-Schreibweise, also die Zelladresse.

Auswahl einer einzelnen Zelle

Sub Bereich1()
Range(„A2“).Select
End Sub

Auswahl eines verbundenen Zellbereiches

Sub Bereich2()
Range(„A2:B10“).Select
End Sub

Auswahl eines getrennten Zellbereiches

Sub Bereich3()
Range(„A2:A10,C2:C10“).Select
End Sub

Auswahl eines namentlich benannten Bereiches (Benenne z.B. einen Bereich B2:C9 mit „Beispielbereich“)

Sub Bereich4()
Range(„Beispielbereich“).Select
End Sub

Die Cells-Eigenschaft verwendet die Z1S1-Schreibweise, also erst die Zeilen- dann die Spaltenangabe.

Auswahl einer einzelnen Zelle

Sub Bereich5()
Cells(2,1).Select
End Sub

Auswahl eines verbundenen Zellbereiches

Sub Bereich6()
Cells(Cells(2,1),Cells(10,2)).Select
End Sub

Schreibst Du den Code so, erhältst Du eine Fehlermeldung. Verwendest Du wiederum Range am Anfang und bezeichnest Anfang und Ende des Bereiches miz Cells, ist der Code erfolgreich.

Sub Bereich7()
Range(Cells(2,1),Cells(10,2)).Select
End Sub

Die Auswahl eines getrennten Bereiches ist mit Cells nicht möglich.

Das verdeutlicht, dass mit Range auch Zellbereiche, mit Cells aber nur Zellen bestimmt werden können.

Willst Du Zellen oder Zellbereiche aktivieren statt zu selektieren, setzt Du statt der Anweisung „Select“ die Anweisung „Activate“ ein.

Zur Erinnerung: Geht es um eine einzelne Zelle, geben Select und Activate das gleiche Objekt zurück. Geht es um eine Zellbereich, wird er insgesamt selektiert, aber nur die erste Zelle aktiviert.

3. Arbeitsblattfunktionen

Hierzu gibt es im Blog bereits einen speziellen Beitrag.

Dennoch sollen hier die Unterschiede zwischen der Verwendung von Range oder Cells gezeigt werden.

Beispielhaft hast Du einen kleinen Wertebereich, über den Du mit einem Makro die Summe bilden willst.

Bei Verwendung der Range-Eigenschaft musst Du zunächst die Zelle, die das Ergebnis der Berechnung aufnehmen soll, selektieren oder aktivieren.

Sub Bereich8()
Range(„D2“).Select
Selection.Formula=“=SUM(B2:B7)“
End Sub

oder

Sub Bereich9()
Range(„D2“).Activate
ActiveCell.Formula=“=SUM(B2:B7)“
End Sub

In beiden Fällen erhältst Du in D2 das Ergebnis 210.

Verwendest Du die Cells-Eigenschaft, sparst Du Dir Selektieren oder Aktivieren. Mit Cells hast Du die Ergebniszelle bereits selektiert.

Sub Bereich10()
Cells(2,4).Formula=“=SUM(B2:B7)“
End Sub

Das Ergebnis ist wieder 210.

4. Bereiche unter Verwendung von Variablen ansprechen

Programmierst Du eine Schleife mit VBA, um Anweisungen solange zu wiederholen, bis ein bestimmtes Kriterium erfüllt ist, wirst Du in der Regel auch solange Zählvariablen verwenden.

Nimm den oben abgebildeten Wertebereich B2:B7. Du willst mittels einer For-Next-Schleife den Bereich durchlaufen, die Werte mit der Zeilen-Nr. multiplizieren und die Ergebnisse im Bereich C2:C7 ablegen.

Sub Bereich11()
Dim i As Integer
For i=2 To 7
Range(„C“&i)=Range(„B“&i)*i
Next i
End Sub

Das kleine Makro hat die Aufgabenstellung erfüllt.

Statt mit Range soll jetzt noch mit Cells gearbeitet werden.

Sub Bereich12()
Dim i As Integer
For i=2 To 7
Cells(i,3)=Cells(i,2)*i
Next i
End Sub

Damit erhältst Du die gleichen Ergebnisse.

Ein Vorteil der Cells-Eigenschaft ist, so wird vielfach erwähnt, ist die einfachere Schreibweise innerhalb der Klammer.

5. Zellen innerhalb eines definierten Bereiches ansprechen

Angenommen, Du hast einen Bereich mit fünf Zeilen und drei Spalten.

Aus diesem Bereich willst Du den Wert der 2. Zeile / 2. Spalte abfragen. Dazu könntest Du die INDEX-Funktion nutzen.

Es genügt aber auch, mit Range und Cells zu arbeiten, das geht so:
Der Wert soll in B9 abgelegt werden.

Sub Bereich13()
Range(„B9“)=Range(„B3:D7“).Cells(2,2)
End Sub

Mit einem zweiten Makro willst Du den Wert der 3. Zelle des Bereiches abfragen:

Sub Bereich14()
Range(„B11“)=Range(B3:D7“).Cells(3)
End Sub

Du siehst, um zur 3. Zelle des Bereiches zu gelangen, gehst Du zeilenweise von links nach rechts vor.

Hier nun die Ergebnisse: