Dim nallApplication As New NALLCOMSERVERLib.AllplApplication
        Dim nallproject As NALLCOMSERVERLib.AllplProject
        Dim nalllayout As NALLCOMSERVERLib.AllplLayout
        Dim checkdate As Date
        Dim checkname As String
 
        nallApplication = New NALLCOMSERVERLib.AllplApplication
 
        nallproject = nallApplication.ActiveProject
        nallproject.Workingmode = 1 'Planzusammenstellung
 
        nalllayout = nallproject.ActiveLayout
        nalllayout.GetChecked(DateTime:=checkdate, editor:=checkname)
 
        MsgBox(checkdate & "-" & checkname)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist