In Excel Visual Basic Zellen und Zellbereiche auswählen

In diesem How.com.vn zeigen wir dir, wie du mit der Nutzung von Visual Basic Prozeduren beginnst, um in Microsoft Excel Daten auszuwählen. Solange du mit grundlegendem VB Scripting vertraut bist und fortgeschrittenere Funktionen von Excel verwendest, wirst du den Auswahlprozess ziemlich einfach finden.

Methode 1

Methode 1 von 3:

Einzelne Zellen auswählen

PDF herunterladen

1
Wähle eine Zelle im aktuellen Arbeitsblatt. Nehmen wir an, du möchtest mit Visual Basic die Zelle E6 auswählen. Dies kannst du mit einer der folgenden Optionen machen:^{[1]XForschungsquelle}
```
ActiveSheet.Cells(6, 5).Select
```
```
ActiveSheet.Range("E6").Select
```
2
Wähle eine Zelle in einem anderen Arbeitsblatt in der gleichen Arbeitsmappe. Nehmen wir an, unsere Beispielzelle E6 befindet sich in einer Tabelle namens Sheet2. Du kannst sie mit einer der folgenden Optionen auswählen:
```
Application.Goto ActiveWorkbook.Sheets("Sheet2").Cells(6, 5)
```
```
Application.Goto (ActiveWorkbook.Sheets("Sheet2").Range("E6"))
```
3
Wähle eine Zelle in einem Arbeitsblatt in einer anderen Arbeitsmappe aus. Nehmen wir an, du möchtest eine Zelle aus Sheet1 in einer Arbeitsmappe namens BOOK2.XLS auswählen. Eine dieser Optionen sollte dies erledigen:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Cells(2,1)
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A2")
```
4
Wähle eine Zelle relativ zu einer anderen Zelle. Du kannst mit VB eine Zelle basierend auf ihrer Position relativ zur aktiven (oder einer anderen) Zelle auswählen. Gehe lediglich sicher, dass die Zelle existiert, um Fehlermeldungen zu vermeiden. So geht's:
- Wähle die Zelle drei Zeilen unter und vier Spalten links von der aktiven Zelle:
  ActiveCell.Offset(3, -4).Select
- Wähle die Zelle fünf Zeilen unter und vier Spalten rechts von Zelle C7:
  ActiveSheet.Cells(7, 3).Offset(5, 4).Select
Werbeanzeige

Methode 2

Methode 2 von 3:

Zellbereiche auswählen

PDF herunterladen

1
Wähle einen Zellbereich im aktiven Arbeitsblatt. Wenn du die Zellen C1:D6 auswählen möchtest, kannst du eines der folgenden drei Beispiele eingeben:
```
ActiveSheet.Range(Cells(1, 3), Cells(6, 4)).Select
```
```
ActiveSheet.Range("C1:D6").Select
```
```
ActiveSheet.Range("C1", "D6").Select
```
2
Wähle einen Bereich aus einem anderen Arbeitsblatt in der gleichen Arbeitsmappe. Du solltest eines dieser Beispiele anwenden, um die Zellen C3:E11 in einer Tabelle namens Sheet3 auszuwählen:
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3:E11")
```
```
Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("C3", "E11")
```
3
Wähle einen Zellbereich aus einem Arbeitsblatt in einer anderen Arbeitsmappe. Diese beiden Beispiele würden die Zellen E12:F12 in Sheet1 der Arbeitsmappe BOOK2.XLS auswählen:
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12:F12")
```
```
Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("E12", "F12")
```
4
Wähle einen benannten Zellbereich. Wenn du einem Zellbereich einen Namen zugewiesen hast, würdest du die gleiche Syntax anwenden wie in den Schritten 4 bis 6, aber die Adresse des Bereichs (bspw. "E12", "F12") durch den Namen des Bereichs (bspw. "Umsätze") ersetzen. Einige Beispiele:
- In der aktiven Tabelle:
  ActiveSheet.Range("Sales").Select
- Ein anderes Arbeitsblatt in der gleichen Arbeitsmappe:
  Application.Goto ActiveWorkbook.Sheets("Sheet3").Range("Sales")
- Andere Arbeitsmappe:
  Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("Sales")
5
Wähle einen Zellbereich relativ zu einem benannten Zellbereich. Die Syntax variiert abhängig von der Position des benannten Bereichs und ob du die Größe des neuen Bereichs anpassen möchtest.
- Wenn der Bereich, den du auswählen möchtest, die gleiche Größe hat wie ein Bereich mit dem Namen Test5, aber vier Zeilen darunter und und drei Spalten rechts davon liegt, würdest du dies machen:
  ActiveSheet.Range("Test5").Offset(4, 3).Select
- Wenn sich der Bereich in Sheet3 der gleichen Arbeitsmappe befindet, aktiviere zuerst dieses Arbeitsblatt und wähle dann den Bereich so aus:
  Sheets("Sheet3").Activate ActiveSheet.Range("Test").Offset(4, 3).Select
6
Wähle einen Bereich und passe die Auswahl an. Du kannst die Größe eines ausgewählten Bereichs wenn nötig vergrößern. Wenn du einen Bereich namens Database auswählen und dann seine Größe um fünf Zeilen vergrößern möchtest, würdest du diese Syntax anwenden:
```
Range("Database").Select Selection.Resize(Selection.Rows.Count + 5, _Selection.Columns.Count).Select
```
7
Wähle die Vereinigung zweier benannter Bereiche aus. Wenn du zwei sich überlappende benannte Bereiche hast, kannst du mit VB die Zellen in diesem überlappenden Bereich (genannt die "Union") auswählen. Die Einschränkung ist, dass du dies nur in einem aktiven Arbeitsblatt machen kannst. Nehmen wir an, du möchtest die Union eines Bereichs namens Great und eines names Terrible auswählen:
- Application.Union(Range("Great"), Range("Terrible")).Select
- Wenn du statt der Union den Schnittpunkt zweier benannter überlappender Bereiche auswählen möchtest, ersetze einfach Application.Union durch Application.Intersect.
Werbeanzeige

Methode 3

Methode 3 von 3:

In Spalten nebeneinanderliegende und nicht nebeneinanderliegende Daten auswählen

PDF herunterladen

1
Verwende diese Beispieldaten für die Beispiele in dieser Methode. Dieses Chart mit Beispieldaten, bereitgestellt von Microsoft, wird dir helfen zu visualisieren, wie sich die Beispiele verhalten:^{[2]XForschungsquelle}
A1: Name B1: Umsätze C1: Menge
A2: a B2: 10 € C2: 5
A3: b B3: C3: 10
A4: c B4: 10 € C4: 5
A5: B5: C5:
A6: Summe B6: 20 € C6: 20
2
Wähle die letzte Zelle unten in einer benachbarten Ziele aus. Im folgenden Beispiel wählen wir die Zelle A4 aus:
```
ActiveSheet.Range("A1").End(xlDown).Select
```
3
Wähle die erste leere Zelle unter einer Spalte mit nebeneinanderliegenden Zellen aus. Das folgende Beispiel wählt A5 basierend auf dem Chart oben aus:
```
ActiveSheet.Range("A1").End(xlDown).Offset(1,0).Select
```

4

Wähle einen Bereich mit nebeneinanderliegenden Zellen in einem Bereich aus. Beide folgenden Bereiche werden den Bereich A1:A4 auswählen:

ActiveSheet.Range("A1", ActiveSheet.Range("a1").End(xlDown)).Select

ActiveSheet.Range("A1:" & ActiveSheet.Range("A1"). End(xlDown).Address).Select

5
Wähle einen ganzen Bereich mit nicht nebeneinanderliegenden Zellen in einer Spalte aus. Unter Verwendung der Tabellendaten oben in dieser Methode wählen beide folgenden Beispiele A1:A6 aus:
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```
```
ActiveSheet.Range("A1",ActiveSheet.Range("A65536").End(xlUp)).Select
```
Werbeanzeige

Tipps

Die Eigenschaften "ActiveSheet" und "ActiveWorkbook" können normalerweise ausgelassen werden, wenn das aktive Arbeitsblatt und die aktive Arbeitsmappe einbezogen werden.

Werbeanzeige