VBA

Sub Prozedurname()

End Sub

Application.ScreenUpdating = False

Sheets("tabellenblatt").Activate

Range("A1").Select

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

'Datentyp Ganzzahl
Dim x As Integer

'Datentyp Dezimalzahl
Dim y As Double

'Datentyp Zeichenkette
Dim z As String

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 

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

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

Do Until [Bedingung]
   Anweisungen
Loop

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


Do While [Bedingung]
   Anweisungen
Loop

'Beispiel