====== VBA ======

===== Sub-Prozeduren =====
<code>
Sub Prozedurname()

End Sub
</code>

===== Misc =====

<code>
Application.ScreenUpdating = False

Sheets("tabellenblatt").Activate

Range("A1").Select

letzte_Zeile_in_Spalte_eins = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'Zahl zu Zeichenkette umwandeln
CStr(aktuelleZeile)

</code>
===== Variablen deklarieren =====
<code>
'Datentyp Ganzzahl
Dim x As Integer

'Datentyp Dezimalzahl
Dim y As Double

'Datentyp Zeichenkette
Dim z As String
</code>

==== Zuweisung ====
<code>
x = 10
y = 42.77
z = "Hallo"

a = b * c
b = 10 * d

d = Range("A1").Value

'Wert oder Formel einer Zelle zuweisen
aktuelleZeile = ActiveCell.Row
ActiveSheet.Range("A" + CStr(aktuelleZeile)) = a * 2 
</code>

===== Verzweigungen =====
<code>
'Beispiel
If CheckBox1.Value = True Then
   Range("F:F").EntireColumn.Hidden = True
Else
   Range("F:F").EntireColumn.Show = False
End If


If CheckBox1.Value = True Then
     '...
    Else
     '...
    End If
</code>

===== Schleifen =====

==== For...Next ====
<code>
Dim i As Integer
For i = 1 To 10
    Debug.Print i
Next

'Beispiel
For i = 4 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row Step 1

Next
</code>

==== Do...Loop ====
<code>
Do Until [Bedingung]
   Anweisungen
Loop

'Beispiel
Dim zaehler As Integer
Do Until zaehler = 10
   zaehler = zaehler + 1
Loop


Do While [Bedingung]
   Anweisungen
Loop


</code>