Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel in Word - Zeilen trennen

Forumthread: Excel in Word - Zeilen trennen

Excel in Word - Zeilen trennen
21.10.2014 14:13:39
studyy
Hallo zusammen,
ich hab mal wieder ein Problem und komme sowas von nicht voran.
es ist für mich super-kompliziert.
ich hab eine excel-tabelle mit überschriften in spalte A, unterüberschriften in spalte B und ein paar datensätze direkt unter den unterüberschriften in spalte B.
aus diesen daten erstelle ich diagramme, auswertungen etc. aber das ist nicht relevant für mein problem.
ich kopiere diese daten per makro in word als eine tabelle.
das alles klappt. jetzt möchte ich aber nicht die ganze tabelle zusammen einfügen.
sondern nach den überschriften trennen, also mehrere kleine tabellen untereinander.
dabei kann es sein, dass eine überschrift gar nicht auftaucht. in der datei könnt ihr sehen, wie das ganze aufgebaut ist.
https://www.herber.de/bbs/user/93267.xlsx
es kann z.b. sein, dass unter Ü1 nicht ü1.1 (und somit auch nicht die datensätze zu dieser überschrift) sondern direkt ü1.2 kommt mit seinen datensätzen. oder aber direkt ü1.4 usw. das selbe gilt auch für Überschrift2. ü2.1 kann ausfallen und es kann direkt ü2.1 kommen.
jetzt möchte ich einfach die überschriften (und zugehörige zeilen darunter) als eine tabelle in word einfügen. dann die nächste überschrift genauso. dann die nächste usw.
das ganze soll halt nicht in EINER tabelle in word stehen. perfekt wäre, wenn die überschriften in word über die jeweiligen tabellen geschrieben werden, also nicht als eine tabellenzeile. aber dies ist dann eher ein nice-to-have.
kann mir bei diesem makro jemand helfen.
würde mich sehr darüber freuen.
grüße studyy

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel in Word - Zeilen trennen
21.10.2014 15:51:33
fcs
Hallo studyy,
noch ein paar Verständnisfragen:
1. Sollen die Daten aus excel in eine neue leere Worddatei übertragen werden?
Oder hast du eine Datei/Vorlagedatei in die eingefügt werden soll?
2. Woran erkennt man in Spalte B die Überschriften bzw. wie unterscheiden sie sich eindeutig von den Datenzeilen?
Beginnen die Überschriftenzeilen immer mit ü und einer Ziffer?
3. Sollen immer jeweils nur die Zellen mit den Datensatzen in Spalte B kopiert werden oder sollen mehrere Spalten kopiert werden?
4. Wie soll der Datensatzbereich in Word eingefügt werden?
Als Grafik oder als Excel-Objekt?
Gruß
Franz

Anzeige
AW: Excel in Word - Zeilen trennen
21.10.2014 16:42:56
Studyy
Hallo Franz,
Also Zu 1.
Ich hab eine Vorlage, die ich öffne und in zeile 30 einfuge. das alles klappt eigentlich schon. Nur das getrennte einfugen.. :)
Zu 2.
Nein die Überschriften heissen ort, Adresse, nummer, name und ein paar andere bezeichnungen. Ich hab hier nur beispielsweise ü1, ü1.1 etc. Genommen. Damit wird auch der aufbauder datei deutlich. die uberschriften haben also kein ü und ziffern. Ich würde die ü's durch die richtigen Bezeichnungen ersetzen.
Zu 3.
Es sollen immer von einer Überschrift bis zur nächsten Überschrift die zeilen kopiert werden von spalte a bis h. Tut mir leid, hab das gar nicht erwähnt.
Zu 4.
Eingefugt werden sollte es nicht als grafik. Lediglich als tabellen.
Danke schonmal fur jegliche hilfe.
Grüße

Anzeige
AW: Excel in Word - Zeilen trennen
21.10.2014 17:28:45
fcs
Hallo Studyy,
nachfolgend ein Makro mit entsprechenden Einfüge-/Kopier-Aktionen.
Ich hoffe du kannst es in dein vorhandenes Makro integrieren.
Gruß
Franz 
'Erstellt unter Excel 2010
Sub Daten_nach_Word()
Dim wks As Worksheet
Dim Zeile As Long, Zeile1 As Long, Zeile2 As Long
Dim wdPasteOption As Long
Dim rngData As Range
Dim strUeberschrift As String
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document
Set wks = ActiveSheet
'Word-Anwendung kreieren
Set wdApp = VBA.CreateObject("Word.Application")
wdApp.Visible = True
'neues Dokument anlegen
Set wdDoc = wdApp.Documents.Add(Template:="D:\Test\TestDoc.docx")
'Einfügeposition selektieren
wdDoc.Range(wdDoc.Characters.Count - 1, wdDoc.Characters.Count - 1).Select
wdPasteOption = 1 'DataType für PasteSpecial-Aktion in Word _
9 = wdPasteEnhancedMetafile (Grafik) _
0 = wdPasteOLEObject (Excel-Tabellenobject) _
1 = wdPasteRTF  (Rich-Text-Format) _
10 = wdPasteHTML (HTML-Format)
Zeile1 = 1: Zeile2 = 0 'Zeilenzähler für Datensätze zurücksetzen
With wks
'Zeilen in Exeltabelle abarbeiten
For Zeile = 1 To .UsedRange.Row + .UsedRange.Rows.Count
If .Cells(Zeile, 1).Text  "" And .Cells(Zeile, 2).Text = "" Then
'Hauptüberschrift
strUeberschrift = .Cells(Zeile, 1).Text
If Zeile2 > 0 Then
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False 'Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
'Hauptüberschrfit einfügen
wdApp.Selection.TypeParagraph
wdApp.Selection.TypeText Text:=strUeberschrift
wdApp.Selection.TypeParagraph
Zeile1 = Zeile + 1: Zeile2 = 0 'Zeilenzähler für Datensätze neu setzen
ElseIf .Cells(Zeile, 1).Text = "" And .Cells(Zeile, 2).Text = "" Then
'Zeile nach letzten Daten
If Zeile2 > 0 Then
'Zellbereich mit Datensätzen setzen und kopieren
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False ' Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
Else
'Prüfen, ob Unterüberschrift oder Datensatz
Select Case .Cells(Zeile, 2) 'Text in Spalte B
Case "Adresse", "Ort", "Name", "Nummer"
'Unterüberschrift
strUeberschrift = .Cells(Zeile, 2).Text
If Zeile2 > 0 Then
'Zellbereich mit Datensätzen setzen und kopieren
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False 'Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
'Unterüberschrfit einfügen
wdApp.Selection.TypeText Text:=strUeberschrift
wdApp.Selection.TypeParagraph
Zeile1 = Zeile + 1: Zeile2 = 0 'Zeilenzähler für Datensätze neu setzen
Case Else
'Datensatzzeile
Zeile2 = Zeile
End Select
End If
Next
End With
wdApp.Activate
Set wdApp = Nothing: Set wdDoc = Nothing: Set wks = Nothing: Set rngData = Nothing
Application.CutCopyMode = False
End Sub

Anzeige
AW: Excel in Word - Zeilen trennen
21.10.2014 20:18:52
Studyy
Hallo Franz,
Super.
Danke. Werde ich testen. Ich melde mich dann danach.
Grüße studyy

AW: Excel in Word - Zeilen trennen
25.10.2014 06:38:22
Studyy
Hallo nochmal :)
Sorry dass ich mich zwei tage verspatet melde.
Dein code hat eigentlich funktioniert. Aber die breite der tabellen ist sehr klein.
Konnte ich schon einstellen dass er auf Fenster anpasst die tabellen?
Grüße und danke schonmal fur hilfe

Anzeige
AW: Excel in Word - Zeilen trennen
25.10.2014 13:15:57
fcs
Hallo Studdy,
wenn die aus den Spaltenbreiten in Excel abgeleiteten Spaltenbreiten nach dem Einfügen nicht optimal sind, dann müssen die Breiten von Tabellen und Spalten nach dem Einfügen individuell angepasst werden.
Gruß
Franz 
'Erstellt unter Excel 2010
Sub Daten_nach_Word()
Dim wks As Worksheet
Dim Zeile As Long, Zeile1 As Long, Zeile2 As Long
Dim wdPasteOption As Long
Dim rngData As Range
Dim strUeberschrift As String
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document
Dim intTabCount As Integer
Set wks = ActiveSheet
'Word-Anwendung kreieren
Set wdApp = VBA.CreateObject("Word.Application")
wdApp.Visible = True
'neues Dokument anlegen
Set wdDoc = wdApp.Documents.Add(Template:="C:\Users\Public\Test\TestDoc.docx")
'Einfügeposition selektieren
wdDoc.Range(wdDoc.Characters.Count - 1, wdDoc.Characters.Count - 1).Select
wdPasteOption = 1 'DataType für PasteSpecial-Aktion in Word _
9 = wdPasteEnhancedMetafile (Grafik) _
0 = wdPasteOLEObject (Excel-Tabellenobject) _
1 = wdPasteRTF  (Rich-Text-Format) _
10 = wdPasteHTML (HTML-Format)
Zeile1 = 1: Zeile2 = 0 'Zeilenzähler für Datensätze zurücksetzen
intTabCount = wdDoc.Tables.Count
With wks
'Zeilen in Exeltabelle abarbeiten
For Zeile = 1 To .UsedRange.Row + .UsedRange.Rows.Count
If .Cells(Zeile, 1).Text  "" And .Cells(Zeile, 2).Text = "" Then
'Hauptüberschrift
strUeberschrift = .Cells(Zeile, 1).Text
If Zeile2 > 0 Then
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False 'Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
'Hauptüberschrfit einfügen
wdApp.Selection.TypeParagraph
wdApp.Selection.TypeText Text:=strUeberschrift
wdApp.Selection.TypeParagraph
Zeile1 = Zeile + 1: Zeile2 = 0 'Zeilenzähler für Datensätze neu setzen
ElseIf .Cells(Zeile, 1).Text = "" And .Cells(Zeile, 2).Text = "" Then
'Zeile nach letzten Daten
If Zeile2 > 0 Then
'Zellbereich mit Datensätzen setzen und kopieren
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False ' Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
Else
'Prüfen, ob Unterüberschrift oder Datensatz
Select Case .Cells(Zeile, 2) 'Text in Spalte B
Case "Adresse", "Ort", "Name", "Nummer"
'Unterüberschrift
strUeberschrift = .Cells(Zeile, 2).Text
If Zeile2 > 0 Then
'Zellbereich mit Datensätzen setzen und kopieren
Set rngData = .Range(.Cells(Zeile1, 1), .Cells(Zeile2, 8))
rngData.Copy
wdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteOption, _
Placement:=0, DisplayAsIcon:=False 'Placement: 0 =wdInLine
wdApp.Selection.TypeParagraph
End If
'Unterüberschrfit einfügen
wdApp.Selection.TypeText Text:=strUeberschrift
wdApp.Selection.TypeParagraph
Zeile1 = Zeile + 1: Zeile2 = 0 'Zeilenzähler für Datensätze neu setzen
Case Else
'Datensatzzeile
Zeile2 = Zeile
End Select
End If
'Prüfen ob sich die Tabellenanzahl geändert hat
If intTabCount  wdDoc.Tables.Count Then
intTabCount = wdDoc.Tables.Count
'Tabellenbreite und Spaltenbreiten der Tabelle einstellen
With wdDoc.Tables(intTabCount)
.AllowAutoFit = False
.PreferredWidthType = 3 '3 = wdPreferredWidthPoints
.PreferredWidth = Application.CentimetersToPoints(17)
.Columns.PreferredWidthType = 3 '3 = wdPreferredWidthPoints
.Columns(1).Width = Application.CentimetersToPoints(0.5)
.Columns(2).Width = Application.CentimetersToPoints(3.5)
.Columns(3).Width = Application.CentimetersToPoints(2)
.Columns(4).Width = Application.CentimetersToPoints(3)
.Columns(5).Width = Application.CentimetersToPoints(1.5)
.Columns(6).Width = Application.CentimetersToPoints(2.5)
.Columns(7).Width = Application.CentimetersToPoints(2)
.Columns(8).Width = Application.CentimetersToPoints(2)
End With
End If
Next
End With
wdApp.Activate
Set wdApp = Nothing: Set wdDoc = Nothing: Set wks = Nothing: Set rngData = Nothing
Application.CutCopyMode = False
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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