Hallo Forum,

ich beschäftige mich erst seit ein paar Wochen mit VBA und habe daher vermutlich einige Lücken, was die Basics angeht. Den unten eingefügten Code habe ich geschrieben, weil ich den Inhalt verschiedener Zellen in die Textmarken einer Wordvorlage einfügen will. Beim schreiben ist mir dann aufgefallen, dass sich das Ganze doch gewiss auch irgendwie optimieren lassen müsste, indem ich zum Beispiel eine Funktion, beispielsweise für Audio schreibe, welche die Daten aus Excel ausliest und dann eine Funktion schreibe, welche diese Daten dann in Word einfügt. Allerdings habe ich nicht wirklich eine Vorstellung wie genau das funktionieren kann, was vermutlich daran liegt, dass ich mich erst seit ein paar Wochen mit VBA beschäftige. Über jede Hilfe bin ich wirklich dankbar, auch wenn euch weitere Verbesserungsmöglichkeiten zum folgenden Code einfallen sollten. 

Option Explicit

Sub WordDokumentErstellen()
    Dim wdApp As Word.Application
    Set wdApp = New Word.Application
    With wdApp
            .Visible = True
            .Activate
    End With
    Dim wddoc
    Dim TabelleDaten
    Set TabelleDaten = ThisWorkbook.Worksheets("Daten")
        
    Set wddoc = wdApp.Documents.Add("C:\Users\avid-buero_02\Documents\Benutzerdefinierte Office-Vorlagen\MAZKARTE_VORLAGE.dotm")
    
    'Dim TC As String
    'TC = wdApp.ActiveDocument.Bookmarks().Range.Text
   
'Kopfzeile

        wdApp.ActiveDocument.Bookmarks("Titel").Range.Text = Worksheets("Daten").Range("B3")
        wdApp.ActiveDocument.Bookmarks("Folge").Range.Text = Worksheets("Daten").Range("A" & p_AusgewaelteFolge) & " - " & Range("B" & p_AusgewaelteFolge)
        wdApp.ActiveDocument.Bookmarks("Produktionsnummer").Range.Text = Worksheets("Daten").Range("C" & p_AusgewaelteFolge)
        wdApp.ActiveDocument.Bookmarks("Kunde").Range.Text = Worksheets("Daten").Range("B2")
        wdApp.ActiveDocument.Bookmarks("Datum").Range.Text = Worksheets("Daten").Range("D" & p_AusgewaelteFolge)
        wdApp.ActiveDocument.Bookmarks("Bandstatus").Range.Text = Worksheets("Berechnungen").Range("K4")
        
        wdApp.ActiveDocument.Bookmarks("Aspect_Ratio").Range.Text = Worksheets("Berechnungen").Range("M4")
        wdApp.ActiveDocument.Bookmarks("Bandformat").Range.Text = Worksheets("Berechnungen").Range("N4")
        wdApp.ActiveDocument.Bookmarks("Datenrate").Range.Text = "Noch Nicht Belegt!"
        wdApp.ActiveDocument.Bookmarks("Framerate").Range.Text = Worksheets("Berechnungen").Range("P4")
        wdApp.ActiveDocument.Bookmarks("Größe").Range.Text = Worksheets("Berechnungen").Range("Q4")
        wdApp.ActiveDocument.Bookmarks("min_GB").Range.Text = Worksheets("Daten").Range("I4")
        wdApp.ActiveDocument.Bookmarks("Mode").Range.Text = Worksheets("Berechnungen").Range("R4")
        wdApp.ActiveDocument.Bookmarks("Seitenverhältnis").Range.Text = Worksheets("Berechnungen").Range("L4")
        wdApp.ActiveDocument.Bookmarks("SystemSignal").Range.Text = Worksheets("Berechnungen").Range("S4")
        wdApp.ActiveDocument.Bookmarks("TVNorm").Range.Text = Worksheets("Berechnungen").Range("O4")
        wdApp.ActiveDocument.Bookmarks("VITC_1").Range.Text = Worksheets("Berechnungen").Range("T4")
        wdApp.ActiveDocument.Bookmarks("VITC_2").Range.Text = Worksheets("Berechnungen").Range("U4")
        
'Technischer Vorspann
        
        wdApp.ActiveDocument.Bookmarks("TechnischerVorspann01").Range.Text = Worksheets("Berechnungen").Range("S6")
        wdApp.ActiveDocument.Bookmarks("TechnischerVorspann02").Range.Text = Worksheets("Berechnungen").Range("S7")
        wdApp.ActiveDocument.Bookmarks("TechnischerVorspann03").Range.Text = Worksheets("Berechnungen").Range("S8")

'TC

        wdApp.ActiveDocument.Bookmarks("ETC_Programm").Range.Text = Format(Worksheets("Daten").Range("E" & p_AusgewaelteFolge), "##:##:##:##")

'Audio
        
        wdApp.ActiveDocument.Bookmarks("Audio_01").Range.Text = Worksheets("Berechnungen").Range("L6")
        wdApp.ActiveDocument.Bookmarks("Audio_02").Range.Text = Worksheets("Berechnungen").Range("L7")
        wdApp.ActiveDocument.Bookmarks("Audio_03").Range.Text = Worksheets("Berechnungen").Range("L8")
        wdApp.ActiveDocument.Bookmarks("Audio_04").Range.Text = Worksheets("Berechnungen").Range("L9")
        wdApp.ActiveDocument.Bookmarks("Audio_05").Range.Text = Worksheets("Berechnungen").Range("L10")
        wdApp.ActiveDocument.Bookmarks("Audio_06").Range.Text = Worksheets("Berechnungen").Range("L11")
        wdApp.ActiveDocument.Bookmarks("Audio_07").Range.Text = Worksheets("Berechnungen").Range("L12")
        wdApp.ActiveDocument.Bookmarks("Audio_08").Range.Text = Worksheets("Berechnungen").Range("L13")
        wdApp.ActiveDocument.Bookmarks("Audio_09").Range.Text = Worksheets("Berechnungen").Range("L14")
        wdApp.ActiveDocument.Bookmarks("Audio_10").Range.Text = Worksheets("Berechnungen").Range("L15")
        wdApp.ActiveDocument.Bookmarks("Audio_11").Range.Text = Worksheets("Berechnungen").Range("L16")
        wdApp.ActiveDocument.Bookmarks("Audio_12").Range.Text = Worksheets("Berechnungen").Range("L17")

'Sprache
        
        wdApp.ActiveDocument.Bookmarks("Sprache_01").Range.Text = Worksheets("Berechnungen").Range("N6")
        wdApp.ActiveDocument.Bookmarks("Sprache_02").Range.Text = Worksheets("Berechnungen").Range("N7")
        wdApp.ActiveDocument.Bookmarks("Sprache_03").Range.Text = Worksheets("Berechnungen").Range("N8")
        wdApp.ActiveDocument.Bookmarks("Sprache_04").Range.Text = Worksheets("Berechnungen").Range("N9")
        wdApp.ActiveDocument.Bookmarks("Sprache_05").Range.Text = Worksheets("Berechnungen").Range("N10")
        wdApp.ActiveDocument.Bookmarks("Sprache_06").Range.Text = Worksheets("Berechnungen").Range("N11")
        wdApp.ActiveDocument.Bookmarks("Sprache_07").Range.Text = Worksheets("Berechnungen").Range("N12")
        wdApp.ActiveDocument.Bookmarks("Sprache_08").Range.Text = Worksheets("Berechnungen").Range("N13")
        wdApp.ActiveDocument.Bookmarks("Sprache_09").Range.Text = Worksheets("Berechnungen").Range("N14")
        wdApp.ActiveDocument.Bookmarks("Sprache_10").Range.Text = Worksheets("Berechnungen").Range("N15")
        wdApp.ActiveDocument.Bookmarks("Sprache_11").Range.Text = Worksheets("Berechnungen").Range("N16")
        wdApp.ActiveDocument.Bookmarks("Sprache_12").Range.Text = Worksheets("Berechnungen").Range("N17")
    
    
    
   
    
End Sub