In einer Tabelle ist eine Textbox welche mit Visible ein und aus geblendet wird.
Jetzt möchte ich in Worksheet_SelectionChange die Eigenschaften der Textbox einrichten.
Diese 42 Eigenschaften sind in einem Tabellenblatt eingetragen.
Daneben die entsprechenden Werte.
Tabelle1.xls
A B
AutoLoad false
AutoSize false
AutoTab false
AutoWordSelect true
.....
Usw.
Jetzt möchte ich in einer Schleife alle Eigenschaften der Textbox1 zuweisen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
Dim TBox As Object
Dim Eigenschaft As Variant
Dim Wert As Variant
Sheets("Tabelle1").Select
Set TBox = ActiveSheet.Shapes("Textbox1")
For x = 1 To 42
Eigenschaft = Cells(x, 1)
Wert = Cells(x, 2)
TBox.Eigenschaft = Wert 'Da ist der Fehler !
Next x
End Sub
Ich glaube der Fehler liegt in der Variable „Eigenschaft“.
Wie kann ich TBox dazu überreden, das der Inhalt von Eigenschaft akzeptiert?
Ich bedanke mich für eurer Bemühen
Eugen