Tabellenblattkopie mit Tabellenereignissen

[HUDGF]

Hallo zusammen!
Ich habe in einer Calc-Tabelle ein Tabellenblatt, dem bei den Tabellenereignissen ein Makro zugewiesen worden ist. Ich möchte dieses Tabellenblatt nun gerne mit den eingestellten Tabellenereignissen kopieren. Ist das überhaupt möglich?
Ich benutze LO 4.0 unter WinVista.
Vielen Dank schon einmal für Ihre Hilfe!

[F3K Total]

Hi,
sollte klappen:

Code: Alles auswählen

sub S_Copy_Sheet_With_Events
    oSheets = ThisComponent.sheets
    osheet = thiscomponent.currentController.activesheet
    nSheet = osheet.Rangeaddress.Sheet
    sName = osheet.Name
    sNewName = inputbox("bitte Namen für Kopie eingeben","Tabellenblatt kopieren",sName)
    oSheets.copyByName( sName, sNewName, nSheet + 1)
    onewsheet = oSheets(nSheet + 1)
    aSheetEvents = osheet.Events
    sEventNames = aSheetEvents.ElementNames
    aNewSheetEvents = onewsheet.Events
    for i = 0 to ubound(aSheetEvents.ElementNames)
        aEvent = aSheetEvents.getbyname(sEventNames(i))
        aNewSheetEvents.replaceByName(sEventNames(i),aEvent)
    next i
end sub

Gruß R

[HUDGF]

Hallo F3K Total,
vielen Dank für die Hilfe! Das Makro ist perfekt.
Liebe Grüße!