Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wordtabelle Spaltenbr. aus Excel per VBA festl.

Wordtabelle Spaltenbr. aus Excel per VBA festl.
23.11.2018 12:33:51
Olli
Hi zusammen,
ich habe eine Tabelle mit 5 Spalten und X Zeilen in einem Sheet generiert. diese wird per Makro kopiert und nach Word exportiert. Wenn ich diese einfüge (auf eine Textmarke) passt aber die Spaltenbreite überhaupt nicht mehr.
Folgender Codeteil verschiebt immer alle Spalten, ich denke das er immer von der linken Spaltenlinie ausgeht. Ich möchte aber die rechte verschieben. Gibt es da einen Befehl?
'docTest.Tables(3).Columns(1).SetWidth ColumnWidth:=appWord.CentimetersToPoints(2.3), RulerStyle:=wdAdjustSameWidth
'docTest.Tables(3).Columns(2).SetWidth ColumnWidth:=appWord.CentimetersToPoints(3.2), RulerStyle:=wdAdjustSameWidth
'docTest.Tables(3).Columns(3).SetWidth ColumnWidth:=appWord.CentimetersToPoints(7.5), RulerStyle:=wdAdjustSameWidth
'docTest.Tables(3).Columns(4).SetWidth ColumnWidth:=appWord.CentimetersToPoints(2.8), RulerStyle:=wdAdjustSameWidth
'docTest.Tables(3).Columns(5).SetWidth ColumnWidth:=appWord.CentimetersToPoints(3), RulerStyle:=wdAdjustSameWidth
Hoffentlich kann mir jemand von euch helfen, ich verzweifel daran :D

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wd-VBA Spaltenbreite
23.11.2018 14:14:31
Fennek
Hallo,
wenn man die gewünschte Spaltenbreite in das Wd-VBA schreibt:

Sub T_1()
'Spaltenbreite in cm
Sp = Array(2, 4, 3, 1)
With ActiveDocument.Tables(1)
For i = 0 To UBound(Sp)
.Columns(i + 1).PreferredWidth = Application.CentimetersToPoints(Sp(i))
Next i
End With
End Sub
Eine Übergabe aus XL ist möglich.
mfg
AW: Wd-VBA Spaltenbreite
26.11.2018 12:02:37
Olli
Hallo Fennek,
entschuldige das späte Feedback, komme erst jetzt wieder dazu.
Ok, Danke. Das erklärt dann einiges.
Wenn ich das Makro in der Word-Datei hinterlegt habe, wie rufe ich dann dieses Makro auf?
Viele Grüße Olli
Anzeige
AW: Wd-VBA Spaltenbreite
26.11.2018 12:58:26
Olli
Gelöst!
Danke Fennek, dein Ansatz war super. Habe es aber direkt in den Excel Code gepackt.
Mit
"docTest.Tables(3).Columns(1).PreferredWidth = Application.CentimetersToPoints(1)"
wird die entsprechende Breite nun eingestellt.
Danke für den Ansatz!
AW: Wd-VBA Spaltenbreite
26.11.2018 13:45:23
Olli
Edit:
Funktioniert so doch nicht. Im VBA Editor unter Extras -> Verweise -> bei "Microsoft Word 14 (bei mir - bei euch ggf. andere Version) Objekt Library" den Haken setzen.
Dann passt die Codezeile die Tabellenbreite und die einzelnen Spalten automatisch an den Inhalt und die Seitenbreite an.
docTest.Tables(3).AutoFitBehavior (wdAutoFitWindow)
Grüße
Anzeige

209 Forumthreads zu ähnlichen Themen

Exceltabelle in Word
S.H.

Hallo,
evtl. bin ich auch im falschen Forum, aber trotzdem meine Frage:
Ich habe ein Excel Arbeitsblatt unter word eingefügt und möchte dort weitere Zeilen einfügen. Das funktioniert auch soweit, am Ende der Word Seite ist allerdings Schluss. Ich schaffe es nicht, das die Tabelle einen...
20.10.2008 20:22:26
Thread-ID: 1017796
3 Beiträge
Anzeige
Excel Tabelle über 2 Seiten in Word
Ralf

Hallo,
ich möchte eine Excel Tabelle in Word einfügen. Das Problem ist, dass die Tabelle sehr lang ist und über 2 Seiten in Word gehen würde. Sie soll auch automatisch aktualisiert werden, wenn die Originaltabelle in Excel verändert wird.
Gibt es da eine Möglichkeit?
Vielen Dank!
16.04.2009 22:29:58
Thread-ID: 1069191
3 Beiträge
Zwei Excel-Tabellen in WinWord verknüpfen
Andreas

Hallo zusammen,
ich habe eine Word-Datei, in der sich an zwei verschiedenen Stellen zwei eingefügte Excel-Dateien befinden. Diese wurde vor langer Zeit mal aus Excel kopiert. Das Original in Excel existiert nicht mehr.
Jetzt möchte ich das Ergebnis einer Berechnung aus der ersten Tabell...
04.08.2009 13:53:46
Thread-ID: 1093412
2 Beiträge
Anzeige
aus Word mit Makro in Excel Tabellenblatt wechseln
Joni

Hi,
ich habe das Problem, dass ich aus einem Worddokument eine Exceltabelle, die bereits geöffnet ist, aktivieren möchte und dann da aus 2 Tabellenblättern Werte auslesen. Ich komm da einfach nicht weiter.
Excel als Object habe ich definiert. Beim Workbook und Sheet klappt das nicht meh...
31.10.2009 00:38:15
Thread-ID: 1113446
3 Beiträge
bestimmte Tabellen ein- resp. ausblenden SWITCH
Peter

Guten Abend
In einer grösseren Datei habe ich einige Tabellen, deren Namen einer der Strings "_FA", "_FV" oder "_FF" enthält.
Nun möchte ich ein Makro, mit dem ich diese Tabellen identifiziere und die einzelnen Tabellen einblende, wenn sie ausgeblendet sind, resp. umgekehrt.
Fragen:...
19.11.2009 17:36:31
Thread-ID: 1118717
19 Beiträge
In Tabelle Zellfarbe abfragen - Spalte ausblenden
Gegga

So und weitergehts :)
Ich baue gerae iene etwas aufwendigere Tabelle, wo ich mit mehreren Hilfsspalten arbeiten muss die ausgeblendet werden.
Ich habe einen Com.Button eingefügt mit folgendem Code:
Columns("BJ:BK").Select
Selection.EntireColumn.Hidden = True
Funzt, klar. Da...
21.12.2009 09:56:44
Thread-ID: 1125270
9 Beiträge
Tabellenblatt per Makro ein-/ ausblenden
Bibabutzel

Hallo Ecxel-Gemeinde,
ich mache gerade meine ersten eigenen Gehversuche in Sachen VBA und benötige mal bitte Eure Hilfe. Das Problem ist (für die, die es können) wahrscheinlich ein relativ einfaches:
Im Bereich A20:A59 stehen Namen und zu jedem dieser Namen gibt es ein Tabellenblatt (da...
17.01.2010 00:16:55
Thread-ID: 1130538
10 Beiträge
Tabellenblätter aus ListBox ein- und ausblenden
Dirk

Hallo,
Ich habe eine Userform mit einer Listbox in der alle eingeblendeten Tabellenblätter und eine Listbox in der alle ausgeblendeten Tabellenblätter enthalten sind. Nun möchte ich per Mausklick auf ein Tabellenblattname in einer der Listboxen das entsprechende Blatt ein- bzw. ausblenden.
17.04.2002 10:18:26
Thread-ID: 113989
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
1
1
2
18
8
9
2
5
2
3
1
1
2
1
1
1
1
5
3
7
1
2