Wie man mit VBA eine Bereichsvariable in Excel in die Auswahl setzt (5 Methoden)

Hugh West

16-10-2023 Makros & Excel VBA
  • Teile Das
Hugh West

In diesem Artikel zeigen wir Ihnen einige Ideen, wie Sie Excel verwenden können VBA zum Einstellen einer Bereichsvariable Wir können einige gängige Operationen mit diesen ausgewählten Zellen durchführen, indem wir VBA Im folgenden Excel-Datensatz sind einige westliche Länder aufgeführt. Bandnamen und ihre entsprechenden Vokalsänger .

Download Arbeitsbuch Praxis

VBA, um Bereich auf Auswahl zu setzen.xlsm

5 Möglichkeiten zur Verwendung von VBA, um eine Bereichsvariable in Excel auf eine Auswahl zu setzen

1. eine Bereichsvariable setzen, um einen Bereich mit Excel VBA auszuwählen

Wir können einen Bereich auswählen durch Einstellbereich in VBA Angenommen, wir wollen Zellen auswählen. B5:C8 Kommen wir nun zum folgenden Verfahren.

Schritte:

  • Zum Schreiben von Code in VBA, öffnen Sie zunächst die Registerkarte "Entwickler und wählen Sie dann Visual Basic .

Dann öffnet sich ein neues Fenster von Microsoft Visual Basic für Anwendungen .

  • Jetzt öffnen einfügen. auswählen Modul

.

  • Geben Sie den folgenden Code in das Feld VBA-Modul . 
 Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub

Hier, wir einstellen. die Bereich B5:C8 als Rng1 Wir wählen sie nach dem Bereich Methode von VBA Behalten Sie im Hinterkopf, dass wir aktivieren. unser Exzellenz Blatt Deshalb haben wir die selectRange Blatt.

  • Gehen Sie nun zurück zum Blatt und laufen Makro .

  • Danach sehen Sie die Bereich B5:C8 automatisch ausgewählt.

So können Sie die gewünschte Bereichsvariable zur Auswahl über VBA .

Lesen Sie mehr: Excel VBA: Abrufen von Zellbereichen mit Werten (7 Beispiele)

2. mit VBA Zellen durch Setzen von Bereichsvariablen formatieren

Angenommen, unser Datensatz sieht wie das folgende Bild aus.

Wir wollen die Rubrik fett und AutoFit die Spalten Wir können dies tun über VBA Mal sehen, wie wir das machen können.

Schritte:

  • Erstens: Öffnen Sie Visual Basic und geben Sie den folgenden Code in das Feld VBA-Modul (um zu sehen, wie man die Visual Basic und VBA-Modul gehen Sie bitte zu Abschnitt 1 ). 
 Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub

Hier setzen wir die Bereich B4:C4 als xyz Dann haben wir die Kühn Methode, um die Schriftarten in der Zelle B4 und C4 fett Wir haben auch die Spalten B und C unter Verwendung der AutoFit Methode.

  • Gehen Sie nun zurück zur Blatt und führen Sie die Makro die wie folgt bezeichnet wird SetRange .

Danach sehen Sie die Namen deutlich in der Spalten und die Kopfzeilen werden. fett und ausgewählt.

Wenn Sie diesen Weg gehen, können Sie Format Zellen und AutoFit Spalteneinstellung Bereichsvariablen in VBA .

Ähnliche Lektüre

  • VBA für jede Zeile in einem Bereich in Excel verwenden
  • Wie man mit VBA einen Bereich aus der aktiven Zelle in Excel auswählt (3 Methoden)
  • Excel-Makro: Mehrere Spalten mit dynamischem Bereich sortieren (4 Methoden)

3 Kopieren eines Bereichs durch Einstellen der variablen Bereichsauswahl in VBA

Angenommen, wir wollen kopieren B6:C9 durch Einstellung der Bereichsvariable zu Wählen Sie Im Folgenden wird das Verfahren erläutert.

Schritte:

  • Erstens: Öffnen Sie Visual Basic und geben Sie den folgenden Code in das Feld VBA-Modul (um zu sehen, wie man die Visual Basic und VBA-Modul gehen Sie bitte zu Abschnitt 1 ). 
 Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub

Hier haben wir einfach die Bereich B6:C9 durch die Verwendung der Kopieren Methode der VBA Wir setzen die Bereich B6:C9 als cpy .

  • Gehen Sie nun zurück zu Ihrem Blatt und laufen Makros . auswählen CopyRange da es sich um den Namen Ihrer aktuellen Makro .

Sie sehen die Bereich B6:C9 kopiert wird.

Sie können dies einfügen Bereich irgendwo in Ihrem Excel Blatt durch Drücken von STRG + V . ich habe die Bereich über B12 zu C15 .

Wenn Sie diese Methode anwenden, können Sie kopieren. a Bereich durch Einstellung der Bereichsvariable zur Auswahl in Excel VBA .

Lesen Sie mehr: Excel VBA: Dynamischen Bereich in eine andere Arbeitsmappe kopieren

4) Zellen mit Farbe formatieren, indem die Bereichsvariable auf Auswahl gesetzt wird

Nehmen wir an, wir wollen die Farbe 8. und 10. Zeilen des Datensatzes mit grün Folgen wir der nachstehenden Beschreibung.

Schritte:

  • Erstens: Öffnen Sie Visual Basic und geben Sie den folgenden Code in das Feld VBA-Modul (um zu sehen, wie man die Visual Basic und VBA-Modul gehen Sie bitte zu Abschnitt 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Hier definieren wir unsere Bereich B8:C8 und B10:C10 als x1 und x2 bzw. Wir haben unsere Farbe Excel Blatt als ActiveSheet und wir färbten unsere gewünschten Bereiche von ColorIndex-Eigenschaft .

  • Gehen Sie nun zurück zu Ihrem Blatt und laufen Makros . auswählen Farbbereich da es sich um den Namen des aktuellen Makro .

Danach sehen Sie die gewünschte Bereiche gefüllt mit grün Farbe.

So können Sie die Zellen mit Farbe durch Einstellung der Bereichsvariable zur Auswahl.

Lesen Sie mehr: Verwendung von Bereichen mit variablen Zeilen und Spalten in Excel VBA

Ähnliche Lektüre

  • VBA zum Durchlaufen von Zeilen und Spalten in einem Bereich in Excel (5 Beispiele)
  • Excel VBA: Schleife durch den Bereich, bis die Zelle leer ist (4 Beispiele)
  • Wie man in Excel VBA einen Bereich in ein Array umwandelt (3 Möglichkeiten)

5 Löschen von Zeilen durch Setzen einer Bereichsvariablen in VBA

Angenommen, wir wollen die Datei 8. und 10. Zeilen des Datensatzes mit grün Folgen wir der nachstehenden Beschreibung.

Schritte:

  • Erstens: Öffnen Sie Visual Basic und geben Sie den folgenden Code in das Feld VBA-Modul (um zu sehen, wie man die Visual Basic und VBA-Modul gehen Sie bitte zu Abschnitt 1 ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Die Bereiche die wir löschen wollen, sind B8:C8 und B10:C10 Wir haben sie als x1 und x2 Dann haben wir sie einfach gelöscht, indem wir Löschen Methode.

  • Gehen Sie nun zurück zu Ihrem Blatt und laufen Makros . auswählen DeleteRange da es sich um den Namen Ihrer aktuellen Makro .

Danach sehen Sie die Bereiche B8:C8 und B10:C10 sind verschwunden.

Mit diesem Ansatz können Sie Folgendes löschen Zeilen durch Einstellung der Bereichsvariablen zur Auswahl.

Praxisteil

In der folgenden Abbildung finden Sie den Datensatz, mit dem wir in diesem Artikel gearbeitet haben, damit Sie selbst üben können.

Schlussfolgerung

Kurz gesagt, der Artikel konzentriert sich vollständig auf einige Anwendungen, die Bereichsvariable zur Auswahl durch Excel VBA Wir haben einige ziemlich grundlegende Methoden beschrieben. Wenn Sie weitere Ideen oder Rückmeldungen haben, hinterlassen Sie sie bitte im Kommentarfeld. Dies wird mir helfen, meine kommenden Artikel zu bereichern.

Vorherigen Post Verwendung von SUMIFS, wenn die Zellen nicht gleich dem Mehrfachtext sind
Nächster Beitrag Zahl in Excel in Datum umwandeln (6 einfache Methoden)

Hugh West ist ein äußerst erfahrener Excel-Trainer und -Analyst mit über 10 Jahren Erfahrung in der Branche. Er verfügt über einen Bachelor-Abschluss in Rechnungswesen und Finanzen sowie einen Master-Abschluss in Betriebswirtschaft. Hugh hat eine Leidenschaft für das Unterrichten und hat einen einzigartigen Lehransatz entwickelt, der leicht zu befolgen und zu verstehen ist. Seine Expertenkenntnisse in Excel haben Tausenden von Studenten und Berufstätigen auf der ganzen Welt geholfen, ihre Fähigkeiten zu verbessern und in ihrer Karriere herausragende Leistungen zu erbringen. Über seinen Blog teilt Hugh sein Wissen mit der Welt und bietet kostenlose Excel-Tutorials und Online-Schulungen an, um Einzelpersonen und Unternehmen dabei zu helfen, ihr volles Potenzial auszuschöpfen.