Sub CATMain() 
'__________________Ansicht bestimmen_________________________________
Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument 
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets 
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet 
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views 
Dim drawingView1 As DrawingView 
Set drawingView1 = drawingViews1.ActiveView
drawingView1.Activate

Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Item("Vorderansicht")
drawingView1.Activate 

'__________________________Dateipad LESEN___________________________________________
'Dateipfad = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Path
'FullName = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Fullname
Name = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.name
'________________________________________________________________________________________ 
'__________________________________ STRING zerlegen ____________________________

On Error Resume Next

vTXT = Left(Name, InStrRev(Name, ".") - 1) 
BenennTXT = Right( vTXT, Len( vTXT) -18 ) 'Right Left 
PosTXT1 = Left(vTXT, InStrRev(vTXT, "_") - 1)
PosTXT2 = Right( PosTXT1, Len( PosTXT1) -14 ) 'Right Left 
AuftragNrTXT1 = Left( PosTXT1, Len( PosTXT1) -9 ) 'Right Left 
bgTXT1 = Left( PosTXT1, Len( PosTXT1) -5 ) 'Right Left
bgTXT2 = Right( bgTXT1, Len( bgTXT1) -9 ) 'Right Left
'________________________________________________________________________________________ 


'__________________Ansicht bestimmen_________________________________ 


Set oDraw = CATIA.ActiveDocument                                                                            ' Zeichnung als aktives Dokument bestimmen
Set oSheets = oDraw.Sheets
oDraw.Sheets.Item(1).Activate
Set oSheet = oSheets.ActiveSheet
oSheet.Activate

Dim j As Integer

dim i as integer
dim oText as DrawingText
dim ocText as DrawingTexts 
'Schleife geht durch alle Texte eines Views durch
'Musst nur rausfinden, welche View der BackgroundView ist
'Und den an drawingView1 zuweisen 

For k = 1 To oDraw.Sheets.Count                       'Schleife fuer alle Sheets
        Set oSheet = oDraw.Sheets.Item(k)
        'If oSheet.IsDetail Then                         'Ist das Sheet kein Detail-Sheet?
            For j = 1 To oSheet.Views.Count             'Schleife fuer alle Views im Sheet
            Set oView = oSheet.Views.Item(j)
                Set ocText = oView.Texts
                    Z = 0
                        For s = 1 To ocText.Count
                        Set oText = ocText.Item(s)

                        If oText.Name = "Benennung" Then
                        oText.Text = BenennTXT
                        Z = 1
                        End If

                        If oText.Name = "Pos" Then
                        oText.Text = PosTXT2
                        Z = 1
                        End If

                        If oText.Name = "Auftrag" Then
                        oText.Text = AuftragNrTXT1
                        Z = 1
                        End If

				If oText.Name = "Zeich-Nr" Then
                        oText.Text = vTXT
                        Z = 1
                        End If

                        If oText.Name = "BG" Then
                        oText.Text = bgTXT2
                        Z = 1
                        End If
 
				If oText.Name = "Zeich-Nr" Then
                        oText.Text = PosTXT1
                        Z = 1
                        End If
                       
				Next
              
            Next
        'End If
    Next

Set drawingViews1 = drawingSheet1.Views
Set drawingView1 = drawingViews1.Item("Vorderansicht")
drawingView1.Activate 

End Sub