' Dialog gestalten:

Begin Dialog Rechnung 800, 400, 204, 92, "Kosten"
  Text 4,4,92,12, "Wie lautet die Rechnungs-Nr.:"
  Text 4,24,92,12, "Wie lautet das Rechnungs-Datum:"
  Text 4,44,92,12, "Wie hoch ist der Rechnungs-Betrag:"
  TextBox 104,4,88,10, .Box1
  TextBox 104,24,88,10, .Box2
  TextBox 104,44,88,10, .Box3
  OKButton 36,72,48,12
  CancelButton 112,72,48,12
End Dialog

Sub Kosten

' PlanMaker starten:

Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible  = True
pm.Application.Workbooks.Open("C:\Users\micha\Desktop\Kosten.pmdx")

' Dialog Anweisungen:

Dim Dlg1 As Rechnung
Dlg1.Box1 = ""
Dlg1.Box2 = ""
Dlg1.Box3 = ""
button = Dialog(Dlg1)
If button = 0 Then Exit Sub

' Werte in die Tabelle eintragen:

pm.Application.Range("F8").Value = Dlg1.Box1
pm.Application.Range("H8").Value = Dlg1.Box2
pm.Application.Range("I8").Value = Dlg1.Box3

' Neue Zellen einfugen:

pm.Application.ActiveSheet.Range("F7:I7").Select
pm.Application.ActiveSheet.Selection.Copy
pm.Application.ActiveSheet.Range("F8:I8").Select
pm.Application.ActiveSheet.Selection.Insert Shift:=xlDown

' Zellen verbinden:

pm.Application.ActiveSheet.Range("F8:G8").MergeCells = True

End Sub