Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilenumbruch nach Kopiervorgang
 20.10.2016 14:39:40 Nik
NotSolved
20.10.2016 20:12:05 Gast91569
NotSolved

Ansicht des Beitrags:
Von:
Nik		 Datum:
20.10.2016 14:39:40		 Views:
1369		 Rating:
     
Antwort:
  Ja
Thema:
Zeilenumbruch nach Kopiervorgang

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 ;-))

?
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
'Ü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

 

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 Zeilenumbruch nach Kopiervorgang
 20.10.2016 14:39:40 Nik
NotSolved
20.10.2016 20:12:05 Gast91569
NotSolved