====== Tabellenkalkulation - Visual Basic (Makros) ======

===== Makros =====
==== Was ist ein Makro? ====
Unter Makros versteht man eine Softwarekomponente, die eine Folge aus Anweisungen zusammenfasst und diese gegebenefalls ausgeführt. 
\\ Alle Anweisungen des Makros werden automatisch an der Stelle ausgeführt, wo mit der Aufzeichnung begonnen wurde.\\ \\ 

==== Makro aufzeichnen ====
Um ein Makro aufzuzeichnen benötigt man den Makro - Recorder, der unter  EXTRAS - MAKRO - AUFZEICHNEN zu finden ist.

{{:inf:k6inf:tk:visual_basic-capture-MakroR.gif|}}

Wenn die Aufzeichnung gestartet ist, muss sie wieder beendet werden, indem man bei dem erscheinenden Zusatzfenster auf AUFZEICHNUNG BEENDEN geht.
\\ \\ 
==== Makro ausführen ====
  * Unter Menü EXTRAS - MAKRO - AUSFÜHREN
  * Über eine definierte TASTENKOMBINATION
  * Einen SCHALTFLÄCHE kreieren und dieser das entsprechende Makro ZUWEISEN
{{:inf:k6inf:tk:visual_basic-capture-Schaltflaeche.gif|}}
  * ein SYMBOL in der Symbolleiste unter ANSICHT - SYMBOLLEIST - ANPASSEN / Befehle - Makros
{{:inf:k6inf:tk:visual_basic-capture-SYM_Befehle.gif|}}
 
 

\\ \\ 
===== Visual Basic for Applications =====
==== Visual Basic Editor ====
EXTRAS - MAKROS - VISUAL BASIC EDITOR oder ALT + F11
\\ \\ 

==== Objekte und Hierachie ====
  - APPLICATION - Excel Fenster
  - WORKBOOK - Excel Arbeitsmappe
  - WORKSHEET - Tabellenblatt
  - RANGE - Zellenbereich (eine oder mehreren Zellen)
\\ 
==== Prozedur ====
Sind eine Folge von Anweisungen, die bestimmte Aufgaben wiederverwendbar machen.
  Sub Prozedurname ()
  ...
  Anweisung(en)
  ...
  End Sub
\\ 
==== Kommentare ====
Kommentare werden mit einem //einfachen Hochkomma// begonnen.

  ' Hier wird die Gesamtsumme der Mitarbeiter errechnet
  Sub GesamtsummeMA ()
  ...
\\ 
==== Formeleintrag ====
**Formula** - Formel umfasst einen //absoluten Bereich//
  ... Formula = "=SUM(A1:A20)"
  ... Formula = "=AVERAGE(A1:A20)"
  
**FormulaR1C1** - Formel umfasst einen //relativen Bereich//\\ 
R ... Row    C ... Column
  ... FormulaR1C1 = "=SUM(R[-20]C[-1]:R[-1]C[-1])"
  ... FormulaR1C1 = "=AVERAGE(R[-20]C[-1]:R[-1]C[-1])"

**...Local** - würde Formeln in //deutscher Sprache// zulassen
  ... FormulaLocal = "Summe(A1:A20)"
  ... FormulaR1C1Local = "Mittelwert(R[-20]C[-1]:R[-1]C[-1])"
\\ 
== Variablentypen ==

Die gebräuchlichen Variablentypen:

<table border=0 cellpadding=3 cellspacing=2>
  <tr>

    <td><b>Variablentyp</b></td>
    <td align="center"><b>Namenskonvention</b></td>
    <td><b>Res.Speicherplatz</b></td>
    <td align="center"><b>Kurzbezeichnung</b></td>
    <td><b>Beschreibung</b></td>
  </tr>

  <tr>
    <td>Boolean</td>
    <td align="center">bln</td>
    <td>16 Bit, 2 Bytes</td>
    <td align="center">&nbsp;</td>
    <td>&nbsp;WAHR (-1) oder FALSCH&nbsp; (0)</td>

  </tr>
  <tr>
    <td>Byte</td>
    <td align="center"> </td>
    <td>8 Bit, 1 Byte</td>
    <td align="center">&nbsp;</td>
    <td>0 ... +255</td>

  </tr>  <tr>
    <td>Integer</td>
    <td align="center">int</td>
    <td>16 Bit, 2 Bytes</td>
    <td align="center">%</td>
    <td>-32.768 ... +32.767</td>

  </tr>
  <tr>
    <td>Long</td>
    <td align="center">lng</td>
    <td>32 Bit, 4 Bytes</td>
    <td align="center">&amp;</td>
    <td>-2.147.483.648 ... +2.147.483.647</td>

  </tr>
  <tr>
    <td>Currency</td>
    <td align="center">cur</td>
    <td>&nbsp;</td>
    <td align="center">@</td>
    <td>-922.337.203.685.477,5808 ... +922.337.203.685.477,5807</td>

  </tr>
  <tr>
    <td>Single</td>
    <td align="center">sng</td>
    <td>32 Bit, 4 Bytes</td>
    <td align="center">!</td>
    <td><math>\pm</math>3,402823E38 ... <math>\pm</math>1,401298E-45 und 0</td>

  </tr>
  <tr>
    <td>Double</td>
    <td align="center">dbl</td>
    <td>64 Bit, 8 Bytes</td>
    <td align="center">#</td>
    <td>-1.79769313486231E308 bis -4,94065645841247E-324 für negative Werte und von 4,94065645841247E-324 bis 1,79769313486232E308 für positive Werte und 0</td>
  </tr>
  <tr>
    <td>Date</td>
    <td align="center">dat</td>
    <td>64 Bit, 8 Bytes</td>
    <td align="center">&nbsp;</td>
    <td>Datum und Zeit</td>

  </tr>
  <tr>
    <td>String</td>
    <td align="center">str</td>
    <td>&nbsp;</td>
    <td align="center">$</td>
    <td>Zeichenfolgen</td>

  </tr>
  <tr>
    <td>Object</td>
    <td align="center">obj</td>
    <td>32 Bit, 4 Bytes</td>
    <td align="center">&nbsp;</td>
    <td>Objekte</td>

  </tr>
  <tr>
    <td>Variant</td>
    <td align="center">var</td>
    <td>128 Bit, 16 Bytes</td>
    <td align="center">&nbsp;</td>
    <td>Alle Typen, Voreinstellung</td>

  </tr>
  <tr>
    <td>benutzerdefinierter Typ</td>
    <td align="center">typ</td>
    <td>&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td>ein oder mehrere Elemente jeden Datentyps. Der Aufbau wird mit einer <TT>Type</TT>-Anweisung deklariert</td>

  </tr>
  <tr>
    <td>Objekttyp</td>
    <td align="center">&nbsp;</td>
    <td>&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td>Objekte wie Workbook, Range</td>
  </tr>

</table>
\\ 
==== IF Anweisung ====
Bei der IF ... THEN ... ELSE Anweisung muss die Bedingung TRUE oder FALSE entsprechen, damit die nachstehenden Anweisungen durchgeführt werden können.

  IF Bedingung THEN
  Anweisung1
  ELSE
  Anweisung2
  EndIF
\\ 
==== Messagebox (MsgBox) ====
Erzeugt eine gewünschte Meldung, in einem Dialogfeld, auf dem Bildschirm an!

  MsgBox(prompt[, buttons][, title]

prompt ... Ein String der als Meldung im Dialogfeld angezeigt wird\\  
buttons ... Anzahl und Art der gewünschten Schaltfläche am Dialogfeld\\  
title ... Sting der den Titel des Dialogfeldes bestimmt\\