ich habe in einer Excel-2010-Anwendung zwei Arbeitsmappen mit jeweils einem Arbeitsblatt mit jeweils derselben Formel in einer Zelle.
AM1, Zelle: "=MupDbTitel(zelle("dateiname"))" mit Titel "Titel1" (BuiltinDocumentPropertie von AM1)
AM2, Zelle: "=MupDbTitel(zelle("dateiname"))" mit Titel "Titel2" (BuiltinDocumentPropertie von AM2)
Die Formel läuft als permanent eingebundenes AddIn (xla-Datei):
Public Function MupDbTitel(Optional ByRef sName As String) As String
Application.Volatile True
MupDbTitel = Workbooks(mdlProg.GetWorkBookNameByFullPath(sName)).BuiltinDocumentProperties. _
_
_
_
Item("Title").Value
End Function
Public Function GetWorkBookNameByFullPath(ByVal sFullPath As String) As String
Dim v1, v2 As Variant
v1 = Split(sFullPath, "[")
If UBound(v1) > 0 Then
v2 = Split(v1(1), "]")
If UBound(v2) > 0 Then
GetWorkBookNameByFullPath = v2(0)
End If
End If
End Function
Das Problem:
Löst man nun für das Arbeitsblatt in AM1 eine Berechnung aus, wird das andere Arbeitsblatt von AM2 ebenfalls berechnet. Das wäre nicht schlimm, wenn da nicht die Zelle in AM2 den Wert von AM1 (Titel1) erhalten würde.
Was kann ich tun, um eine unabhängige Berechnug zu erhalten? Sodass in jeder AM der zu ihr gehörige Titel ausgegeben wird?