Objekte über FOR-Schleife ansprechen...
02.10.2003 13:00:56
Manuel
Ich habe da etwas, wo ich schon länger nach einer Lösung suche; kann mir villeicht jemand von den Experten hier helfen?
Ich habe 16 Label in einem User Form. Diese Label heissen m1label, m2label, ..., m16label.
Jetzt möchte ich über eine FOR-Schliefe diesen Labeln eine neue Caption zuweisen - so in der Form
Sub run()
for i = 1 to 16
m(i)label.caption = thisworkbook.sheets("Sheet").Range("C" & i).Value
next i
End Sub
Dieser Code ist nur als Beispiel der Problemstellung zu verstehen!
Ich habe u.a. schon versucht, ein Unterprogramm zu schreiben, das die Änderung der Caption-Eigenschaft vornehmen soll; sieht ungefähr so aus:
Sub setcaption(label As Object, fieldvalue As String)
label.caption = fieldvalue
End Sub
der Aufruf war dann so gedacht:
Sub run()
for i = 1 to 16
setcaption "m" & i & "label", thisworkbook.sheets("Sheet").Range("C" & i).Value
next i
End Sub
Leider bemängelt er dann, das ich kein Objekt übergebe...
Wer kann mir da weiter helfen???
Anzeige