Objekteigenschaften per Schleife
12.09.2007 16:29:00
Rudiator
habe versucht mein Problem hier im Archiv ausfindig zu machen, bin aber leider nicht fuendig geworden.
Ich habe in einer Exceltabelle in einer Spalte die Objektbezeichnungen (z.B. "Application.CommandBars(1).Controls(1)"), in einer zweiten die jeweils zu ändernde Eigenschaft hinterlegt (z.B. Caption, ControlTipText).
Nun würde ich gerne die Liste der Objekte per Schleife durchgehen und die jeweils dazugehörige Eigenschaft anpassen:
For d = 6 To 900
With ThisWorkbook.Sheets("Sprache").Cells(d, 3).Value
.ThisWorkbook.Sheets("Sprache").Cells(d, 4).Value = ThisWorkbook.Sheets("Sprache").Cells(d,spalte).Value
End With
Next d
Mir is bewusst, dass ich mit "ThisWorkbook. .... .Value" lediglich eine Zeichenfolge auslese. Mir fehlt halt der Schritt der Umwandlung dieser Zeichfolge in ein Objekt sowie dass dem Objekt auch die entsprechende Eigenschaft zugewiesen werden kann.
'spalte ist eine Variable fuer den Spaltenindex aus der die Eigenschaft des Objektes geholt wird
'Objekte sind Multipages, CommandButtons, Labels ...