Thema Datum  Von Nutzer Rating
Antwort
11.03.2009 18:46:23 Word: Aus eingebett
NotSolved
Blau Aw:Word-Excel
 12.03.2009 11:46:06 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
12.03.2009 11:46:06		 Views:
909		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Word-Excel
Hallo Norman,
füge deinen Code zwischen Set exl = CreateObject("excel.application") und exl.quit ein. Warum das oleformat.object nicht aus soetwas ähnliches wie eine Quit-Methode hat, wundert mich auch.

Set exl = CreateObject("excel.application")
Dim sh As Object
Set sh = ActiveDocument.InlineShapes(1).OLEFormat
With sh
.Activate
' schreibt Wert in A1
.Object.ActiveSheet.Cells(2, 7).Value = "123456"
End With
Set sh = Nothing
exl.quit

Gruß
Holger


Word: Aus eingebetter Exceltabelle herausspringen schrieb am 11.03.2009 18:46:23:

HAllo Forum,

ich habe hier ein kleines Problem.

Ich habe eine eingebettete Exceltabelle in Word 2007 und befülle diese mit werten.

Ich schreibe mit diesem Code in eine eingebettete Exceltabelle

Dim sh As Object
Set sh = ActiveDocument.InlineShapes(1).OLEFormat
With sh
.Activate
' schreibt Wert in A1
.Object.ActiveSheet.Cells(2, 7).Value = "123456"
End With
Set sh = Nothing

Das funktioniert so weit aber der Fokus wird danach nicht wieder auf das Word dokument gesetzt um z.b eine Textmarke anspringen zu können, sonder beleibt in der eingebetteten Tabelle.

Wie kann ich zurück in das eigentliche Worddokument springen?


MfG Norman





Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.03.2009 18:46:23 Word: Aus eingebett
NotSolved
Blau Aw:Word-Excel
 12.03.2009 11:46:06 Holger
NotSolved