Textbox-Name festlegen
01.09.2003 10:23:03
Jens
ich habe ein Problem bei dem ich eure Hilfe brauche.
Mit nachfolgendem Code füge ich eine Textbox in TB ein, welcher ich den Namen "Pflegehinweis" geben möchte. Wie muß ich da programmieren?
Code:
Sub Pflegeanweisung_Silikonfuge()
ActiveSheet.Unprotect '("")
Dim txtBox As OLEObject
Dim rng As Range
Dim iCounter As Integer
'If Range("B6").FormulaR1C1 = "Rechnung" Then
Set rng = Range("RSumme").Range("B14").Offset(3, 0)
Set txtBox = Worksheets("Rechnung").OLEObjects.Add( _
Link:=False, _
DisplayAsIcon:=False, _
ClassType:="Forms.TextBox.1", _
Left:=rng.Left, _
Top:=rng.Top, _
Width:=450, _
Height:=100)
'txtBox.Object.Name = "Pflegehinweis"
txtBox.Object.MultiLine = True
txtBox.Object.Text = "Pflegehinweise: Die Silikon-Fugen wurden mit ..."
End Sub
Danke für eure Hilfe
Jens