Thema: CheckBox-Werte eines Blattes in ein anderes Blatt eintragen

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox