Private Sub CommandButton1_Click()

'Dokument definieren
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

'Blatt definieren
Dim oActiveSheet As Sheet
Set oActiveSheet = oDrawDoc.ActiveSheet

'Variablen deklarieren
Dim AM_0 As Layer
Dim Schneiden As Layer
Dim oView As DrawingView
Dim oCurve As DrawingCurve
Dim oSegment As DrawingCurveSegment
    
'Layer zuweisen
Set Schneiden = oDrawDoc.StylesManager.Layers.Item("Schneiden")
Set AM_0 = oDrawDoc.StylesManager.Layers.Item("AM_0")
    
'jede Ansicht
For Each oView In oActiveSheet.DrawingViews
    
    'ist es eine Abicklung?
    If oView.IsFlatPatternView = True Then
        
        'Layer zuweisen
        For Each oCurve In oView.DrawingCurves

            For Each oSegment In oCurve.Segments

                If oSegment.Layer.Name = "AM_0" = True Then

                    oSegment.Layer = Schneiden
                
                Else
            
                End If
            Next oSegment
        Next oCurve
    
    Else
    End If
    
Next oView

'Unsinn
MsgBox ("YYyyeeeeeeer! Das Programm läuft!!")

End Sub