HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Zellenbezüge von Shapes über VBA ändern

Forumthread: Zellenbezüge von Shapes über VBA ändern
9 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zellenbezüge von Shapes über VBA ändern

19.02.2025 12:08:07

Patrick1989

Guten Tag in die Runde,

ich hoffe es kann mir jemand weiterhelfen. Ich verwende Shapes (Rechteck z.B.) als Anzeigefenster für ein Diagramm, was auf einem anderen Tabellenblatt oder auch auf einer anderen Datei liegt. Diese Verknüpfung ändere ich manuell über die Bearbeitungszeile, was auch super funktioniert. Jetzt ist es so, dass ich diese Verknüpfung ändern muss, wenn ein bestimmtes Ereignis eintritt. Mir ist es per VBA leider nicht möglich auf die Bearbeitungszeile zuzugreifen um diese Verknüpfung zu ändern. Folgendes habe ich schon versucht:

Sub Test3()



Dim Pfad As String



    text = Tabelle7.Cells(-1 + 4, 3).FormulaLocal



        Tabelle7.Shapes("Rechteck 1").Formularlocal = "='" & Pfad

    

End Sub

Ich hoffe es kann ihr könnt mir da weiterhelfen, da ich ohne Erfolg schon Stunden auf Google verbracht habe :/

MfG Patrick

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Schreibfehler?

19.02.2025 12:14:24

MCO
AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 15:08:35

Piet
AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 21:16:03

Patrick1989
AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 21:34:02

Patrick1989
AW: Zellenbezüge von Shapes über VBA ändern

20.02.2025 00:14:16

Piet
AW: Schreibfehler?

19.02.2025 13:37:35

Patrick1989
AW: Schreibfehler?

19.02.2025 13:52:44

peter
AW: Schreibfehler?

19.02.2025 14:53:49

Patrick1989
AW: Schreibfehler?

19.02.2025 15:02:39

peter

Schreibfehler?

19.02.2025 12:14:24

MCO

Moin!

Vielleicht hilft es ja, wenn du aus "Formularlocal" Formulalocal machst....
Gruß, MCO

AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 15:08:35

Piet

Hallo

bitte beachten: "text" oder "Text" NIEMALS als Variable verwenden, es ist ein VBA Schlüsselwort!
Was steht in der Zelle C3 bei Tabelle7? Befindet sich dort der Pfad?? Dann "text" in "Pfad" ändern!
In dieser Code Zeile gibst du einen Pfad an, der aber nirgendwo geladen wird!! Reicht dir das??
Tabelle7.Shapes("Rechteck 1").Formularlocal = "='" & Pfad

mfg Piet

AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 21:16:03

Patrick1989

Sorry, ich hab sowohl den falschen Code gepostet als auch das falsche wording benutzt.

Es handelt sich hier um eine Verknüpfte Grafik diese ist mit dem Bereich eines Diagramms verlinkt.

Diese Verlinkung soll sich ändern, wenn ein Ereignis eintritt.

Das wäre mein erster Lösungsansatz, der aber nicht funktioniert :/

Sub Test1()



Dim Pfad As String



    Pfad = Tabelle2.Cells(2, 1).FormulaLocal 'In A1 steht der alte Pfad und in A2 der neue Pfad



        Tabelle1.Shapes("Grafik 6").FormulaLocal = "=" & Pfad

    

End Sub

Ist das möglich? Wenn nicht hätte ich noch die Möglichkeit, die Grafiken hintereinander zu legen und abwechselnd ein-/auszublenden.

ich bitte vielmals um Entschuldigung, das ich hier Verwirrung gestiftet habe :O

AW: Zellenbezüge von Shapes über VBA ändern

19.02.2025 21:34:02

Patrick1989

Ich habe es selbst geschafft ;)

hier die Lösung für die Nachwelt.

Da man Objekte selectieren muss bevor man sie ändern kann funktioniert der Code so:

Sub Test1()



Dim Pfad As String



    Pfad = Tabelle2.Cells(2, 1).FormulaLocal



        Tabelle1.Shapes("Grafik 6").Select

        Selection.Formula = "=" & Pfad

    

End Sub

Manchmal hat man wirklich ein Brett vorm Kopf...

AW: Zellenbezüge von Shapes über VBA ändern

20.02.2025 00:14:16

Piet

Hallo

vielleicht sollten wir das "Brett vorm Kopf" noch ein wenig glatt schleifen!
Pfad = Tabelle2.Cells(2, 1).Value --> Werte sollte man mit Value einlesen!
Tabelle1.Shapes("Grafik 6").Formula = "=" & Pfad --> das geht auch Ohne Select

mfg Piet

AW: Schreibfehler?

19.02.2025 13:37:35

Patrick1989

Leider nein, dieses ist die richtige Schreibweise

AW: Schreibfehler?

19.02.2025 13:52:44

peter

Hallo

Pfad wird nur definiert aber bleibt leer. Du weisst irgendewtas der Variable Text zu , die aber nicht verwendet wird.

Peter

AW: Schreibfehler?

19.02.2025 14:53:49

Patrick1989

Wärst du so nett und könntest mir ein Bespiel schreiben, wie es funktionieren würde ?

AW: Schreibfehler?

19.02.2025 15:02:39

peter

Hallo

Vielleicht so:



Sub Test3()



Dim Pfad As String



    Pfad = Tabelle7.Cells(-1 + 4, 3).FormulaLocal

    Tabelle7.Shapes("Rechteck 1").Formularlocal = "='" & Pfad

    

End Sub

Wenn das nicht hilft, bitte ein Beispiel hochladen.

Peter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!