Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Ein VBA-Programm in Excel
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
2.1.2 Makros<br />
Der e<strong>in</strong>fachste Weg, sich e<strong>in</strong>en ersten <strong>E<strong>in</strong></strong>blick <strong>in</strong> die <strong>VBA</strong>-<br />
<strong>Programm</strong>ierung zu verschaffen, ist der, dass man sich die Makro-<br />
<strong>Programm</strong>ierung e<strong>in</strong>mal näher anschaut.<br />
Im folgenden Beispiel wird per Makro-Recorder (Aufruf über<br />
"ENTWICKLERTOOLS/MAKRO AUFZEICHNEN") der Zellenbereich<br />
"A1:C2" mit Inhalt gefüllt:<br />
Abbildung 1<br />
Makro MwSt<br />
Die Schaltfläche Bearbeiten<br />
öffnet die Entwicklungsumgebung<br />
und man gelangt<br />
direkt <strong>in</strong> den Quellcode des<br />
Makros<br />
Das aufgezeichnete Makro lässt sich nun nachträglich weiter bearbeiten.<br />
Durch den Aufruf der Schaltfläche Bearbeiten ersche<strong>in</strong>t allerd<strong>in</strong>gs<br />
nicht mehr der Makro-Recorder, sondern man hat den <strong>VBA</strong>-Quellcode<br />
<strong>in</strong> der Entwicklungsumgebung vor sich. Für obiges Beispiel wurden folgende<br />
Zeilen generiert:<br />
Sub MwSt()<br />
Range("A1").Select<br />
ActiveCell.FormulaR1C1 = "MwSt"<br />
Range("B1").Select<br />
ActiveCell.FormulaR1C1 = "Brutto"<br />
Range("C1").Select<br />
ActiveCell.FormulaR1C1 = "Netto"<br />
Range("A2").Select<br />
ActiveCell.FormulaR1C1 = "0.19"<br />
Range("B2").Select<br />
ActiveCell.FormulaR1C1 = "50"<br />
Range("C2").Select<br />
ActiveCell.FormulaR1C1 = "=RC[-1]*(1+RC[-2])"<br />
Range("A1:C1").Select<br />
'Name des Makros<br />
'Netto-Berechnung <strong>in</strong><br />
Zelle C2<br />
List<strong>in</strong>g 1<br />
Makro MwSt<br />
Die <strong>in</strong> grün gehaltenen Bemerkungen<br />
s<strong>in</strong>d Kommentare<br />
8