Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zur Cells-Eigenschaft

In diesem Beispiel wird die Schriftgröße der Zelle C5 in Sheet1 auf 14 Punkt festgelegt.

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14

In diesem Beispiel wird die Formel in der ersten Zelle in Sheet1 gelöscht.

Worksheets("Sheet1").Cells(1).ClearContents

In diesem Beispiel wird die Schriftart für alle Zellen in Sheet1 auf Arial, 8 Punkt, festgelegt.

With Worksheets("Sheet1").Cells.Font
    .Name = "Arial"
    .Size = 8
End With

Das folgende Beispiel bearbeitet in einer Schleife die Zellen A1:J4 in Sheet1. Hat eine dieser Zellen einen Wert, der kleiner ist als 0,001, wird dieser Wert durch Null (0) ersetzt.

For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex

In diesem Beispiel wird die Schrift der Zellen A1:C5 in Sheet1 auf kursiv gesetzt.

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

Dieses Beispiel durchsucht die Spalte "myRange", die Daten enthält. Wenn eine Zelle denselben Wert besitzt wie die darüber liegende Zelle, wird die Adresse der Zelle mit den doppelten Daten angezeigt.

Set r = Range("myRange")
For n = 1 To r.Rows.Count
    If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
        MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
    End If
Next n