SoftMaker.de

Sub GlobalNumbering
   Dim pm As Object

   Set pm = CreateObject("PlanMaker.Application")
   If pm.Workbooks.Count = 0 Then
      MsgBox "Sie haben kein Dokument geöffnet!"
      Stop
   End If

   Open "nummern.txt" For Input As #1
   Input #1, num
   Close #1

   pm.ActiveCell.Value = num
   num = num + 1

   Open "nummern.txt" For Output As #1
   Print #1, num
   Close #1

   Set pm = Nothing
End Sub

   pm.ActiveCell.Value = num