Was Variablen und Konstanten sind, haben wir bereits in unserem Tutorial zu VBA-Datentypen - Variablen und Konstanten besprochen. Wir werden uns nun das Range-Objekt in VBA ansehen und wie man eine Variable als Range-Objekt deklariert. Das Bereichsobjekt wird verwendet, um Zellen oder mehrere Zellen in VBA zu kennzeichnen. Es ist also sehr nützlich, es in Ihrem Code zu verwenden.
Klicken Sie hier, um weitere Informationen zu VBA-Bereichen und -Zellen zu erhalten.
Das VBA-Bereichsobjekt
Sie können das Bereichsobjekt verwenden, um auf eine einzelne Zelle zu verweisen. Wenn Sie beispielsweise in Ihrem VBA-Code auf Zelle A1 verweisen möchten, können Sie das VBA-Bereichsobjekt wie im folgenden Code gezeigt verwenden:
1234 | Sub ReferenceToASingleCellUsingTheRangeObject()Bereich("A1").Wert = 89Range("A1").Font.Bold = TrueEnd Sub |
Wenn Sie Ausführen oder F5 auf Ihrer Tastatur drücken, um Ihren Code auszuführen, erhalten Sie in Ihrem tatsächlichen Arbeitsblatt das folgende Ergebnis:
Sie können das Bereichsobjekt verwenden, um auf mehrere Zellen oder Bereiche zu verweisen. Wenn Sie beispielsweise in Ihrem VBA-Code auf den Zellbereich (A1: C1) verweisen möchten, können Sie das VBA-Bereichsobjekt wie im folgenden Code gezeigt verwenden:
123456 | Sub ReferenceToMultipleCellsUsingTheRangeObject()Bereich("A1:C1").Wert = "ABC"Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xlDoubleEnd Sub |
Wenn Sie Ausführen oder F5 auf Ihrer Tastatur drücken, um Ihren Code auszuführen, erhalten Sie in Ihrem tatsächlichen Arbeitsblatt das folgende Ergebnis:
Eine Variable als Bereich deklarieren
Sie müssen die Schlüsselwörter Dim und Set verwenden, wenn Sie eine Variable als Bereich deklarieren. Der folgende Code zeigt Ihnen, wie Sie eine Variable als Bereich deklarieren.
123456789101112 | Sub DeclaringAndSettingARange()Dim rng As RangeSetze rng = Range("A10:B10")rng.Value = "AutomateExcel"rng.Font.Bold = Truerng.Auswahlrng.Columns.AutoFitEnd Sub |
Das Ergebnis ist:
Auswählen bestimmter Zeilen in Ihrem Range-Objekt
Sie können bestimmte Zeilen innerhalb Ihres Range-Objekts auswählen. Der folgende Code zeigt Ihnen, wie das geht:
12345678 | Sub SelectingSpecificRowsInTheRangeObject()Dim rng As RangeSetze rng = Range("A1:C3")rng.Rows(3).SelectEnd Sub |
Das Ergebnis ist:
Auswählen bestimmter Spalten in Ihrem Bereichsobjekt
Sie können bestimmte Spalten innerhalb Ihres Bereichsobjekts auswählen. Der folgende Code zeigt Ihnen, wie das geht:
12345678 | Sub SelectingSpecificColumnsInTheRangeObject()Dim rng As RangeSetze rng = Range("A1:C3")rng.Columns(3).SelectEnd Sub |