Hallo Zusammen,
ich habe, dem Rat folgend, zwei Dateien zu meiner folgenden Frage hochgeladen.
1. https://www.herber.de/bbs/user/138758.xlsm
2. https://www.herber.de/bbs/user/138759.doc
Meine Frage bzw. die Lösung welche ich suche ist, wie kann ich aus Excel heraus nach dem Einfügen einer/der Tabelle in Word in dieser Tabelle Zellen aus einer Reihe zu einer Zelle verbinden?
Um im Beispiel zu bleiben geht es dort um die letzte Zeile und dort die Zellen der Spalten 1 bis 4, sodass der Text aus der ersten Zelle dann anschließend in der dann verbundenen Zelle ausgerichtet werden kann.
Private Sub SheetsToWord1()
Dim wordObj As Word.Application
Dim wordDoc As Word.Document
Dim wordTab As Word.Table
Dim wordRow As Word.Row
Dim wordCel As Word.Cell
Dim Sheet1 As Word.Range
Dim rngSheet1 As Range
Dim wordCell As Range
Dim lngRow As Long
Dim lngRowMax As Long
Dim lngCol As Long
Dim lngColMax As Long
Dim intZ As Integer
On Error GoTo SheetPositionWord_Error
If WordOpen = False Then
Set wordObj = CreateObject("word.application")
Else
Set wordObj = GetObject("", "word.application")
End If
wordObj.Visible = True
With Tabelle1
Set rngSheet1 = .Range("A1:F7")
lngRowMax = rngSheet1.Rows.Count
lngColMax = rngSheet1.Columns.Count
End With
Set wordDoc = wordObj.Documents.Open(ThisWorkbook.Path & "\TemplateWordDoc.doc")
Set Sheet1 = wordDoc.Bookmarks("SummaryTable").Range
Set wordTab = wordDoc.Tables.Add(Sheet1, lngRowMax, lngColMax)
With wordTab
For lngRow = 1 To 1
For lngCol = 1 To lngColMax
.Cell(lngRow, lngCol).Range.InsertAfter (rngSheet1.Cells(lngRow, lngCol))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next lngCol
Next lngRow
For lngRow = 2 To lngRowMax - 1
For lngCol = 1 To 1
.Cell(lngRow, lngCol).Range.InsertAfter (Format(rngSheet1.Cells(lngRow, lngCol), "#"))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next lngCol<b
Next lngRow
For lngRow = 2 To lngRowMax - 1
For lngCol = 2 To 4
.Cell(lngRow, lngCol).Range.InsertAfter (Format(rngSheet1.Cells(lngRow, lngCol), "#,###"))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
Next lngCol
Next lngRow
For lngRow = 2 To lngRowMax - 1
For lngCol = 5 To 5
.Cell(lngRow, lngCol).Range.InsertAfter (Format(rngSheet1.Cells(lngRow, lngCol), "#"))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
Next lngCol
Next lngRow
For lngRow = 2 To lngRowMax
For lngCol = lngColMax To lngColMax
.Cell(lngRow, lngCol).Range.InsertAfter (Format(rngSheet1.Cells(lngRow, lngCol), "#,###.00 €"))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
Next lngCol
Next lngRow
For lngRow = lngRowMax To lngRowMax
For lngCol = 1 To lngColMax - 1
.Cell(lngRow, lngCol).Range.InsertAfter (rngSheet1.Cells(lngRow, lngCol))
.Cell(lngRow, lngCol).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
Next lngCol
Next lngRow
'For lngRow = lngRowMax To lngRowMax
' For lngCol = 1 To lngColMax - 1
' .Cell(lngRowMax, lngCol).Select
' if selection.information'.Merge
' Next lngCol
'Next lngRow
'If lngRow = lngRowMax Then
' For lngCol = 1 To lngColMax - 1
' Range(Cells(lngRow, 1), Cells(lngRow, lngColMax - 1)).Select.MergeCells = True
' .Range.MergeCells = True
' Next lngCol
'End If
.Columns.AutoFit
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 100
.Style = "TableLayout"
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
End With
Ich habe mit diversen "Konstruktionen" von Merge experimentiert, aber immer blieb ich auf dem Punkt, das ich offensichtlich nicht den richtigen Code für diese Aktion im Word hatte. Deshalb auch die zwei "Versuche", welche auskommentiert sind.
Ich hoffe nun, das mir jemand den entscheidenden Hinweis geben kann.
Vielen Dank schon einmal im Voraus.
Christian