Clever-Excel-Forum

Normale Version: Ausgewählte Spalten einer Tabelle rechtsbündig
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Ha((o

Habe via VBA aus Excel heraus eine Tabelle in Word erstellt.
Eine Spalte der Tabelle soll rechtsbündig sein, der rest bleibt linksbündig.

Ich habe es mit folgendem Code versucht, da aus anderen Foren eigentlich kopiert, aber es geht nicht.


Zitat:Sub Tabelle_Fuellen(ByRef wddoc As Word.Document)

Dim wdtable As Object

Set wdtable = wddoc.Tables.Add(Range:=wddoc.Bookmarks("Tabelle").Range, NumRows:=z2 - z1 + 1, NumColumns:=8)

wdtable.Columns(8).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

End Sub

Eigentlich müsste auch folgendes gehen. Aber geht erst recht nich.
Zitat:'wdtable.Columns(8).ParagraphFormat.Alignment = wdAlignParagraphRight

Ich bekomme jedes Mal folgende Fehlermeldung:
[
Bild bitte so als Datei hochladen: Klick mich!
]

Hat jemand eine Idee?
Grüße
Hallöchen,

ich hab mal was aufgezeichnet und mit Deiner Ausrichtung ergänzt, was bei mir unter 2016 funktioniert:
Code:
ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:= _
    2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitFixed).Columns(2).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Ha((o Schauan

Wo ist der Unterschied zu meinem Code???
Ich habe jetzt versucht die optionalen Standardwerte bei der Tabellengenerierung mit anzugeben, aber der gleiche Fehler erscheint wieder.
Ich weiß echt nicht was ich noch machen soll.

Grüße
Hallo,

schreibe mal statt
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
mit entsprechendem Wert:
Selection.ParagraphFormat.Alignment = 2
siehe Objektkatalog in Word (Aufruf mit F2)

[attachment=21535]

Gruß Uwe
Ha((o Uwe.

Leider bekomme ich auch dann (mit einer 2) die gleiche Meldung. ... Frust Sad

Grüße
(30.12.2018, 09:49)Nyn007 schrieb: [ -> ]Ha((o Uwe.

Leider bekomme ich auch dann (mit einer 2) die gleiche Meldung. ... Frust Sad

Grüße

Hast du es lösen können?
LG