{"id":55000320,"date":"2022-08-01T00:00:00","date_gmt":"2023-03-02T17:05:03","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=320"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Excel_Zellen_und_Bereiche_per_VBA","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/Excel_Zellen_und_Bereiche_per_VBA\/","title":{"rendered":"Excel: Zellen und Bereiche per VBA"},"content":{"rendered":"

Im Artikel “Excel: Workbooks und Worksheets per VBA” haben wir uns angesehen, wie wir Arbeitsmappen und Arbeitsblätter mit VBA nutzen können. Im vorliegenden Artikel gehen wir einen Schritt weiter und nehmen uns die offensichtlichen Elemente eines Arbeitsblatts vor – die Zellen. Nicht weniger spannend sind allerdings die Bereiche, unter VBA “Range” genannt. Wie wir diese referenzieren, auslesen und bearbeiten können, zeigen wir auf den folgenden Seiten.<\/b><\/p>\n

Worksheet referenzieren<\/h2>\n

Im oben genannten Artikel Excel: Workbooks und Worksheets per VBA<\/b> (www.access-im-unternehmen.de\/326<\/b>) zeigen wir, wie Du Workbook<\/b>– und Worksheet<\/b>-Elemente referenzieren kannst. Im aktuellen Artikel verwenden wir oft das aktuelle Worksheet<\/b>-Element als Basis für den Zugriff auf verschiedene Eigenschaften wie Range <\/b>oder Cells<\/b>.<\/p>\n

Dieses können wir mit ActiveSheet <\/b>referenzieren, allerdings bietet ActiveSheet <\/b>kein IntelliSense an. Das liegt daran, dass ActiveSheet <\/b>nicht nur ein Worksheet<\/b>-Objekt, sondern auch ein Chart<\/b>-Objekt zurückliefern könnte. <\/p>\n

Um diese Einschränkung zu umgehen, referenzieren wir das Worksheet<\/b>-Objekt jeweils mit folgenden Anweisungen:<\/p>\n

Dim <\/span>wks As <\/span>Worksheet\r\nSet<\/span> wks = ActiveSheet<\/pre>\n
wks <\/b>ist nun explizit als Worksheet<\/b>-Objekt deklariert und liefert folglich dessen Elemente per IntelliSense. Wir werden die Deklaration und Zuweisung des aktuellen Worksheets nicht in jedem Beispiel explizit ausführen, sondern nach dem ersten Beispiel einfach mit wks <\/b>arbeiten.<\/p>\n
Gleichwohl sei erwähnt, dass Du innerhalb des VBA-Projekts einer Excel-Arbeitsmappe auch direkt die Range<\/b>– oder die Cells<\/b>-Eigenschaft nutzen kannst. Im Direktfenster erhältst Du also beispielsweise mit folgendem Ausdruck den Inhalt der Zelle mit der Adresse A1<\/b>:<\/p>\n
  Range(\"A1\")<\/pre>\n
Da ich allerdings davon ausgehe, dass Du auch von anderen Anwendungen wie Access, Word oder Outlook oder auch von COM-Add-Ins auf die Inhalte von Excel-Arbeitsmappen zugreifen willst, verwenden wir immer die explizite Angabe der Objekte.<\/p>\n
Einzelne Zelle über die A1-Notation per Range referenzieren<\/h2>\n
Im Excel-Arbeitsblatt erhalten wir schon Hinweise darauf, wie ein Weg zum Referenzieren einer Zelle aussehen könnte (siehe Bild 1).<\/p>\n
\"Die<\/p>\n
Bild 1: Die Bezeichnung der aktuellen Zelle, hier A1<\/span><\/b><\/p>\n
Damit sind die Spalten- und Zeilenüberschriften gemeint, die aus Buchstaben und Zahlen bestehen. Die Spaltenköpfe enthalten zunächst die Buchstaben von A <\/b>bis Z<\/b>, dann geht es mit AA <\/b>bis ZZ <\/b>weiter und dann mit AAA <\/b>bis XFD<\/b>, was der Spalte 16.384 entspricht. Die Zeilenköpfe enthalten die Zahlen von 1 bis 1.048.576.<\/p>\n
Eine Zelle hat eine Benennung, die aus dem Buchstaben der Spalte und der Zahl der Zeile besteht. Die Zeile oben links heißt also A1<\/b>, während die Zeile ganz unten rechts XFD1048576 <\/b>heißt (ich hoffe, Elon Musk liest das nicht, sonst benennt er sein nächstes Kind nach dieser Zelle).<\/p>\n
Diese Bezeichnung ist auch gleichzeitig der erste Weg, mit dem wir auf eine Zelle zugreifen können. Um beispielsweise über den Ausdruck A1 <\/b>auf eine Zelle zugreifen zu können, verwenden wir die Range<\/b>-Eigenschaft des Worksheet<\/b>-Objekts:<\/p>\n
Public Sub <\/span>ZelleMitRange()\r\n     Dim <\/span>wks As <\/span>Worksheet\r\n     Set<\/span> wks = ActiveSheet\r\n     Debug.Print<\/span> wks.Range(\"A1\")\r\nEnd Sub<\/span><\/pre>\n
Dies gibt den Inhalt der Zelle im Direktbereich aus.<\/p>\n
Einzelne Zelle über die R1C1-Notation per Cells referenzieren<\/h2>\n
Wenn Du den numerischen Index der Zeile und Spalte der Zelle kennst, die Du referenzieren möchtest, kannst Du auch die Cells<\/b>-Eigenschaft nutzen.<\/p>\n
Diese erwartet als Parameter die Angabe des Zeilenindexes und des Spaltenindexes in der R1C1<\/b>-Notation.<\/p>\n
Das R <\/b>und das C <\/b>in dieser Bezeichnung stehen für die englischen Begriffe für Zeile und Spalte, also Row <\/b>und Cell<\/b>. Der folgende Ausdruck liefert folglich den Inhalt der Zelle in der ersten Zeile und der ersten Spalte:<\/p>\n
Debug.Print<\/span> wks.Cells(1, 1)<\/pre>\n
Für eine andere Zeile, zum Beispiel die zweite, änderst Du den Wert des ersten Parameters. So erhältst Du den Inhalt der Zelle A2<\/b>:<\/p>\n
Debug.Print<\/span> wks.Cells(2, 1)<\/pre>\n
Aktuelle Zelle referenzieren<\/h2>\n
Um die aktuelle Zelle zu referenzieren, benötigen wir gar kein Worksheet<\/b>-Objekt – dieses wird explizit ermittelt. Um den Inhalt der aktuellen Zelle auszugeben, nutzen wir die folgende Anweisung:<\/p>\n
Debug.Print<\/span> ActiveCell<\/pre>\n
Mehrere Zellen mit Range referenzieren<\/h2>\n
Während beiden zuvor beschriebenen Beispiele sich jeweils auf das Referenzieren einer einzelnen Zelle beschränkten, können wir mit der Range<\/b>-Eigenschaft auch mehr als eine Zelle gleichzeitig referenzieren.<\/p>\n
Hier können wir die A1-Notation verwenden, über einen kleinen Umweg aber auch die R1C1-Notation. Angenommen, wir wollen einen Bereich mit allen Zellen des Worksheets aus Bild 2 referenzieren.<\/p>\n
\"Beispielzellen\"<\/p>\n
Bild 2: Beispielzellen<\/span><\/b><\/p>\n
Mehrere Zellen mit der A1-Notation<\/h2>\n
Wenn wir die Range<\/b>-Eigenschaft mit der A1-Notation nutzen, lautet die Referenz wie folgt:<\/p>\n
Set<\/span> rng = wks.Range(\"A1:D4\")<\/pre>\n
Dass wir wirklich den gewünschten Bereich referenzieren, können wir zum Beispiel durch die Ausgabe der Anzahl der Zeilen und Spalten erreichen:<\/p>\n
Debug.Print<\/span> \"Zeilen: \" & rng.Rows.Count\r\nDebug.Print<\/span> \"Spalten: \" & rng.Columns.Count<\/pre>\n
Die Ausgabe lautet:<\/p>\n
Zeilen: 4\r\nSpalten: 4<\/pre>\n
Wir geben also die linke obere und die rechte untere Zelle des Bereichs in einer Zeichenkette durch einen Doppelpunkt getrennt an.<\/p>\n
Mehrere Zellen mit der R1C1-Notation<\/h2>\n
Wir können die Range<\/b>-Eigenschaft mit der Cells<\/b>-Eigenschaft in der Form kombinieren, dass wir die linke, obere und die rechte, untere zu referenzierende Zelle jeweils mit der Cells<\/b>-Eigenschaft referenzieren und diese per Komma getrennt der Range<\/b>-Eigenschaft übergeben.<\/p>\n
Für den gleichen Bereich wie im vorherigen Beispiel lautet der Ausdruck dann:<\/p>\n
Set<\/span> rng = wks.Range(Cells(1, 1), Cells(4, 4))<\/pre>\n
Komplette Spalte mit Range referenzieren<\/h2>\n
Wenn Du eine komplette Spalte, zum Beispiel die Spalte A<\/b>, mit einem Range<\/b>-Elemente referenzieren möchtest, gibst Du den Bereich ohne Angabe von Zeilen an:<\/p>\n
Set<\/span> rng = wks.Range(\"A:A\")<\/pre>\n
Für mehrere zusammenhängende Spalten, zum Beispiel Spalte A bis Spalte C:<\/p>\n
Set<\/span> rng = wks.Range(\"A:C\")<\/pre>\n
Komplette Zeile mit Range referenzieren<\/h2>\n
Für das Referenzieren einer kompletten Zeile, beispielsweise der ersten Zeile, mit dem Range<\/b>-Element nutzt Du den folgenden Ausdruck:<\/p>\n
Set<\/span> rng = Range(\"1:1\")<\/pre>\n
Für mehrere zusammenhängende Zeilen verwendest Du analog zu den Spalten den folgenden Ausdruck für die ersten drei Zeilen:<\/p>\n
Set<\/span> rng = Range(\"1:3\")<\/pre>\n
Nicht zusammenhängende Zellen referenzieren<\/h2>\n
Wenn Du einzelne Zellen oder Bereiche von Zellen referenzieren möchtest, die nicht unbedingt zusammenhängen, dann gibst Du diese für die Range<\/b>-Methode durch Kommata voneinander getrennt an.<\/p>\n
Für einzelne Zellen sieht das so aus:<\/p>\n
Dim <\/span>rng As <\/span>Range\r\nSet<\/span> rng = wks.Range(\"A1, B2, C3, D4\")\r\nDebug.Print<\/span> rng.Cells.Count ''gibt 4 aus<\/pre>\n
Auf die gleiche Weise kannst Du auch nicht unbedingt zusammenhängende Bereiche referenzieren, hier für die Bereiche A1 <\/b>bis A4 <\/b>und C1 <\/b>bis C4<\/b>:<\/p>\n
Dim <\/span>rng As <\/span>Range\r\nSet<\/span> rng = wks.Range(\"A1:A4, C1:C4\")\r\nDebug.Print<\/span> rng.Cells.Count ''gibt 8 aus<\/pre>\n
Wert aus einer Zelle lesen<\/h2>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t