ich möchte eine Textbox in ein Tabellenblatt einfügen,
in die Textbox einen Text einfügen und später die
Textbox zerstören.
Habe aber nicht viel Ahnung von der Syntax.
Das Erstellen funktioniert, aber das Einfügen von Text
und Formatieren der Textbox, wie geht das?
Sub Rechnungsanschrift_erstellen()
On Error Resume Next
Dim objTextbox As Excel.OLEObject
ActiveSheet.Unprotect
ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=75, Top:=160, Width:=200, Height:= _
100).Select
Set objTextbox = ActiveSheet.Shapes("TextBox.1")
With objTextbox
.Name = "Rechnungsanschrift"
.Value = Me.tbRechnungsanschrift.Value
End With
ActiveSheet.Protect
End Sub
Danke für Hinweise!
Gruß, gröbi.