Variable von einer Visio Datei in einer eingebunden Excel Tabelle aufrufen/zeigen

  • Excel

    Variable von einer Visio Datei in einer eingebunden Excel Tabelle aufrufen/zeigen

    Habe eine Excel Tabelle in eine Visio - Datei eingebunden, nun versuche ich den inhalt der Tabelle ("Die erste Zeile der Tabelle") zu ändern, indem ich ein Shape von einer Visio Zeichnung darstellen lasse und dort den Inhalt eingebe. Der Inhalt des Shapes, soll also in die eingebundene Excel-Tabelle eingespeichert werden. Ich habs jetzt soweit, dass ich gradmal die eingebundene Excel tabelle in eine Seperate Excel datei öffnen kann:

    Quellcode

    1. Public Sub OLEObjects_example()
    2. datum = Application.ActiveWindow.Page.Shapes.ItemFromID(2).Characters
    3. For i = 1 To ActiveDocument.OLEObjects.Count
    4. If Left(ActiveDocument.OLEObjects(i).ProgID, 11) = "Excel.Sheet" Then
    5. ActiveDocument.OLEObjects(i).Object.Activate
    6. ActiveDocument.OLEObjects(i).Object.Application.Visible = True
    7. ActiveDocument.OLEObjects(i).Object.Windows(1).Visible = True
    8. End If
    9. Next i
    10. End Sub


    Ich weiß jedoch nicht, wie ich Die Variable aus der Shape in die Excel Spalte einfügen kann/soll. Wurde durch Google leider nicht schlauer.


    Beispiel:
    NR
    Datum
    1
    14.10.2008
    2


    12.12.2016


    Datum: 12.12.2016 soll das Datum in der Tabelle (14.10.2008) überschreiben.


    Ich bedanke mich für eure Hilfe

    Mit freundlichen Grüßen

    Jizzy

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Jizzy“ ()