VBA – Programmierung mit Excel Grundlagen
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Seite 74<br />
Manipulation von Zellen und Zellbereichen<br />
Die gleiche Aufgabe erfüllt die Methode SELECT:<br />
Range("A3").Select<br />
Range("B1:D4").Select<br />
➨ Zu beachten sind hier die im Kap. 9.1.1 beschriebenen Alternativen der Definition von<br />
Argumenten zu RANGE.<br />
➨ Auch in markierten (ausgewählten) Zellbereichen ist jeweils nur eine Zelle aktiv. Die<br />
Adresse dieser Zelle kann für Wert- oder Formatzuweisungen <strong>mit</strong><br />
ActiveCell.Address<br />
er<strong>mit</strong>telt werden.<br />
Die Adresse des gesamten markierten Zellbereichs er<strong>mit</strong>telt man <strong>mit</strong><br />
ActiveWindow.RangeSelection.Addresss<br />
Soll die ganze Zeile oder Spalte, in der eine aktive Zelle steht ausgewählt (markiert) werden,<br />
werden die Zugriffseigenschaften ENTIREROW und ENTIRECOLUMN benutzt:<br />
Worksheets("Tabelle1").Range("B3").EntireRow.Select<br />
Worksheets("Tabelle1").Range("B3").EntireColumn.Select<br />
Worksheets("Tabelle1").Range(ActiveCell.Address).EntireColumn.Select<br />
Die erste Anweisung markiert die Zeile 3, die zweite markiert die Spalte B, die dritte die<br />
Spalte <strong>mit</strong> der aktiven Zelle (alle im Tabellenblatt Tabelle1).<br />
10.2 Einfügen von Zellen, Zeilen und Spalten<br />
Mit Hilfe der Zugriffseigenschaften ENTIREROW und ENTIRECOLUMN ist zusammen <strong>mit</strong> der<br />
Methode INSERT das Einfügen von Zellen, Zeilen und Spalten möglich.<br />
Beim Einfügen von Zellen kann <strong>mit</strong> Hilfe des Arguments SHIFT bestimmt werden, in welche<br />
Richtung im Verhältnis zur aktiven Zelle die übrigen Zellen verschoben werden sollen. Die<br />
Richtung wird über die integrierten Konstanten XLDOWN und XLTORIGHT gesteuert.<br />
ActiveCell.EntireRow.Insert<br />
ActiveCell.EntireColumn.Insert<br />
ActiveCell.Insert Shift:= xlToRight<br />
Die erste Anweisung fügt eine Zeile, die zweite eine Spalte ein. Es gilt die in <strong>Excel</strong> allgemein<br />
geltende Richtung <strong>–</strong> Zeilen werden oberhalb der aktiven, Spalten links von der aktiven<br />
eingefügt.<br />
Die dritte Anweisung fügt eine Zelle ein, die übrigen Zellen werden nach rechts verschoben<br />
(Vorsicht: der Versatz geschieht nur in der Zeile der aktiven Zelle).<br />
10.3 Zuweisen von Zellinhalten<br />
Das schon mehrfach vorgestellte Zuweisen von Inhalten an Zellen wird <strong>mit</strong> Hilfe der VALUE <strong>–</strong><br />
Eigenschaft realisiert. Diese Eigenschaft ist für ein RANGE <strong>–</strong> Objekt voreingestellt, d.h., wird<br />
bei Zuweisungen von Werten an Zellen die Eigenschaft nicht genannt, so wird VALUE<br />
automatisch angenommen.<br />
ActiveCell.Value = 233<br />
Range("B3").Value = "Hagen"<br />
Range("B3:D3").Value = 75.25<br />
Range("B3").Value = "31.12.99"<br />
aber auch:<br />
ActiveCell = 233<br />
Range("B3") = "Hagen"<br />
Range("B3:D3") = 75.25<br />
Range("B3") = "31.12.99"<br />
➨ Wird, wie in der letzten Anweisung ein Datum in der dort verwendeten Form übergeben,<br />
so wird es in die Zelle als Zeichenfolge übernommen. Für die Übergabe als Datumswert muß<br />
die Funktion CDATE benutzt werden: