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:
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:
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
Quellcode
- Public Sub OLEObjects_example()
- datum = Application.ActiveWindow.Page.Shapes.ItemFromID(2).Characters
- For i = 1 To ActiveDocument.OLEObjects.Count
- If Left(ActiveDocument.OLEObjects(i).ProgID, 11) = "Excel.Sheet" Then
- ActiveDocument.OLEObjects(i).Object.Activate
- ActiveDocument.OLEObjects(i).Object.Application.Visible = True
- ActiveDocument.OLEObjects(i).Object.Windows(1).Visible = True
- End If
- Next i
- 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“ ()