Textbox: Controlsource über Variable zuweisen

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

Betrifft: Textbox: Controlsource über Variable zuweisen
von: iven_s
Geschrieben am: 03.11.2003 11:09:59

Hallo,
ich möchte die ControlSource Eigenschaft jeder Textbox in einem Userform durch eine Variable bestimmen, ähnlich dem folgenden Code für die Value-Eigenschaft.
Dieser kann aber nicht so ohne weiteres übernommen werden.


Sub test()
Dim zeile, spalte As Integer
Dim mytb As Control
spalte = 1
zeile = 1
For Each mytb In controls
If Left(mytb.Name, 5) = "TextB" Then
mytb.Value = Cells(zeile, spalte)
mytb.ControlSource=?????????
spalte = spalte + 1
Else
End If
Next
End Sub


Weiß jemand weiter?
Bild


Betrifft: AW: Textbox: Controlsource über Variable zuweisen
von: Klaus Schubert
Geschrieben am: 03.11.2003 18:24:40

Hallo iven_S,

mir ist nicht ganz klar,wie du das meinst,
aber vielleicht ist dies ja für dich die Lösung:

mytb.ControlSource = Cells(zeile, spalte).Address

Vorher eingelesene Werte mit der Value-Eigenschaft gehen so allerdings verloren,
da du jetzt die Werte der verknüpften Zellen angezeigt bekommst.
Wenn du aber Text von anderen Zellen als Default-Werte einlesen willst,
so lese diese erst ein, nachdem du die Adresse für mytb.ControlSource vergeben hast,
dass sieht dann in etwa so aus



Sub test()
Dim zeile, spalte As Integer
Dim mytb As Control
spalte = 1
zeile = 1
For Each mytb In Controls
If Left(mytb.Name, 5) = "TextB" Then
mytb.ControlSource = Cells(zeile, spalte).Address 'Verknüpfen
mytb.Value = Cells(1, 5) 'Wert von anderer Zelle einlesen
spalte = spalte + 1
Else
End If
Next
End Sub



Gruß Klaus


Bild


Betrifft: Danke! Funktioniert.
von: iven_s
Geschrieben am: 04.11.2003 13:16:38

.


Bild

Beiträge aus den Excel-Beispielen zum Thema " Textbox: Controlsource über Variable zuweisen"