Verweisen auf mehrere Bereiche
Mit der entsprechenden Methode können Sie ganz einfach auf mehrere Bereiche verweisen. Verwenden Sie die Methoden Range und Union, um auf eine beliebige Gruppe von Bereichen zu verweisen. Verwenden Sie die Areas-Eigenschaft, um auf eine in dem Arbeitsblatt markierte Gruppe von Bereichen zu verweisen.
Verwenden der Range-Eigenschaft
Sie können mit der Range-Eigenschaft auf mehrere Bereiche verweisen, indem Sie zwischen zwei oder mehr Verweisen Kommas setzen. Im folgenden Beispiel werden die Inhalte von drei Bereichen für Sheet1 gelöscht.
Sub ClearRanges()
Worksheets("Sheet1").Range("C5:D9,G9:H16,B14:D18"). _
ClearContents
End Sub
Benannte Bereiche erleichtern die Verwendung der Range-Eigenschaft bei der Arbeit mit mehreren Bereichen. Das folgende Beispiel funktioniert, wenn sich alle drei benannten Bereiche auf demselben Blatt befinden.
Sub ClearNamed()
Range("MyRange, YourRange, HisRange").ClearContents
End Sub
Verwenden der Union-Methode
Sie können mehrere Bereiche in einem Range-Objekt mithilfe der Union-Methode kombinieren. Im folgenden Beispiel wird ein Range-Objekt mit dem Namen myMultipleRange
erstellt und als Bereiche A1:B2 und C3:D4 definiert; die kombinierten Bereiche werden dann fett formatiert.
Sub MultipleRange()
Dim r1 As Range, r2 As Range, myMultipleRange As Range
Set r1 = Sheets("Sheet1").Range("A1:B2")
Set r2 = Sheets("Sheet1").Range("C3:D4")
Set myMultipleRange = Union(r1, r2)
myMultipleRange.Font.Bold = True
End Sub
Verwenden der Areas-Eigenschaft
Sie können die Areas-Eigenschaft verwenden, um auf den ausgewählten Bereich oder die Sammlung von Bereichen in einer Auswahl mit mehreren Bereichen zu verweisen. Das folgende Verfahren zählt die Bereiche in der Auswahl. Wenn mehr als ein Bereich vorhanden ist, wird eine Warnung angezeigt.
Sub FindMultiple()
If Selection.Areas.Count > 1 Then
MsgBox "Cannot do this to a multiple selection."
End If
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für