van cel naar gelinkte objecten

[sylvester-ponte]

met zo'n soort function:

Function Koppelingen(R As Range)
    Dim Ole As OLEObject
    For Each Ole In ActiveSheet.OLEObjects
        On Error GoTo volgende
        If Range(Ole.LinkedCell).Address = R.Address Then
            Koppelingen = Koppelingen & Ole.Name & " | "
        End If
volgende:
    Next
End Function

kun je door alle objecten te doorlopen ontdekken welke koppelingen er naar een bepaalde cel zijn.
anders om gaat het direct. via OLEObjec.LinkedCell.
bestaat er ook iets van cel.LinkedObjects?

in het voorbeeld wordt met deze omslachtige function de koppelingen weergegeven op de button.
ik zoek een directere code.

 

[HSV]

Ik ken een soort methode als cel.linkedObject helaas niet.
Je vraag stelling is ook niet geheel duidelijk.
Misschien?

Private Sub CommandButton2_Click()
Dim ole As OLEObject, koppeling As String
For Each ole In ActiveSheet.OLEObjects
   If ole.progID = "Forms.CheckBox.1" Then
     koppeling = koppeling & ole.Name & " - " & ole.LinkedCell & vbLf
   End If
  Next ole
MsgBox koppeling
End Sub

 

[sylvester-ponte]

Harry, de vraag is hoe vraag ik in excel de naar de celgelinkte objecten van een cel op.

dus als checkbox1 en checkbox2 aan A1 gelinkt zijn dan wil ik graag bvb via range("A1").linkedObjects deze 2 checkboxsen krijgen.
en dat zonder dat de vele andere checkboxen doorzocht moeten worden.

 

[edmoor]

Volgens mij gaat dat niet. De Checkbox is aan een cel gelinkt en niet andersom. Het is dus een attribuut van de Checkbox en niet van de cel. Daarnaast lijkt het me ook niet nodig. Als dat zo is ingesteld zullen beide Checkboxes altijd dezelfde waarde hebben.

 

[sylvester-ponte]

Daarnaast lijkt het me ook niet nodig. Als dat zo is ingesteld zullen beide Checkboxes altijd dezelfde waarde hebben.

dat is ook zo.
en dat kan best handig zijn.
soms wil ik een checkbox verwijderen aan de hand van de gelinkte cel.
dus: ik weet de cel en dan wil ik weten welke checkbox daar bij hoort.

 

[edmoor]

Het is niet een attribuut van de cel dus dat zul je dan toch in een loop bij de Checkboxes moeten bekijken.

 

[sylvester-ponte]

edmoor, eigenlijk betekend dat dat ik tijdens het initialiseren bvb in de noottekst van een cel de namen van de gelinkte objecten moet zetten.
of een dictionairy aan moet maken.
of weet iemand een ander cel attribuut waar nog tekst in (of bij) kan?

 

[pixcel]

Ik zou geen aparte administratie gaan bijhouden, die kan breken. Even zoeken op het moment dat het nodig is is veel eenvoudiger. Je hebt toch geen duizenden checkboxes op een sheet?

 

[sylvester-ponte]

Frans, het aantal checkboxen ligt bvb aan het soort vragenlijsten.

het is meer voor tijdens het opbouwen van sheets met checkboxen.
dan wil ik dat er continu bijgehouden wordt welke cellen enkel en welke cellen aan meerdere checkboxen gelinkt zijn.