In diesem Tutorial wird gezeigt, wie Sie ganze Zeilen oder Spalten in VBA auswählen und damit arbeiten.
Zuerst werden wir behandeln, wie man ganze Zeilen und Spalten auswählt, dann zeigen wir, wie man Zeilen und Spalten manipuliert.
Ganze Zeilen oder Spalten auswählen
Wählen Sie Einzelreihe
Mit der können Sie eine ganze Zeile auswählen Zeilen-Objekt so was:
1 | Zeilen(5).Auswählen |
Oder du kannst verwenden Ganze Reihe zusammen mit Bereich oder Zellen Objekte:
1 | Range("B5").EntireRow.Select |
oder
1 | Zellen(5,1).EntireRow.Select |
Sie können auch die Bereichsobjekt um speziell auf eine Zeile zu verweisen:
1 | Bereich("5:5").Wählen |
Wählen Sie Einzelspalte
Anstatt der Zeilen-Objekt, benutze die Spaltenobjekt Spalten auszuwählen. Hier können Sie auf die Spaltennummer 3 verweisen:
1 | Spalten(3).Wählen |
oder Buchstabe „C“, umgeben von Anführungszeichen:
1 | Spalten("C").Wählen |
Anstatt von Ganze Reihe, verwenden Gesamte Spalte zusammen mit Bereich oder Zellen Objekte um ganze Spalten auszuwählen:
1 | Range("C5").EntireColumn.Select |
oder
1 | Zellen(5,3).EntireColumn.Select |
Sie können auch die Bereichsobjekt um speziell auf eine Spalte zu verweisen:
1 | Bereich("B:B").Wählen |
Wählen Sie mehrere Zeilen oder Spalten aus
Die Auswahl mehrerer Zeilen oder Spalten funktioniert bei der Verwendung von EntireRow oder EntireColumn genauso:
1 | Range("B5:D10").EntireRow.Select |
oder
1 | Range("B5:B10").EntireColumn.Select |
Wenn Sie jedoch die Zeilen- oder Spaltenobjekte verwenden, müssen Sie die Zeilennummern oder Spaltenbuchstaben in Anführungszeichen eingeben:
1 | Zeilen("1:3").Wählen |
oder
1 | Spalten("B:C").Wählen |
Wählen Sie ActiveCell-Zeile oder -Spalte
Um die ActiveCell-Zeile oder -Spalte auszuwählen, können Sie eine dieser Codezeilen verwenden:
1 | ActiveCell.EntireRow.Select |
oder
1 | ActiveCell.EntireColumn.Select |
Wählen Sie Zeilen und Spalten auf anderen Arbeitsblättern aus
Um Zeilen oder Spalten auf anderen Arbeitsblättern auszuwählen, müssen Sie zuerst das Arbeitsblatt auswählen.
12 | Sheets("Sheet2").SelectZeilen(3).Wählen |
Das gleiche gilt für die Auswahl von Zeilen oder Spalten in anderen Arbeitsmappen.
123 | Arbeitsmappen("Book6.xlsm").AktivierenSheets("Sheet2").SelectZeilen(3).Wählen |
Hinweis: Sie müssen aktivieren Sie die gewünschte Arbeitsmappe. nicht so wie Tabellenobjekt, das Arbeitsmappenobjekt hat kein a Methode auswählen.
Ist die Auswahl von Zeilen und Spalten notwendig?
Es ist jedoch (fast?) nie notwendig, Zeilen oder Spalten auszuwählen. Sie müssen keine Zeile oder Spalte auswählen, um mit ihnen zu interagieren. Stattdessen können Sie Methoden oder Eigenschaften direkt auf die Zeilen oder Spalten anwenden. In den nächsten Abschnitten werden verschiedene Methoden und Eigenschaften demonstriert, die angewendet werden können.
Sie können jede der oben aufgeführten Methoden verwenden, um auf Zeilen oder Spalten zu verweisen.
Methoden und Eigenschaften von Zeilen & Spalten
Ganze Zeilen oder Spalten löschen
Um Zeilen oder Spalten zu löschen, verwenden Sie die Löschmethode:
1 | Zeilen("1:4").Löschen |
oder:
1 | Spalten("A:D").Löschen |
Zeilen oder Spalten einfügen
Verwenden Sie die Einfügemethode Zeilen oder Spalten einfügen:
1 | Zeilen("1:4").Einfügen |
oder:
1 | Spalten("A:D").Einfügen |
Ganze Zeilen oder Spalten kopieren und einfügen
In vorhandene Zeile oder Spalte einfügen
Beim Kopieren und Einfügen ganzer Zeilen oder Spalten müssen Sie entscheiden, ob Sie eine vorhandene Zeile / Spalte überschreiben oder eine neue Zeile / Spalte einfügen möchten, um Ihre Daten einzufügen.
Diese ersten Beispiele werden kopieren und über eine vorhandene Zeile oder Spalte einfügen:
1 | Range("1:1").Copy Range("5:5") |
oder
1 | Range("C:C").Copy Range("E:E") |
Einfügen & Einfügen
Diese nächsten Beispiele werden in eine neu eingefügte Zeile oder Spalte eingefügt.
Dadurch wird Zeile 1 kopiert und in Zeile 5 eingefügt, wobei die vorhandenen Zeilen nach unten verschoben werden:
12 | Bereich("1:1").KopierenBereich("5:5").Einfügen |
Dadurch wird Spalte C kopiert und in Spalte E eingefügt, wobei die vorhandenen Spalten nach rechts verschoben werden:
12 | Range("C:C").CopyBereich("E:E").Einfügen |
Zeilen und Spalten aus-/einblenden
Um Zeilen oder Spalten auszublenden, setzen Sie ihre Versteckte Eigenschaften zu Wahr. Verwenden Sie False, um die Zeilen oder Spalten auszublenden:
12345 | 'Reihen ausblendenRows("2:3").EntireRow.Hidden = True'Zeilen einblendenRows("2:3").EntireRow.Hidden = False |
oder
12345 | 'Spalten ausblendenColumns("B:C").EntireColumn.Hidden = True'Spalten einblendenColumns("B:C").EntireColumn.Hidden = False |
Gruppieren / Gruppieren von Zeilen und Spalten aufheben
Wenn Sie Zeilen (oder Spalten) gruppieren möchten, verwenden Sie folgenden Code:
12345 | 'GruppenzeilenZeilen("3:5").Gruppe'GruppenspaltenSpalten("C:D").Gruppe |
Um die Gruppierung zu entfernen, verwenden Sie diesen Code:
12345 | 'Gruppierung von Zeilen aufhebenZeilen("3:5").Gruppierung aufheben'Spalten aufhebenSpalten("C:D").Gruppierung aufheben |
Dadurch werden alle „gruppierten“ Gliederungsebenen erweitert:
1 | ActiveSheet.Outline.ShowLevels RowLevels:=8, ColumnLevels:=8 |
und dies wird alle Gliederungsebenen zusammenklappen:
1 | ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1 |
Zeilenhöhe oder Spaltenbreite einstellen
Um die Spaltenbreite festzulegen, verwenden Sie diese Codezeile:
1 | Columns("A:E").ColumnWidth = 30 |
Um die Zeilenhöhe festzulegen, verwenden Sie diese Codezeile:
1 | Rows("1:1").RowHeight = 30 |
Zeilenhöhe / Spaltenbreite automatisch anpassen
So passen Sie eine Spalte automatisch an:
1 | Spalten("A:B").Autofit |
So passen Sie eine Zeile automatisch an:
1 | Zeilen("1:2").Autofit |
Zeilen und Spalten in anderen Arbeitsblättern oder Arbeitsmappen
Um mit Zeilen und Spalten auf anderen Arbeitsblättern zu interagieren, müssen Sie die Tabellenobjekt:
1 | Sheets("Sheet2").Rows(3).Einfügen |
Um mit Zeilen und Spalten in anderen Arbeitsmappen zu interagieren, müssen Sie auch die Arbeitsmappenobjekt:
1 | Arbeitsmappen("book1.xlsm").Sheets("Sheet2").Rows(3).Insert |
Aktive Zeile oder Spalte abrufen
Um die aktive Zeile oder Spalte zu erhalten, können Sie die Reihe und Spalteneigenschaften des ActiveCell-Objekt.
1 | MsgBox ActiveCell.Row |
oder
1 | MsgBox ActiveCell.Column |
Das funktioniert auch mit dem Bereichsobjekt:
1 | MsgBox Range("B3").Spalte |