Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.05.2024 17:16:37
Textvergleich mit unplausiblen Ergebnis
15.05.2024 16:55:50
Datenüberprüfung Liste stört Bildeinfüge Makro
15.05.2024 16:34:40
Textfeld Größenänderung über Ziehpunkte sperren
15.05.2024 16:31:59
vba - Bekomme den Mittelwert nicht raus
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exceltabelle nach word

Exceltabelle nach word
02.08.2023 23:37:39
Ifeelgood67@hotmail.de
Hallo Zusammen,
ich bin neu hier und habe folgende Problemstellung:

Ich bekomme quartalsweise eine (dynamische) EXCEL-datei mit folgendem Aufbau:
Überschriften:
Name Vorname PersNr spalte4 sp5 sp6 Erläuterung sp8 sp9 s10 sp11
Name1 Vorn1 persnr1 xx xxx xx Text xx xx xx xx
.....
NameX VornX persNrX ..... .... .... TextX ......

DIe Excel-Datei enthält immer die gleiche Anzahl Spalten (Siehe oben) und eine variierende Anzahl Zeilen.
Aus dieser quartalsweise erstellten EXCEL-Tabelle soll nun eine Word-Datei erstellt werden in folgendem Format: Aus der ersten Zeile soll aus den Spalten Name, Vorname und PersNr. eine fettgedruckte, unterstrichene Überschrift erstellt werden, und darunter der zugehörige Text aus der Spalte7: "Erläuterung", z. B.:

Name1, Vorname1, Pers.-Nr.1:
Text1

Name2, Vorname2, Pers.-Nr.2:
Text2

...

NameX, VornameX, Pers.-Nr.X:
TextX

Wäre super, wenn mir da jemand weiterhelfen könnte.

Vielen Dank im Voraus.

FG ifeelgood

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Exceltabelle nach word
03.08.2023 13:54:10
JoWE
Hallo,

ich nehme an, die Excel-Arbeitsmappe enthält eine Tabelle ("Tabelle1") mit den
Daten die Du beschrieben hast. Die Word-Tabelle wird in eine neues leeres Word-Dokument kopiert,
Also versuch's mal so: 
Option Explicit



Sub xlTab2WordDoc()

  Dim ze As Long

  Dim AppWD As Object

  Dim WDDoc As Object

  Dim WDTable As Object

  'Word-Instanz erstellen

  Set AppWD = CreateObject("Word.Application")

  AppWD.Visible = True

  'ein neues leeres Word-Dokument erstellen

  AppWD.Documents.Add

  Set WDDoc = AppWD.ActiveDocument

  'jetzt die Excel-Tabelle vorbereiten

  ze = 2

  Do While Cells(ze, 1) > ""

    Rows(ze + 1).EntireRow.Insert

    Cells(ze + 1, 1) = Cells(ze, 7)

    ze = ze + 2

  Loop

  'die fertig erstellte Excel-Tabelle kopieren

  Range("A1:C" & ze - 1).Copy

  'und in das Word-Dokument einfügen

  AppWD.Selection.PasteExcelTable False, False, False

End Sub

Gruß
Jochen
Anzeige
Exceltabelle nach word
03.08.2023 16:41:59
ifeelgood67@hotmail.de
Konnte es über einen Etikettendruck lösen. Danke
nich mehr offen owT
05.08.2023 05:33:56
Oberschlumpf
Exceltabelle nach word
03.08.2023 16:06:57
ifeelgood67@hotmail.de
Danke Jochen, das funktioniert soweit gut.

Mit der Formatierung schaue ich nochmal, die sollte so sein, dass die Erläuterung nicht nur in der ersten Spalte steht, sondern die Zeil über die drei Spalten verbunden., mal sehen, ob ich das noch hinbekomme.

Danke und Grüße
Gerne, jedoch...
03.08.2023 16:21:48
JoWE
... hättest Du Dein Wunschergebnis doch auch einfach ausführlicher beschreiben können.
Und nur für die Zukunft: Tatsächlich wäre da eine Beispiel-Arbeitsmappe sowie ein Beispiel-Word-Dokument mit dem zu erzielenden Endergebnis eine gute und zielführende Idee gewesen. Antworter haben es einfacher eine passende Lösung zu erstellen, weil nämlich überflüssige Nachfragen dann in den meisten Fällen entfallen.
Nun, viel Erfolg bei Deinen weiteren Versuchen.
Gruß
Jochen
Anzeige
Exceltabelle nach word
03.08.2023 07:35:17
Ifeelgood67
Guten Morgen.
Leider kam ich mit den gefundenen Beiträgen nicht weiter.
Exceltabelle nach word
03.08.2023 08:28:23
Oberschlumpf
Moin,

vielleicht kann man dir ja helfen, wenn du sowohl eine Excel- als auch eine Word-Bsp-Datei per Upload zeigst.

Ciao
Thorsten
AW: Exceltabelle nach word
03.08.2023 01:01:34
Ulf
Feelbetter:
Tabelle gestalten, Etikettendruck in Word - Excel-Datei als Datenquelle
im I-Net ausfürlichst beschrieben
hth
Ulf
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige