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
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