Schleife mit Checkbox auf Multiseite

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von petaod.

    Schleife mit Checkbox auf Multiseite

    Hallo liebe Leute,

    ich bin eine absolute VBA Anfängerin und hoffe, ihr könnt mir weiterhelfen.

    Ich habe eine Multiseite mit zwei Seiten gemacht.
    Auf der zweiten Seite, kann man 101 verschiedene Checkboxen anklicken.
    Wenn man dann auf eine Befehlsfläche drückt, sollen
    alle Captions der angeklickten Checkboxen einzeln in Spalten eingetragen werden.
    (Zwischen den Spalten soll auch nichts leer bleiben, wenn eine Checkbox nicht angeklickt wurde).

    So weit so gut:

    Ich habe bisher folgendes gemacht (siehe unten) und komme nicht mehr weiter :-(((
    Kann mir jemand einen Tipp geben?

    Liebe Grüße
    Karina


    Private Sub CommandButton2_Click()

    Dim i As Byte
    Dim leerezeile As Integer

    leerezeile = Worksheets("Produkt").Range("B10000").End(xlUp).Row + 1

    For i = 1 To 101
    if ("cb"&i).Value = True
    Then
    Worksheets("Produkt").Cells(leerezeile, 1 + i) = ("cb" & i).Value
    Next

    End Sub