Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

CheckBox-Werte eines Blattes in ein anderes Blatt eintragen

Gruppe

CheckBox

Problem

Bei jeder Änderung der CheckBox-Wertedes aktiven Blattes sollen die aktivierten CheckBox-Aufschriften im Bereich A1:A5 der Tabelle2 eingetragen werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

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