Zellbezüge über Macro ändern

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellbezüge über Macro ändern

Re: Zellbezüge über Macro ändern

von drogon » Sa, 06.10.2007 09:39

Danke für die Tips kann ich an anderer Stelle gebrauchen.

Mein Problem in VB6 konnte ich auf diese Weise lösen:

Set oEnum = oDoc.SheetLinks.createEnumeration
While oEnum.hasMoreElements
Set oLink = oEnum.NextElement
cNewLinkSourceForOO = cOO.Convertin(OOPath, cNewLinkSource)
oLink.URL = cNewLinkSourceForOO
Wend

MfG

:D

Re: Zellbezüge über Macro ändern

von komma4 » Do, 04.10.2007 23:29

Wenn Du Tabellenbezüge der Art

Code: Alles auswählen

='file:///zentrale/2007/oo2/calc_Tabelle.ods'#$Tabelle1.C2
meinst, so kannst Du die Suchen/Ersetzen-Funktion nutzen; in einem Makro in der Form SearchDescriptor, siehe den Einsatz in Füllwort-Liste


Zum Ändern von DDE-Links habe ich das Makro MassMoveDDE als Beispiel bereit gestellt.

Ist da was Gesuchtes darunter?

Zellbezüge über Macro ändern

von drogon » Do, 13.09.2007 09:45

Hi,
ich stehe vor dem problem das ich zwei calc Tabellen miteinander verknüpft habe.
So weit sogut, allerdings werden diese tabellen programmgesteuert aus einer vorlage erstellt und nach bestimmten kriterien
umbenannt. Nach dem umbenennen stimmen näturlich die tabellennamen in den bezügen nicht mehr.

in Excel gibt es eine function mit der ich die datasource der bezüge auf einen rutsch ändern kann.
das sieht in excel so aus:

'Zellbezug vorher
'='C:\tmp\[Altername.xls]Personal'!E4

alinks = oExl.ActiveWorkbook.LinkSources(xlExcelLinks)

cNewLinkSource = "C:\tmp\NeuerName.xls"

If Not IsEmpty(alinks) Then

For i = 1 To UBound(alinks)
oExl.ActiveWorkbook.ChangeLink alinks(i), _
cNewLinkSource, xlExcelLinks
Next i
End If

'Zellbezug nachher
'='C:\tmp\[NeuerName.xls]Personal'!E4

Jetzt meine frage gibt es in calc ein gegenstück zur changelink funktion?
bin leider nicht fündig geworden.
Das ganze soll aus einer VB6 anwendung heraus laufen.

Herzlichen Dank
Drogon :?

Nach oben