'DATUMS auf Layer 60 / 61 verschieben
        inputcorr = False
        startlayer = L_Datums

        For Each datumobj As DisplayableObject In wP.Datums
            'Filtern von Sheet Metal objekten
            If datumobj.JournalIdentifier.Contains("SB_") Then Continue For
            'Filtern von Datums in Sketchen, sind auf layer 271
            If datumobj.Layer > 256 Then Continue For
            If Not datumobj.IsBlanked AndAlso wP.Layers.GetState(datumobj.Layer) <> Layer.State.Hidden Then

                Dim an_feat As NXOpen.Tag = NXOpen.Tag.Null
                ufs.Modl.AskObjectFeat(datumobj.Tag, an_feat)
                If an_feat <> NXOpen.Tag.Null Then

                    Dim datumfeat As NXOpen.Features.Feature = NXOpen.Utilities.NXObjectManager.Get(an_feat)
                    If Not datumfeat.FeatureType.StartsWith("DATUM_CSYS") Then
                        objArray(0) = datumobj
                        datumobj.Highlight()
                        wP.Views.Refresh()

                        Do Until inputcorr = True
                            Try
                                startlayer = NXInputBox.GetInputNumber(datumobj.JournalIdentifier + " - Layer " + Str(L_Datums) + " - " + Str(L_upper_Datums), "Datum - Ebene", startlayer)
                                If startlayer < L_Datums Or startlayer > L_upper_Datums Then
                                    If UGII_LANG = nxlang.de Then
                                        MsgBox("Bitte Nummer zwischen: " & L_Datums.ToString & " und: " & L_upper_Datums.ToString & " eingeben.")
                                    Else
                                        MsgBox("Please enter a number between: " & L_Datums.ToString & " and: " & L_upper_Datums.ToString & ".")
                                    End If
                                    inputcorr = False
                                Else
                                    inputcorr = True
                                End If

                            Catch fex As FormatException
                                If UGII_LANG = nxlang.de Then
                                    MsgBox("Bitte Nummer eingenben!")
                                Else
                                    MsgBox("Please enter a NUMBER!")
                                End If
                                inputcorr = False
                            End Try
                        Loop

                        wP.Layers.MoveDisplayableObjects(Val(startlayer), objArray)

                        datumobj.Unhighlight()
                        inputcorr = False

                        startlayer = startlayer + 1

                        If startlayer >= L_upper_Datums Then
                            startlayer = L_Datums
                        End If

                    ElseIf datumfeat.FeatureType.StartsWith("DATUM_CSYS") Then
                        objArray(0) = datumobj
                        wP.Layers.MoveDisplayableObjects(L_Ksys, objArray)
                    End If


                End If

            End If
        Next

        If UGII_LANG = nxlang.de Then
            s.SetUndoMark(Session.MarkVisibility.Visible, "Bezugsobj Layer")
        Else
            s.SetUndoMark(Session.MarkVisibility.Visible, "Datums layer")
        End If