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

Word mit Excel steuern

Forumthread: Word mit Excel steuern

Word mit Excel steuern
Guido
In Word soll ein bestimmter Datensatz aus Excel geschrieben werden.

Private Sub CommandButton1_Click()
Application.ActivateMicrosoftApp xlMicrosoftWord
Dim Word As Word.Application
Set Word = CreateObject("Word.Application")
Word.Visible = True
Sheets("suche").Select
Range("a2:g2").Select
Selection.ClearContents
Sheets("datenbank").Select
Li2 = lbdaten.ListIndex + 2
Set d3 = Cells(Li2, 1)
Set d4 = Cells(Li2, 7)
Range(d3, d4).Select
Selection.Copy
ActiveSheet.Paste Destination:=Worksheets("suche").Range("a2")
Sheets("suche").Select
Columns("a:g").AutoFit
inhalt = Range("A2:G2").Value
Word.Application.Value = inhalt
End Sub

Danke im vorraus für ihre Antwort
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Word mit Excel steuern
05.05.2004 13:30:03
Christoph
Hallo Guido,
ich bin zwar kein VBA-Profi, aber ich könnte mir das wie folgt vorstellen:
Option Explicit

Sub nachWord()
Dim i%, AppWord As Object
Set AppWord = CreateObject("Word.Application")
With AppWord
.Visible = True
.Activate
.documents.Add
For i = 1 To 7
.Selection.TypeText Worksheets("suche").Cells(2, i).Value & ", "
Next
End With
Set AppWord = Nothing
End Sub

Gruß
Christoph
('ne Rückmeldung wäre nett)
PS: auf Select kann in 99,9% aller Fälle verzichtet werden
Anzeige
Danke für dein post
Guido
Noch mal danke. Immoment habe ich leider keine Zeit dein Script auszutesten. Wenn ich Zeit hab melde ich mich!!!!
:-)
;

Beliebteste Forumthreads (12 Monate)

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