In diesem Beispiel lernen Sie, wie Sie in Excel VBA ganze Zeilen und Spalten markieren können. Sind Sie bereit?

Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen ein:

1. Die folgende Codezeile wählt das gesamte Blatt aus.

Zellen.Auswählen

Gesamtes Blatt in Excel VBA

Hinweis: Da wir unsere Befehlsschaltfläche auf dem ersten Arbeitsblatt platziert haben, wählt diese Codezeile das gesamte erste Blatt aus. Um Zellen auf einem anderen Arbeitsblatt auszuwählen, müssen Sie zuerst dieses Blatt aktivieren. Die folgenden Codezeilen wählen zum Beispiel das gesamte zweite Arbeitsblatt aus.

Arbeitsblätter(2).Aktivieren
Arbeitsblätter(2).Zellen.Auswählen

2. Die folgende Codezeile wählt die zweite Spalte aus.

Spalten(2).Auswählen

Spalte

3. Die folgende Codezeile wählt die siebte Zeile aus.

Rows(7).Select

Row

4. Um mehrere Zeilen auszuwählen, fügen Sie eine Codezeile wie diese ein:

Rows(„5:7“).Select

Mehrere Zeilen

5. Um mehrere Spalten auszuwählen, fügen Sie eine Codezeile wie diese ein:

Spalten(„B:E“).Auswählen

Mehrere Spalten

6. Achten Sie darauf, die Eigenschaften „Zeilen“ und „Spalten“ nicht mit den Eigenschaften „Zeile“ und „Spalte“ zu verwechseln. Die Eigenschaften „Rows“ und „Columns“ geben ein Range-Objekt zurück. Die Row- und Column-Eigenschaften geben einen einzelnen Wert zurück.

Codezeile:

MsgBox Cells(5, 2).Row

Ergebnis:

Row-Eigenschaft

7. Markieren Sie Zelle D6. Die folgende Codezeile wählt die gesamte Zeile der aktiven Zelle aus.

ActiveCell.EntireRow.Select

EntireRow

Hinweis: Rand nur zur Veranschaulichung.

8. Wählen Sie Zelle D6. Die folgende Codezeile trägt den Wert 2 in die erste Zelle der Spalte ein, die die aktive Zelle enthält.

ActiveCell.EntireColumn.Cells(1).Value = 2

EntireColumn

Hinweis: Rahmen dient nur zur Illustration.

9. Markieren Sie die Zelle D6. Die folgende Codezeile trägt den Wert 3 in die erste Zelle der Zeile unterhalb der Zeile ein, die die aktive Zelle enthält.

ActiveCell.EntireRow.Offset(1, 0).Cells(1).Value = 3

EntireRow + Offset

Hinweis: Rahmen nur zur Veranschaulichung.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.