31.01.2013 Aufrufe

Grundlagen der Programmierung mit VBA Visual Basic for

Grundlagen der Programmierung mit VBA Visual Basic for

Grundlagen der Programmierung mit VBA Visual Basic for

MEHR ANZEIGEN
WENIGER ANZEIGEN

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.

2.1.2 Der generierte <strong>VBA</strong>-Code<br />

Beim Aufzeichnen wurde im verborgenen <strong>VBA</strong>-Code erzeugt. Im <strong>Visual</strong> <strong>Basic</strong> Editor (VBE) kann er<br />

angeschaut und weiter modifiziert werden. VBE ist ein eigenständiges Programm, das unabhängig<br />

von Excel läuft.<br />

VBE starten. Extras -> Makro -> <strong>Visual</strong> <strong>Basic</strong> Editor o<strong>der</strong> Alt F11<br />

Der <strong>Visual</strong> <strong>Basic</strong> Editor öffnet sich in einem neuen Fenster. Im linken Teil ist <strong>der</strong> Project Explorer<br />

sichtbar. Es ist das Excel-Projekt <strong>mit</strong> allen seinen Elementen dargestellt. Es sind dies die Mappe<br />

selbst, drei Tabellenblätter sowie unter Modules ein Programm-Modul "Modul1", in dem <strong>der</strong> generierte<br />

Code gespeichert wurde.<br />

Code anzeigen. "Modul1" auswählen und Ansicht -> Code bzw. F7 o<strong>der</strong> Doppelklick auf "Modul1".<br />

Es öffnet sich im rechten Teil des VBE <strong>der</strong> Programmeditor <strong>mit</strong> dem Programm-Code. Im Programmeditor<br />

kann <strong>der</strong> Programm-Code auch bearbeitet werden. Das Makro "rot_an" müsste ungefähr<br />

folgen<strong>der</strong>maßen lauten:<br />

Sub rot_an()<br />

' rot_an Makro<br />

' Makro am 11.03.99 von bspc19 aufgezeichnet<br />

'<br />

ActiveSheet.Shapes("Oval 1").Select<br />

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10<br />

Selection.ShapeRange.Fill.Visible = msoTrue<br />

Selection.ShapeRange.Fill.Solid<br />

Range("E6").Select<br />

ActiveCell.FormulaR1C1 = "an"<br />

Range("E6").Select<br />

Selection.Font.ColorIndex = 3<br />

End Sub<br />

Offensichtlich besteht <strong>der</strong> Code ausschließlich aus einer Abfolge von Befehlen, die Objekte-Methoden<br />

anwenden (z.B. Range("E6").Select) o<strong>der</strong> Objekt-Eigenschaften modifizieren (z.B. Selection.Font.ColorIndex<br />

= 3). Ohne weiteres Zutun ist ein objektorientierter Code entstanden, <strong>der</strong><br />

durch die Ereignisse "Schaltflächen anklicken" gesteuert wird.<br />

9

Hurra! Ihre Datei wurde hochgeladen und ist bereit für die Veröffentlichung.

Erfolgreich gespeichert!

Leider ist etwas schief gelaufen!