Code zu umständlich?
Gegga
Habe eine etwas grössere Tabelle und eine UF die diese Abfrägt und zwar folgendermaßen:
Private Sub CB_LIEFERANT_Change()
Selection.AutoFilter Field:=1, Criteria1:="=*" & CB_LIEFERANT.Value & "*"
ZEILE = Range("C3:C65536").Cells.SpecialCells(xlCellTypeVisible).Row
With Worksheets("LIEFERÜBERSICHT")
If Cells(ZEILE, 11) = "X" Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
If Cells(ZEILE, 12) = "X" Then
CheckBox2.Value = True
Else
CheckBox2.Value = False
End If
If Cells(ZEILE, 13) = "X" Then
CheckBox3.Value = True
Else
CheckBox3.Value = False
End If
If Cells(ZEILE, 14) = "X" Then
CheckBox4.Value = True
Else
CheckBox4.Value = False
End If
If Cells(ZEILE, 15) = "X" Then
CheckBox5.Value = True
Else
CheckBox5.Value = False
End If
End With
End Sub
mein Problem:
If Cells(ZEILE, 11) = "X" Then
CheckBox1.Value = True
Else
CheckBox1.Value = False
End If
diesen Code müsste ich jetzt für 105 Chechboxen kopieren und ändern.
Da gibts doch sicherlich ne elegantere Lösung oder?
Nummern der Checkboxen sind fortlaufend von 1-105
Spaltenzahlen ebenfalls von 11- 116
Kann mir da jemand helfen?
Schönes WE
Gruss Gegga
Anzeige