Clever-Excel-Forum

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

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

ExcelFoley69

Kuwer