Textbox: Controlsource über Variable zuweisen
03.11.2003 11:09:59
iven_s
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?
Anzeige