"Addieren" Makro Probleme

[BecksTown]

Guten Abend,

folgenes Makro...

Sub Main
oCell = ThisComponent.CurrentSelection
if ocell.supportsservice("com.sun.star.sheet.SheetCell") then
if oCell.Type = 0 then
oCell.Value = 1
else
oCell.Value = oCell.Value + 1
endif
endif
End Sub

... benutze ich für eine Schaltfläche und soweit funktioniert sie einwandfrei. NUR bei verbundenen Zellbereichen streikt sie. Ich bin mit meinem Latein am Ende. Hätte jemand eine Lösung für dieses Problem ?

Beste grüße

[karolus]

Hallo

NUR bei verbundenen Zellbereichen streikt sie.

Ich vermute "sie" meint in Wirklichkeit das Makro, und weiterhin das dieses nicht "streikt" sondern einfach nur durchläuft dabei feststellt das "ocell" eben aktuell nicht den Service "com.sun.star.sheet.SheetCell" unterstützt, und damit am Ende des äusseren 'IF …then … endif' ankommt und damit am 'end sub' Punkt

Ich muss mich im übrigen ziemlich ungeschickt anstellen um dieses Verhalten bei Auswahl einer verbundenen Zelle zu provozieren.

[BecksTown]

moin...

Das oben stehende Makro habe ich nicht selber geschrieben. Eigentlich versuche ich es immer selber ein weg zu finden, aber in diesem fall wusste ich nicht weiter. Leider beinhaltet ihre antwort keine Erklärung oder Lösungsansätze, die mir weiter helfen könnten.

[karolus]

Meine Antwort enthält Erklärungsansätze … und der Lösungsansatz ist doch offensichtlich, sorge halt dafür das beim Aufruf des Makros eine einzelne Zelle selektiert ist, das darf auch die obere linke Zelle eines verbundenen Bereichs sein, du scheinst an der Stelle eben mutmasslich irgendwie den verbundenen Bereich zu selektieren.

Sorry meine Glaskugel besteht auf einer Mittagsruhe bis 16:00Uhr!!

[BecksTown]

Danke für den Tipp. Ich werde mich später ran setzen.

Falls meine Antwort komisch rüber kam,war es nicht meine Absicht.

Besten dank