Dies ist eine alte Version des Dokuments!
VBA
Sub-Prozeduren
Sub Prozedurname() End Sub
Misc
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)
Variablen deklarieren
'Datentyp Ganzzahl Dim x As Integer 'Datentyp Dezimalzahl Dim y As Double 'Datentyp Zeichenkette Dim z As String
Zuweisung
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
Verzweigungen
'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
Schleifen
For...Next
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...Loop
Do Until [Bedingung] Anweisungen Loop 'Beispiel Dim zaehler As Integer Do Until zaehler = 10 zaehler = zaehler + 1 Loop Do While [Bedingung] Anweisungen Loop 'Beispiel zaehler = 10 Do Until zaehler = 0 zaehler = zaehler - 1 Loop