Textbox-Eigenschaft in Variable

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Textbox-Eigenschaft in Variable
von: Euge
Geschrieben am: 02.06.2002 - 22:04:14

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“.
Wie kann ich TBox dazu überreden, das der Inhalt von Eigenschaft akzeptiert?
Ich bedanke mich für eurer Bemühen
Eugen


nach oben   nach unten

Ich bin mir nicht 100% sicher, aber...
von: Ramses
Geschrieben am: 02.06.2002 - 22:21:10

Hallo Eugen,

... meines Wissens nach, sind diese Eigenschaften auf ein Textbox-Object in einer Tabelle über ein Makro nicht zuweisbar.

Gruss Rainer


nach oben   nach unten

Re: Ich bin mir nicht 100% sicher, aber...
von: L.Vira
Geschrieben am: 03.06.2002 - 09:17:52

Das geht in Tabellenblättern n i c h t !

nach oben   nach unten

Doch es geht
von: Eugen
Geschrieben am: 04.06.2002 - 06:54:25

Hallo Rainer
Ohne Objektzuweisung klappt es ja.
Zeichne eine Textbox in die Tabelle
und füge in VBA ein:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Left = 180
TextBox1.Height = 200
TextBox1.MultiLine = True
TextBox1.AutoLoad = True
TextBox1.AutoSize = True
TextBox1.AutoTab = True
TextBox1.BackColor = RGB(15, 15, 15)
TextBox1.Width = 200
End Sub

Beim 1. Klick verändert sich die Texbox1.
Mir geht es darum den Namen der Textbox und die Funcion in einer Wariabl zu übergeben.
MFG
Eugen


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Textbox-Eigenschaft in Variable"