Was muß anstelle der ? stehen
?.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 250, 160, 90).Select
Gruß Werner
Sub NewBox()
Dim wks As Worksheet
Dim txtBox As Shape
Set wks = Workbooks("Mappe15").Worksheets("Tabelle1")
Set txtBox = wks.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 250, 160, 90)
End Sub
Sub BestellNotizEinfuegen()
Dim wks As Worksheet
Dim txtBox As Shape
Set wks = Workbooks("Beschaffungs-Antrag_Investitionsantrag.xls").Worksheets("Beschaffungsanforderung")
Set txtBox = wks.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 250, 160, 90)
Selection.ShapeRange(1).TextFrame.AutoSize = msoTrue
Selection.Characters.Text = InputBox("Bitte Text eingeben:", "Notiz einfügen", "Bitte bei Bestellung mit angeben: " & vbLf, 300, 200)
With Selection.Font
End Sub