|
VBA - Mehrere Bereiche löschen |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Mittwoch, 07. Mai 2008 um 03:36 Uhr |
|
Dieses kleine Makro zeigt, wie man mehrere Bereiche ansprechen kann. In diesem Fall sollen die Bereiche A1 bis A10 und D1 bis D10 gelöscht werden. Gegeben ist folgende Situation: | | A | B | C | D | | 1 | weg damit | soll bleiben | soll bleiben | weg damit | | 2 | weg damit | soll bleiben | soll bleiben | weg damit | | 3 | weg damit | soll bleiben | soll bleiben | weg damit | | 4 | weg damit | soll bleiben | soll bleiben | weg damit | | 5 | weg damit | soll bleiben | soll bleiben | weg damit | | 6 | weg damit | soll bleiben | soll bleiben | weg damit | | 7 | weg damit | soll bleiben | soll bleiben | weg damit | | 8 | weg damit | soll bleiben | soll bleiben | weg damit | | 9 | weg damit | soll bleiben | soll bleiben | weg damit | | 10 | weg damit | soll bleiben | soll bleiben | weg damit |
Nach dem starten des Makros wollen wir, das folgende Ergebnis vorweisen können.
| | A | B | C | D | | 1 | | soll bleiben | soll bleiben | | | 2 | | soll bleiben | soll bleiben | | | 3 | | soll bleiben | soll bleiben | | | 4 | | soll bleiben | soll bleiben | | | 5 | | soll bleiben | soll bleiben | | | 6 | | soll bleiben | soll bleiben | | | 7 | | soll bleiben | soll bleiben | | | 8 | | soll bleiben | soll bleiben | | | 9 | | soll bleiben | soll bleiben | | | 10 | | soll bleiben | soll bleiben | |
Der folgende Code kann uns dabei helfen:
Option Explicit
Sub mehrere_Bereiche_löschen()
Dim RaBereich As Range
Set RaBereich = Union(Range("A1:A10"), Range("D1:D10"))
RaBereich.ClearContents
End Sub
|
|
Zuletzt aktualisiert am Mittwoch, 07. Mai 2008 um 03:42 Uhr |
VBA Makro Beispiele 