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

Beiträge aus den Excel-Beispielen zum Thema "Kopieren in Excel, einfügen in Word"