MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Word
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 18.10.2017, 17:39   #1
culli25
MOF User
MOF User
Standard Word 2007 - vorgegebener Text nicht übernommen

Hallo und guten Tag. Komme nochmal mit einem Anliegen bezüglich Excel Tabelle nach Word kopieren und zugleich begleitenden Text in Word mit einfügen. Es wird bis auf die von mir rot gekennzeichnete Zeile alles korrekt übernommen. Sie soll ebenfalls vor dem Tabellenauszug erscheinen. Es wird bei mir nach Hochformat kopiert. Kann mir jemand weiter helfen bezüglich übernahme der rot markierten Zeile. Wo liegt bei mir der Fehler? Danke und Gruß Culli

Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set wordDoku = appWord.documents.Add
With wordDoku
Set wordbereich = .Paragraphs.last.Range
'noch leeres Dokument formatieren
.Content.Font.Size = 15
'Texte reinschreiben lassen
.Paragraphs(1).Range.Font.Size = 15
.Content.InsertAfter "AG: ........... Gruppe: WG 1 bis 9 u. TG 1 = 3" & vbCr & "Gruppensprecher: Frau ........... ; 02................" _
& vbCrLf & "Teilnehmerliste: Selbstzahler nicht gen. Funktionstraining" & vbCr & "Zeitraum: __ Halbjahr 2__ "
.Paragraphs(2).Range.Font.Size = 15
'die kopierte gefilterte Tabelle einfügen
.Paragraphs(3).Range.Paste 'und weiter im Text
.Content.InsertAfter vbCr & " " _
& vbCr & "Datum Bearbeitung" & vbCr & "Unterschrift:__________________________"
.tables(1).Columns.last.Delete
End With

Geändert von culli25 (18.10.2017 um 18:17 Uhr).
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 00:09   #2
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo culli,

wenn ich nur diesen Auszug hernehme
Code:

.Content.InsertAfter "AG: ........... Gruppe: WG 1 bis 9 u. TG 1 = 3" & vbCr & "Gruppensprecher: Frau ........... ; 02................" _
& vbCrLf & "Teilnehmerliste: Selbstzahler nicht gen. Funktionstraining" & vbCr & "Zeitraum: __ Halbjahr 2__ "
wird alles korrekt eingefügt.

Was deine Bemerkung mit "in Hochformat kopiert" damit zu tun haben könnte, versteh ich nicht, und ob es was mit dem Tabellenauszug zu tun haben könnte, geht aus dem Makroschnipsel auch nicht hervor.

Nachstellen könnte ich das Problem allenfalls, wenn der Absatz, in den du einfügst, in einer Tabelle steht, deren Zeilenhöhe auf einen Wert mit der Option "Genau" formatiert ist. Das passt aber nicht mit dem Makroschnipsel zusammen.

Also im Zweifelsfall: Lade ein Musterdokument mit dem gesamten relevanten Code hoch.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 13:05   #3
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo und Danke für deine Reaktion. Entschuldigung, der Fehler lag bei mir. Nochmals Danke und Gruß Culli
Angehängte Dateien
Dateityp: docx AG DEMO.docx (13,6 KB, 1x aufgerufen)

Geändert von culli25 (19.10.2017 um 14:30 Uhr). Grund: Ein Irrtum in Zeile
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 14:38   #4
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Culli,

im Anhang eine Excelmappe mit einem Stückchen von deiner zu kopierenden Tabelle. Dein Makro hab ich dort so ergänzt bzw. geändert, dass es meinem Verständnis nach Sinn macht.

Es wird alles eingefügt, was du vorgesehen hast.
Angehängte Dateien
Dateityp: xlsm Makrotabelle.xlsm (18,3 KB, 3x aufgerufen)

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 17:03   #5
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke, natürlich toll. Nun beziehe ich meine Daten aus dem Tabellen Blatt "SZ". Wie lenke ich nun den Code auf diese Tabellenblatt???? Kannst du mir hier bitte noch eine Ergänzung liefern. Bin mit meinen Versuchen kläglich gescheitert. Mein Versuch als Ergänzung. Problem: Die EXCEL Tabelle wird nicht eingefügt.
Danke und Gruß im Voraus Culli

Code:

Private Sub CommandButton2_Click()
Dim appword As Object, wordDoku As Object, wordbereich As Object
Dim pfad As String

'  pfad = ThisWorkbook.Worksheets("SZ").Path & ""
Set Bereich = ThisWorkbook.Worksheets("SZ").Cells(1, 1).CurrentRegion
Set appword = CreateObject("Word.Application")
appword.Visible = True
Set wordDoku = appword.Documents.Add
Set wordbereich = wordDoku.Paragraphs.last.Range
ThisWorkbook.Worksheets("SZ").UsedRange.Copy
'  ThisWorkbook.Worksheets(1).UsedRange.Copy
Set Bereich = ThisWorkbook.Worksheets("SZ").Cells(1, 1).CurrentRegion
Gruppe = Application.InputBox("Geben Sie die Nummer der Gruppe ein:", Type:=2)
Bereich.AutoFilter Field:=4, Criteria1:=Gruppe
With wordDoku
    
    'noch leeres Dokument formatieren
    .Content.Font.Size = 15
    'Texte reinschreiben lassen
    .Paragraphs(1).Range.Font.Size = 15
    .Content.InsertAfter "AG: ........... Gruppe: WG 1 bis 9 u. TG 1 = 3" & vbCr & "Gruppensprecher: Frau ........... ; 02................" _
    & vbCrLf & "Teilnehmerliste: Selbstzahler nicht gen. Funktionstraining" & vbCr & "Zeitraum: __ Halbjahr 2__ " & vbLf
    .Paragraphs(2).Range.Font.Size = 15
    'die kopierte gefilterte Tabelle einfügen
    
    Set wordbereich = wordDoku.Paragraphs.last.Range
'     wordbereich.Paste 'und weiter im Text
    .Content.InsertAfter vbCr & _
      "Datum Bearbeitung" & vbCr & "Unterschrift:__________________________"
'    .Tables(1).Columns.last.Delete
End With
End Sub

Geändert von culli25 (19.10.2017 um 17:32 Uhr).
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 17:25   #6
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo Culli,

hast du das auch versucht?
ThisWorkbook.Worksheets("SZ").UsedRange.Copy

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 17:34   #7
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Habe ich im Code mit drin, weiß allerdings nicht ob ich es an der richtigen Stelle eingebracht habe. Siehe unten (mein Code Versuch). Danke Culli

Geändert von culli25 (19.10.2017 um 17:48 Uhr).
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 18:11   #8
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo nochmal,

hab ich übersehen. Ist ja schon drin. Hast du zufällig leere Zeilen über dem Tabellenabschnitt, den du kopieren willst? Dann mach die raus oder definiere den Kopierbereich direkt, z.b. so: ThisWorkbook.Worksheets("SZ").Range("A2:H9").Copy


Wo hast du übrigens den Code drinstehen?

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.10.2017, 18:42   #9
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke , füge mal das Komplette hier an. Problem ist beim anklicken Selbstzahler. Vielleicht kannst du dort mal rein schauen. Gruß Culli
Angehängte Dateien
Dateityp: zip 5te TESTTABELLE 07_2017.zip (215,8 KB, 4x aufgerufen)
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 00:25   #10
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo culli,

einige Anmerkungen zum Makro Commandbutto2_Click

Du lässt im Verlauf dieses Makros den Bereich zweimal so festlegen:
Set Bereich = ThisWorkbook.Worksheets("SZ").Cells(1, 1).CurrentRegion
Das ist einmal überflüssig, zumal du den Bereich danach noch einmal mit UsedRange festlegst und kopierst:
ThisWorkbook.Worksheets("SZ").UsedRange.Copy
Da wäre wohl Bereich.Copy konsequenter gewesen. Wichtiger ist aber: beide Varianten kopieren dir die ungefilterte Tabelle in die Zwischenablage.

Erst danach filterst du:
Gruppe = Application.InputBox("Geben Sie die Nummer der Gruppe ein:", Type:=2)
Bereich.AutoFilter Field:=4, Criteria1:=Gruppe

Aber in Spalte 4. stehen keine Gruppennummern. Die stehen doch in Spalte 9? Also blendet der Autofilter hier die komplette Tabelle aus.

Und dann kommt das:
' wordbereich.Paste 'und weiter im Text
Wenn du das auskommentierst, musst du dich nicht wundern, wenn nichts passiert.

Allerdings würdest du die oben kopierte ungefilterte Tabelle und nicht die erst später gefilterte Tabelle erhalten. Du solltest wohl erst filtern und dann kopieren.

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 16:19   #11
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Danke für deine Hilfe Gerhard. Konnte erst jetzt nochmal einen Versuch unternehmen.
Dürfte ich dich bitten, bei dem Makro Commandbutton2 einmal konkret einzugreifen. Es gelingt mir einfach nicht , die Tabelle einzufügen, auch dann nicht wenn ich die Bedingung raus nehme.
Weil ich nicht so fit bin, stochere ich mehr oder weniger im Dunkeln. Alle Veränderungen die ich vorgenommen habe waren erfolglos. Daher Bitte ich nochmal um Unterstützung. Danke und Gruß Culli

Geändert von culli25 (20.10.2017 um 16:31 Uhr).
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.10.2017, 22:55   #12
Gerhard H
MOF Guru
MOF Guru
Standard

Hallo culli,

ich würde es so machen:
Code:

Private Sub CommandButton2_Click()
Dim appword As Object, wordDoku As Object, wordbereich As Object
Dim pfad As String
Dim bereich As Range

Set bereich = ThisWorkbook.Worksheets("SZ").Cells(1, 1).CurrentRegion
Set appword = CreateObject("Word.Application")
appword.Visible = True
Set wordDoku = appword.Documents.Add
Set wordbereich = wordDoku.Paragraphs.last.Range

Gruppe = Application.InputBox("Geben Sie die Nummer der Gruppe ein:", Default:="SZ", Type:=2)
bereich.AutoFilter Field:=9, Criteria1:=Gruppe

bereich.Copy

    With wordDoku
        
        'noch leeres Dokument formatieren
        .Content.Font.Size = 15
        
        'Texte reinschreiben lassen
        .Content.InsertAfter "AG: ........... Gruppe: WG 1 bis 9 u. TG 1 = 3" & vbCr & "Gruppensprecher: Frau ........... ; 02................" _
        & vbCrLf & "Teilnehmerliste: Selbstzahler nicht gen. Funktionstraining" & vbCr & "Zeitraum: __ Halbjahr 2__ " & vbLf
        .Paragraphs(2).Range.Font.Size = 15
        
        'die kopierte gefilterte Tabelle einfügen
        Set wordbereich = wordDoku.Paragraphs.last.Range
        wordbereich.Paste 'und weiter im Text
        .Content.InsertAfter vbCr & _
          "Datum Bearbeitung" & vbCr & "Unterschrift:__________________________"
    End With
End Sub

__________________

Gruß
Gerhard
Gerhard H ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.10.2017, 10:54   #13
culli25
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Gerhard, vielen Dank für deine Unterstützung. Es ist jetzt natürlich ein perfekter Code. Dafür nochmals Danke und Gruß Culli
culli25 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:27 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.