AW: Zugriff auf andere EXCEL-Datei
Werner
Hallo Hans,
ich bekomme nach wie vor beim Befehl:
"Set txtBox = wks.Shapes.AddTextbox(msoTextOrientationHorizontal, 90, 250, 160, 90)"
die Fehlermeldung:
"Der angegebene Wert ist außerhalb des gültigen Bereichs."
Die Ziel-Arbeitsmappe ist geöffnet und die Namen der Arbeitsmappe sowie des Arbeitsblattes sind richtig geschrieben.
Die Sub() fängt so an:
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
Was könnte noch falsch sein?
Gruß Werner.