Filter mit Check Boxen steuern

[ExcelFoley69]

Hallo liebe Community,
ich würde gerne einen Filter in meinem Sheet über Checkboxen steuern. 
Mein Programm erzeugt Smart Nodes mit verschiedenen Textinhalten. Jetzt hätte ich gerne dass je nachdem welche Checkbox geklickt ist, diese Werte in der Smart Node angezeigt werden
hier ein kleiner Ausschnitt aus dem Code:

Code:

While w = 1
    For i = 1 To 50
    If Cells(i, 2).Value = "MIT" Then
            Set QNode = QNode_TL(w).AddNode(msoSmartArtNodeBelow)
            QNode.TextFrame2.TextRange.Text = ss.Cells(i, 5) + " " + ss.Cells(i, 6)
    End If
    Next i
w = w + 1
Wend

Die Werte stehen in den Zellen (i,3) bis (i,7).  Falls jetzt die Box 3 , 4, und 7 geklickt wäre, sollte dann irgendwie dieser Befehl in meiner Schleife stehen:

Code:

QNode.TextFrame2.TextRange.Text = ss.Cells(i, 3) + " " + ss.Cells(i, 4) + " " + ss.Cells(i,6)

am besten noch mit jeweils einem Absatz dazwischen.
Vielen Dank im voraus
Liebe Grüße
Excel

[Kuwer]

Hallo,

Code:

For i = 1 To 50
    For j = 3 To 7
      If Tabelle4.OLEObjects("CheckBox" & j).Object.Value Then
        strT = strT & " " & Cells(i, j).Value
      End If
    Next j
    QNode_TL(w).AddNode(msoSmartArtNodeBelow).TextFrame2.TextRange.Text = Mid(strT, 2)
  Next i

Gruß Uwe