Hallo Forum
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“ bzw. in der Object definierung, also in „TBox“.
Da zb. TBox.Left = 200 klappt
Wie kann ich TBox dazu überreden, das der Inhalt von Eigenschaft akzeptiert?
Ich bedanke mich für eurer Bemühen
Eugen
Hallo Forum
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“ bzw.
in der Object definierung, also in „TBox“.
Da zb. TBox.Left = 200 klappt
mit deiner Vermutung liegst Du ganz richtig. Das was Du als eigenschaft definierst ist keine Variable, sondern ein Methodenaufruf einer Klasse. Welche kann ich Dir leider nicht sagen. So intensiv hab ich mich mit VBA noch nicht beschäftigt.
Du wirst also um einen aufruf a’la TBox.Value nicht ohne weiteres drumherumkommen.