VBA

Sub Prozedurname()

End Sub

Application.ScreenUpdating = False

Sheets("tabellenblatt").Activate

'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

'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