Thema Datum  Von Nutzer Rating
Antwort
Rot Eingebette Excel in Word - Excel Makro ausführen
17.05.2020 16:52:50 Sophia
NotSolved
17.05.2020 16:59:16 Gast3333
*
NotSolved
17.05.2020 17:07:31 Sophia
NotSolved
17.05.2020 17:12:56 Gast3333
*
NotSolved
17.05.2020 17:16:16 Gast56170
NotSolved
17.05.2020 17:24:37 Gast3333
NotSolved
17.05.2020 17:27:40 Sophia
NotSolved
17.05.2020 17:31:07 Gast3333
NotSolved
17.05.2020 17:38:59 Sophia
NotSolved
17.05.2020 17:49:05 Gast3333
NotSolved
17.05.2020 17:58:26 Sophia
NotSolved
17.05.2020 18:05:00 Gast3333
NotSolved
17.05.2020 18:12:59 Sophia
NotSolved
17.05.2020 18:16:59 Gast3333
NotSolved
17.05.2020 18:20:58 Sophia
NotSolved
17.05.2020 18:23:23 Gast85302
NotSolved
17.05.2020 18:25:55 Gast3333
NotSolved
17.05.2020 18:30:51 Sophia
NotSolved
17.05.2020 18:52:54 Gast3333
NotSolved

Ansicht des Beitrags:
Von:
Sophia
Datum:
17.05.2020 16:52:50
Views:
131
Rating: Antwort:
  Ja
Thema:
Eingebette Excel in Word - Excel Makro ausführen

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()
'
 
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
 
 
Habt ihr eine Idee, wie ich die Ausführung dieses Makros direct von Word aus starten kann? 

Euch noch einen schönen Abeend und liebe Grüße

Sophia
 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Eingebette Excel in Word - Excel Makro ausführen
17.05.2020 16:52:50 Sophia
NotSolved
17.05.2020 16:59:16 Gast3333
*
NotSolved
17.05.2020 17:07:31 Sophia
NotSolved
17.05.2020 17:12:56 Gast3333
*
NotSolved
17.05.2020 17:16:16 Gast56170
NotSolved
17.05.2020 17:24:37 Gast3333
NotSolved
17.05.2020 17:27:40 Sophia
NotSolved
17.05.2020 17:31:07 Gast3333
NotSolved
17.05.2020 17:38:59 Sophia
NotSolved
17.05.2020 17:49:05 Gast3333
NotSolved
17.05.2020 17:58:26 Sophia
NotSolved
17.05.2020 18:05:00 Gast3333
NotSolved
17.05.2020 18:12:59 Sophia
NotSolved
17.05.2020 18:16:59 Gast3333
NotSolved
17.05.2020 18:20:58 Sophia
NotSolved
17.05.2020 18:23:23 Gast85302
NotSolved
17.05.2020 18:25:55 Gast3333
NotSolved
17.05.2020 18:30:51 Sophia
NotSolved
17.05.2020 18:52:54 Gast3333
NotSolved