Anzeige
Archiv - Navigation
424to428
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
424to428
424to428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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!!!!
:-)
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige