Gruppe
Dialog
Problem
Bei jeder Änderung der CheckBox-Wertedes aktiven Blattes sollen die aktivierten CheckBox-Aufschriften im Bereich A1:A5 der Tabelle2 eingetragen werden.
ClassModule: Tabelle1
Private Sub CheckBox1_Click()
Call Eintragen
End Sub
Private Sub CheckBox2_Click()
Call Eintragen
End Sub
Private Sub CheckBox3_Click()
Call Eintragen
End Sub
Private Sub CheckBox4_Click()
Call Eintragen
End Sub
Private Sub CheckBox5_Click()
Call Eintragen
End Sub
StandardModule: Modul1
Sub Eintragen()
Dim iCounter As Integer, iRow As Integer
With Worksheets("Tabelle2")
.Range("A1:A5").ClearContents
For iCounter = 1 To 5
If Worksheets("Tabelle1") _
.OLEObjects(iCounter).Object.Value = True Then
iRow = iRow + 1
.Cells(iRow, 1).Value = _
Worksheets("Tabelle1") _
.OLEObjects(iCounter).Object.Caption
End If
Next iCounter
End With
End Sub