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
'Zahl zu Zeichenkette umwandeln
CStr(aktuelleZeile)
'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
If CheckBox1.Value = True Then
'...
Else
'...
End If
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
Do Until [Bedingung]
Anweisungen
Loop
'Beispiel
Dim zaehler As Integer
Do Until zaehler = 10
zaehler = zaehler + 1
Loop
Do While [Bedingung]
Anweisungen
Loop