Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kopieren in Excel, einfügen in Word

Kopieren in Excel, einfügen in Word
14.03.2005 10:06:04
Andreas
Hallo, guten Tag,
ist es möglich über ein Makro einen in Excel markierten
Tabellenbereich in Word als "Unformatierten Text" einzufügen.
Schiane Griaß
Andreas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in Excel, einfügen in Word
14.03.2005 11:39:57
Domke,
Hallo Andreas,
folgende Lösung sollte Dir helfen.
Viel Erfolg
Frank.

Sub KopiereSelection()
Dim rg As Range
Set rg = Application.Selection
If rg Is Nothing Then
MsgBox "..."
Exit Sub
End If
rg.Copy
Set rg = Nothing
Dim oApp As Word.Application
Set oApp = GetApplication("Word.Application")
If oApp Is Nothing Then
MsgBox "..."
Exit Sub
End If
Dim oDoc As Word.Document
Set oDoc = oApp.Documents.Add
oApp.Selection.PasteAndFormat wdFormatPlainText
Set oDoc = Nothing
Set oApp = = Nothing
End Sub


Function GetApplication(ByVal AppClass As String) As Object
Const vbErr_AppNotRun = 429
On Error Resume Next
Set GetApplication = GetObject(Class:=AppClass)
If Err.Number = vbErr_AppNotRun _
Then Set GetApplication = CreateObject(AppClass)
On Error GoTo 0
End Function

Anzeige
Danke
14.03.2005 14:48:42
Andreas
Vielen vielen Dank für die Mühen,
ich werds versuchen.
MfG
Andreas
Fehler beim Kompilieren...
14.03.2005 15:03:11
Andreas
Hallo, es gibt doch ein Problem:
Beim Starten des Makros kommt in der Zeile "Dim oApp As Word.Application"
die Meldung "Benutzerdefinierter Typ nicht definiert".
Was kann ich tun?
Schöne Grüße
Andreas
AW: Fehler beim Kompilieren...
14.03.2005 15:33:40
Domke,
Hallo Andreas,
über Extras/Verweise einen Verweis zu Deinem Word aktivieren!
Gruß
Frank.
Danke jetzt läufts...
14.03.2005 15:55:13
Andreas
Merci
Andreas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige