Hallo Forumgemeinde!
Ich habe eine Frage zum Thema Excel Daten nach Word exportieren:
Mittels untenstehenden Codes exportiere ich einen Wert von Excel zu einer Textmarke in Word, was auch hervorragend klappt.
Range("F11").Copy
With WordVorlage.Selection
If WordVorlage.ActiveDocument.Bookmarks.Exists("Gegenstand") = True Then
.Goto What:=wdGoToBookmark, Name:="Gegenstand"
.Range.Paste
End If
End With
Leider ist der Ort in Word, an dem ich diesen Wert exportiere, eine Tabelle. Nun wird automatisch der Wert in der Word-Tabelle vertikal zentriert dargestellt. Ich benötige den Wert allerdings aus Formatierungsgründen am oberen Rand der Tabellenzelle ausgerichtet. Selbst wenn ich die Zelle vor dem Import so formatiere und abspeichere, dass die Zellenausrichtung "on Top" ist, ist der Wert nach dem Import wieder vertikal mittig ausgerichtet.
Um mir den VBA-Code dafür zu besorgen, habe ich dieses Formatieren der Word-Tabellenzelle mit dem VBA Recorder aufgenommen. Dieser sagt mir:
Selection.Range.Cells(1).VerticalAlignment = wdCellAlignVerticalTop
Wenn ich diesen Code-Schnipsel nun in meinen obigen Code nach
.Range.Paste
einfüge, passiert allerdings genau garnix!
Wie oder was oder wo müsste ich den den Code ändern, damit der importierte Wert in der Word-Tabellenzelle "on Top" ausgerichtet wird.
Würde mich über einen Tipp sehr freuen.
Gruß Thias