Hallo zusammen,
in der Vergangenheit habe ich sehr viel mit Excel gearbeitet. Wobei in fast allen Tabelle Makros verwendet wurden. Seit ein paar Monaten steige ich mit den verschiedenen Tabellen auf Calc um und versuche auch die Funktionalität der Makros mitzunehmen. Aktuell verzweifle ich daran mehrere Bereiche bei "getCellRangeByName" zu definieren. Ein paar Lösungen habe ich in den Foren gefunden, aber sie funktionieren bei mir nicht. Ich bekomme immer Fehlermeldungen.
Was habe ich gemacht:
Code: Alles auswählen
sub schreib_x(ereignis)
oDoc=thiscomponent
' Versuch 1
'oBereich = ereignis.Spreadsheet.getCellRangeByName("c7:h25")
'Versuch 2
oBereich= ereignis.Spreadsheet.getCellRangeByName("c7:h25;o9:t27")
'Versuch 3
'oBereich=oDoc.sheets(0).getCellRangeByName("c7:h25;o9:t27")
'Versuch 4
'oBereich=oDoc.sheets(0).getCellRangeByName("c7:h25")
if oBereich.queryIntersection(ereignis.rangeaddress).count=0 then exit sub
If ereignis.String = "X" Then
ereignis.String = ""
Else
ereignis.String = "X"
End If
end sub
Nur Versuch 1 und 4 funktionieren
Bei den beiden anderen erscheint:
BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.uno.RuntimeException
Message: .
Liegt das an irgendwelchen Einstellungen oder habe ich noch etwas vergessen?
Danke, trotz schönes Wetter, für eure Hilfe.