Hallo Leute,

ich habe ein kleines Problem.

Ich möchte mit einem Makro eine Tabelle bei Word erstellen und es nach belieben formatieren.

Anschließend möchte ich bestimmte Zellen verbinden und vergrößern (bzw. verkleinern).

Ich habe schon folgenden Code.

Sub Tabellenerstellung()

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=8, NumColumns:= _
        10, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Tabellenraster" Then
            .Style = "Tabellenraster"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
End Sub

Heraus kommt nur eine Standardtabelle

Sie sollte jedoch ungefähr so aussehen:

Kann mir wer helfen?

Besten Dank !!

Julliette