Sub CATMain()

    Set objWindows = CATIA.Windows
    If objWindows.Count = 0 Then
        MsgBox "Es ist kein Dokument geöffnet." & vbNewLine & _
        "Das Makro kann nicht ausgeführt werden und wird beendet.", vbCritical + vbOKOnly, "Kein Dokument offen"
        Exit Sub
    End If


    '***Auslesen der Dokumentart
    Set objDoc = CATIA.ActiveDocument
    strTyp = TypeName(objDoc)
    If strTyp <> "DrawingDocument" Then
        MsgBox "Dieses Dokument ist kein Drawing." & vbNewLine & _
        "Das Makro kann nicht ausgeführt werden und wird beendet.", vbCritical + vbOKOnly, "Falscher Dokumententyp"
        Exit Sub
    End If


    Set drwSheets = objDoc.Sheets
    Set drwSheet = drwSheets.ActiveSheet
    Set drwViews = drwSheet.Views
    
    intI = 1
    
    Set objSel = objDoc.Selection
    '***Vorselektion löschen um das Ergebniss nicht zu verfälschen
    objSel.Clear


    '***Ansicht mit dem Namen "Tabelle" erzeugen
    Set drwViewneu = drwSheet.Views.Add("Tabelle_" & intI)
    
    '***Ansicht ansprechen
    Set drwView = drwViews.Item("Tabelle_" & intI)
    
    '***Ansicht aktivieren
    drwView.Activate

    '***X Position der Tabelle
    intX = 10
    '***Y Position der Tabelle
    intY = 38
    '***Zeilenanzahl
    intZeilenanzahl = 4
    '***Spaltenanzahl
    intSpaltenanzahl = 4
    '***Zeilenhöhe
    intZeilenhoehe = 7
    '***Spaltenbreite
    intSpaltenbreite = 20


 '***Tabelle erstellen
    Set vntTabelle = drwView.Tables.Add(intX, intY, intZeilenanzahl, intSpaltenanzahl, intZeilenhoehe, intSpaltenbreite)
    '***Tabelle umbenennen
    vntTabelle.Name = "Tabelle.1"
    
    '***Einfügepunkt der Tabelle
    vntTabelle.AnchorPoint = CatTableTopLeft


    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 1, 1, "REF"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 1, 1, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(1, 1)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"


    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 1, 2, "X"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 1, 2, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(1, 2)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"


    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 1, 3, "Y"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 1, 3, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(1, 3)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"



    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 1, 4, "Z"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 1, 4, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(1, 4)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"


    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 2, 1, "Punkt1"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 2, 1, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(2, 1)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"



    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 3, 1, "Punkt2"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 3, 1, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(3, 1)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"



    '***Zelle mit Wert füllen
    vntTabelle.SetCellString 4, 1, "Punkt3"
    '***Textausrichtung: mitte, mitte
    vntTabelle.SetCellAlignment 4, 1, CatTableMiddleCenter
    '***Zellenwert ansprechen
    Set vntZellenwert = vntTabelle.GetCellObject(4, 1)
    '***Schriftgröße definieren
    vntZellenwert.SetFontSize 0, 0, 3
    '***Schrifttyp definieren
    vntZellenwert.SetFontName 0, 0, "Monospac821 BT"


End Sub