Kopieren in Excel, einfügen in Word

• Kopieren in Excel, einfügen in Word von Andreas vom 14.03.2005 10:06:04
• AW: Kopieren in Excel, einfügen in Word - von Domke, Frank am 14.03.2005 11:39:57
  • Danke - von Andreas am 14.03.2005 14:48:42
  • Fehler beim Kompilieren... - von Andreas am 14.03.2005 15:03:11
    • AW: Fehler beim Kompilieren... - von Domke, Frank am 14.03.2005 15:33:40
      • Danke jetzt läufts... - von Andreas am 14.03.2005 15:55:13

Betrifft: Kopieren in Excel, einfügen in Word
von: Andreas

Geschrieben am: 14.03.2005 10:06:04
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

Betrifft: AW: Kopieren in Excel, einfügen in Word
von: Domke, Frank

Geschrieben am: 14.03.2005 11:39:57
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

Betrifft: Danke
von: Andreas
Geschrieben am: 14.03.2005 14:48:42
Vielen vielen Dank für die Mühen,
ich werds versuchen.
MfG
Andreas

Betrifft: Fehler beim Kompilieren...
von: Andreas
Geschrieben am: 14.03.2005 15:03:11
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

Betrifft: AW: Fehler beim Kompilieren...
von: Domke, Frank
Geschrieben am: 14.03.2005 15:33:40
Hallo Andreas,
über Extras/Verweise einen Verweis zu Deinem Word aktivieren!
Gruß
Frank.

Betrifft: Danke jetzt läufts...
von: Andreas
Geschrieben am: 14.03.2005 15:55:13
Merci
Andreas

Excel-Beispiele zum Thema "Kopieren in Excel, einfügen in Word"
Blätter in andere Arbeitsmappen kopieren	Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren	Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen	Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren	VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren	Formel bis zur letzten Zeile der Nebenspalte kopieren