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"