Syntax bei ChBox in Schleife
09.02.2009 14:48:47
Jörg
hab da ein ganz banales Syntaxproblem, weil ich in VBA nur wenig Kenntnisse habe
Beim Aktivieren eines Blattes sollen sich diverse Chexkboxen ihre Beschriftung aus einem anderen Blatt einlesen. "Zu Fuß" würde das so aussehen:
ChBx_LiefOrt1.Caption = Worksheets("Tab1").Range("LiefOrt1").Value
ChBx_LiefOrt2.Caption = Worksheets("Tab1").Range("LiefOrt2").Value
ChBx_LiefOrt3.Caption = Worksheets("Tab1").Range("LiefOrt3").Value
ChBx_LiefOrt4.Caption = Worksheets("Tab1").Range("LiefOrt4").Value
usw... (klappt ja auch)
Das möchte ich abändern in
For i = 1 To 10
ActiveSheet.Controls("ChBx_LiefOrt" & i).Caption = Worksheets("Tab1").Range("LiefOrt" & i).Value
Next i
Hinterm Gleichheitszeichen ist alles ok, aber der Teil vor dem Gleichheitszeichen wird immer bemeckert - was mache ich falsch in der Schreibweise?
Danke für einen Tip...
Jörg