Hallo liebes Forum,

ich bitte um eure Hilfe, da ich seit mehreren Stunden (ergebnislos) versuche, ein (Excel)Makro aus einem eingebetteten Worksheet in Microsoft Word zu starten.

Im Word Dokument habe ich mehrere Excel-Sheets mit Kostenlisten eingefügt, um Tabellen darzustellen. 

Da ich mehrere Makros geschrieben, die den Inhalt der entsprechenden Tabellen automatisch verändern, möchte ich dieses Makro gerne in Word ausführen können.

Dieses wird mir jedoch leider nicht unter den Makros in Word angezeigt, sodass ich jeden einzelne Tabelle durch Doppelklicken in Excel öffnen muss um dort dann jeweils das Makro zu starten.

Da es sich jedoch um circa 50 (einzelne) kleinere Tabellen handelt, würde ich die jeweiligen Makros gerne von der Word-Datei aus starten können. 


Es ist leider nicht möglich (per Vorgabe) , die Tabellen komplett in Excel darzustellen.

Anbei mein Excel-VBA Code (beispiel für eine Tabelle)

Sub Macro12345()
'
' Macro12345 Macro
'
' Keyboard Shortcut: Ctrl+Shift+A
'
    Range("B4").Select
    Selection.Copy
    Range("C4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("B4").Select
    Selection.Copy
    Range("C4").Select
    ActiveSheet.Paste
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C5").Select
    ActiveSheet.Paste
    Range("B6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C6").Select
    ActiveSheet.Paste
    Range("B8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C8").Select
    ActiveSheet.Paste
    Range("B9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C9").Select
    ActiveSheet.Paste
    Range("B10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("C10").Select
    ActiveSheet.Paste
    Range("B4").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("B5:B6").Select
    Range("B6").Activate
    Selection.ClearContents
    Range("B8:B10").Select
    Selection.ClearContents
    Range("D4:D6").Select
    Selection.Copy
    Range("B4").Select
    ActiveSheet.Paste
    Range("D8:D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B8:B10").Select
    ActiveSheet.Paste
End Sub