Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Beispiel zur For...Next-Anweisung

In diesem Beispiel wird die Anzahl der markierten Spalten in Sheet1 angezeigt. Falls mehr als ein Bereich markiert ist, werden die Bereiche nacheinander in einer Schleife bearbeitet.

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
    MsgBox "The selection contains " & _
        Selection.Columns.Count & " columns."
Else
    For i = 1 To areaCount
        MsgBox "Area " & i & " of the selection contains " & _
            Selection.Areas(i).Columns.Count & " columns."
    Next i
End If

In diesem Beispiel wird ein neues Tabellenblatt erstellt. In die erste Spalte dieses Tabellenblatts wird anschließend eine Liste der Tabellenblattnamen der aktiven Arbeitsmappe eingefügt.

Set newSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
    newSheet.Cells(i, 1).Value = Sheets(i).Name
Next i

In diesem Beispiel wird jedes zweite Element im ersten Listenfeld von Sheet1 markiert.

Dim items() As Boolean
Set lbox = Worksheets("Sheet1").ListBoxes(1)
ReDim items(1 To lbox.ListCount)
For i = 1 To lbox.ListCount
    If i Mod 2 = 1 Then
        items(i) = True
    Else
        items(i) = False
    End If
Next
lbox.MultiSelect = xlExtended
lbox.Selected = items