Caption in Checkboxen
30.12.2006 17:21:49
Lorenz
So wie Untenstehend ist jedesmal Laufzeitfehler 438 eingetreten
Ich wollte nur den Text welcher in AA166:AA166 steht, in die jeweilige Checkbox(Cbx1, Cbx2, Cbx3.....usw) eintragen. Funzt aber nicht!
Private Sub Worksheet_Activate()
Dim iCb As Integer
For iCb = 1 To 166
Sheets(1).Controls("Cbx" & iCb).Caption = Cells(iCb, 27).Value
Next
End Sub
was mach ich verkerhrt? Hat vielleicht jemand ´nen Tipp?
Danke
Lorenz
Anzeige