Hallo zusammen,

ich schreibe gerade ein Makro, welches Werte aus Excel in eine Vorlage in Word kopiert. Ich habe nun alles soweit, dass Word geöffnet wird, die Werte kopiert werden und an einer Textmarke in einer Tabelle landen. Allerdings ist dabei auch eine Liste mit Überschrift und jeweiliger Unterüberschrift, welche in Excel untereinander in eigenen Zellen angeordnet sind. Wenn ich nun also den Kopiervorgang starte, werden alle Zellen nacheinander an die Textmarke kopiert (in die gleiche Zelle der Tabelle) und stehen dann ohne Abstand oder Umbrüche da. Gibt es da eine Mögichkeit, quasi zwischen den Kopiervorgängen der einzelnen Zellen einen Zeilenumbruch einzufügen?

Danach sollten die Überschriften noch Fett werden, dazu ist mir bisher auch noch keine Lösung eingefallen, wisst ihr da vielleicht was dazu?

Ich benutze Office 2016 und Windows 7.

Liebe Grüße und vielen Dank schonmal im voraus,

Nik

Hier der Ausschnitt (Falls da irgendwelche VBA No-Go's dabei sind, verzeihts mir, ist mein erstes Programm in VBA ;-))

         'Überschriften & Beschreibungen
         'Gesamtkonzeption
         'Unterüberschriften
         If Cells(14, 13) <> "0" Then    'Prüfen ob Zelle einen Wert hat. (14, 13) = M14
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then  'Prüfen ob Textmarke existiert
             objDocument.Bookmarks(strBookmark1).Range = .Range("D14").Text     'Einfügen des Wertes von D14 an die Textmarke 1
         End If
         End If

         'Zeilenumbruch
         If Cells(13, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D13").Text
         End If
         End If
         
         'Zeilenumbruch
         If Cells(12, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D12").Text
         End If
         End If
         
         'Zeilenumbruch
         If Cells(11, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D11").Text
         End If
         End If
         
         'Zeilenumbruch
         If Cells(10, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D10").Text
         End If
         End If
         
         'Zeilenumbruch
         If Cells(9, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D9").Text
         End If
         End If
         
         'Zeilenumbruch
         'Überschrift (Fett)
         If Cells(15, 13) <> "0" Then
         If objDocument.Bookmarks.Exists(strBookmark1) = True Then
             objDocument.Bookmarks(strBookmark1).Range = .Range("D8").Text
         End If
         End If