von F3K Total » Mo, 22.12.2014 18:26
Moin,
ich habe alle Datenbankbereiche, die
__Anonymous_Sheet_DB__ im Namen haben, mit diesem Makro gelöscht:
Code: Alles auswählen
Sub S_DELETE_DB_RANGES
oDBR = thiscomponent.DatabaseRanges
sEN = oDBR.ElementNames
counter = 0
for i = 0 to ubound(sEN)
if instr(sEN(i),"__Anonymous_Sheet_DB__") > 0 then
counter = counter + 1
oDBR.removebyname(sEN(i))
endif
next i
if counter = 0 then
msgbox ("Fertig, keine DB-Bereiche mit ""__Anonymous_Sheet_DB__"" vorhanden.",64,"Anonymous_Sheet_DB entfernen")
else
msgbox ("Fertig, "+counter+" DB-Bereiche mit ""__Anonymous_Sheet_DB__"" gelöscht.",64,"Anonymous_Sheet_DB entfernen")
end if
End Sub
Gruß R
Moin,
ich habe alle Datenbankbereiche, die [color=#0040FF][b]__Anonymous_Sheet_DB__[/b][/color] im Namen haben, mit diesem Makro gelöscht:
[code]Sub S_DELETE_DB_RANGES
oDBR = thiscomponent.DatabaseRanges
sEN = oDBR.ElementNames
counter = 0
for i = 0 to ubound(sEN)
if instr(sEN(i),"__Anonymous_Sheet_DB__") > 0 then
counter = counter + 1
oDBR.removebyname(sEN(i))
endif
next i
if counter = 0 then
msgbox ("Fertig, keine DB-Bereiche mit ""__Anonymous_Sheet_DB__"" vorhanden.",64,"Anonymous_Sheet_DB entfernen")
else
msgbox ("Fertig, "+counter+" DB-Bereiche mit ""__Anonymous_Sheet_DB__"" gelöscht.",64,"Anonymous_Sheet_DB entfernen")
end if
End Sub[/code]
Gruß R