Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zur If...Then...Else-Anweisung

Dieses Beispiel durchläuft die Zellen A1:D10 in Sheet1 in einer Schleife. Wenn eine der Zellen einen Wert unter 0,001 besitzt, ersetzt der Code den Wert mit 0 (Null).

For Each c in Worksheets("Sheet1").Range("A1:D10")
    If c.Value < .001 Then
        c.Value = 0
    End If
Next c

In diesem Beispiel wird im Bereich "Testbereich" eine Schleife durchlaufen und anschließend die Anzahl der leeren Zellen des Bereichs angezeigt.

numBlanks = 0
For Each c In Range("testRange")
    If c.Value = "" Then
        numBlanks = numBlanks + 1
    End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range."

In diesem Beispiel wird als Standardschriftart Geneva (bei Apple Macintosh) oder Arial (in Windows) festgelegt.

If Application.OperatingSystem Like "*Macintosh*" Then
    Application.StandardFont = "Geneva"
Else
    Application.StandardFont = "Arial"
End If