SoftMaker.de

versuche es mal hiermit:

Sub Zeilenzahl ()
Dim pm As Object
Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True

Dim zeilen As Integer

SendKeys "^{Home}", True
SendKeys "^+{End}", True

' Zeilenzahl der markierten Tabelle
zeilen = pm.ActiveSheet.Selection.Rows.Count ...