meine Checkbox ist irgendwie immer aktiviert. Zum Hintergrund: Ich habe eine Listbox, wenn in dieser Listbox ein Treffer makiert wird, öffnet sich eine neue Userform (über einen Commandbutton)mit Hintergrundinformationen zu diesem Treffer.
Und die Checkbox1 soll nur aktiviert werden, wenn der Treffer in Tabelle 1 vorkommt und in der gleiche Zeile die Spalte 16 nicht leer ist.
Allerdings ist die Checkbox immer aktiviert, kann mir dabei jdm weiterhelfen?
lastrow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
For n = 1 To lastrow
' von Zeile 1 bis letzte Zeile (lastrow)
If Worksheets("Tabelle1").Cells(n, 2).Value = Suche And Worksheets("Tabelle1").Cells(n, 16) " _
" Then 'wenn das angeklickte Wort in der Tabelle "Tabelle1" in Spalte 2 vorkommt und Spalte 16 _
nicht leer
userform_1.CheckBox_1.Value = True 'dann aktiviere Checkbox "1" in Userform "1"
Else
userform_1.CheckBox_1.Value = False ' sonst deaktiviere Checkbox "1" in Userform "1"
End If
Für eure Hilfe bin ich sehr dankbarViele Grüße