Thema Datum  Von Nutzer Rating
Antwort
Rot In Tabelle Spalte wechseln
 08.04.2014 21:25:43 nitramf
NotSolved

Ansicht des Beitrags:
Von:
nitramf		 Datum:
08.04.2014 21:25:43		 Views:
1421		 Rating:
     
Antwort:
  Ja
Thema:
In Tabelle Spalte wechseln

Hallo!

ich möchte Daten von gewissen Excel-Spalten in ein Word-Dokument übertragen, in dem sich auch eine Word-Tabelle befindet.

Ein paar Daten sind quasi fix, sprich für jede Zeile gleich, ich habe es schon hinbekommen diese Aus der jeweiligen Zelle in Excel zu kopieren und in Word einzufügen.

Ich habe in der ersten Word-Tabellen-Zelle eine Textmarke gesetzt, zu der ich springe. Allerdings kommt hier das Hauptproblem.

Wie springe ich in die nächste Spalte? Quasi ein Tab auf der Tastatur. Habe viel bei Google gesucht aber leider nichts gefunden was für mich funktioniert.

 

Hier mein bisheriger Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
    'declare local variables and constants
    Dim oDoc As Object
    Dim oWord As Object
     
    Dim rRange1 As Range, rRange2 As Range, aAuftraggeber As Range, aAuftragnummer As Range, pProbennummer As Range
    Const sDocPath As String = "C:\Users\mueller\Downloads\Data2WordTable\frm.doc"
     
    'set ranges to copy
    Set aAuftraggeber = Worksheets("140403-07").Range("I6")
     Set aAuftragnummer = Worksheets("140403-07").Range("A6")
    Set rRange1 = Worksheets("140403-07").Range("A20:A30")
    Set rRange2 = Worksheets("140403-07").Range("A1:C10")
    Set pProbennummer = Worksheets("140403-07").Range("A20")
    'open the Word document, if it doesn't exist, then create one
    On Error Resume Next
    Set oDoc = GetObject(sDocPath)
    Set oWord = oDoc.Parent
    If Err <> 0 Then
        Set oWord = CreateObject("Word.Application")
        Set oDoc = oWord.Documents.Add
    End If
    oWord.Visible = True
     
    'copy and paste first range into Word
    'rRange1.Copy
    'oDoc.ActiveWindow.Selection.Paste
' aAuftragnummer.Copy
  '  oDoc.ActiveWindow.Selection.Paste
     'Fuegt die Auftragsnummer in die erste Zeile ein:
     oDoc.Bookmarks("Tabelle").Range.InsertAfter aAuftragnummer
  oDoc.ActiveWindow.MoveRight Unit:=wdCell
    aAuftraggeber.Copy
oDoc.ActiveWindow.Selection.Paste

 

Wäre super wenn mir jemand helfen könnte :-)

 

Viele Grüße,

nitramf

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot In Tabelle Spalte wechseln
 08.04.2014 21:25:43 nitramf
NotSolved