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
Bei den beiden anderen erscheint:
Liegt das an irgendwelchen Einstellungen oder habe ich noch etwas vergessen?BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.uno.RuntimeException
Message: .
Danke, trotz schönes Wetter, für eure Hilfe.