Ja, hast recht.
Ich habe versehentlich
if view.Selection.Top - view.Selection.Bottom = 1 then ...
statt
if view.Selection.Bottom - view.Selection.Top = 1 then ...
gecoded, und dann habe ich noch bemerkt, dass bei einer markierten Zeile Bottom gleich Top ist.
So siehts nun aus:
if view.Selection.Bottom - view.Selection.Top = 0 then ...
Und siehe da : Es klappt!
Vielen Dank