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:

    '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