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