Thema Datum  Von Nutzer Rating
Antwort
18.04.2017 17:16:33 Bernd
NotSolved
Blau Gleichzeitiges Ändern mehrerer Diagramme mit einer veränderten Zelle
 18.04.2017 17:19:11 Bernd
NotSolved

Ansicht des Beitrags:
Von:
Bernd		 Datum:
18.04.2017 17:19:11		 Views:
507		 Rating:
     
Antwort:
  Ja
Thema:
Gleichzeitiges Ändern mehrerer Diagramme mit einer veränderten Zelle
Hallo Leute :) wie kann man diesen Code "eleganter" hinschreiben, dass sich die Zeitachse aller Diagramme in der Excel-Datei ändern, wenn das Datum in einer Zelle geändert wird. 'Zeitachse anpassen If Target.Address = "$B$3" Or Target.Address = "$B$1" Then Worksheets("Seite2-5").ChartObjects("Diagramm 17").Activate ActiveChart.Axes(xlCategory).MinimumScale = Worksheets("Auswertung_Übersicht").Cells(7, 10) ActiveChart.Axes(xlCategory).MaximumScale = Worksheets("Auswertung_Übersicht").Cells(7, 12) Worksheets("Auswertung_Grafiken").Activate Worksheets("Seite2-5").ChartObjects("Diagramm 19").Activate ActiveChart.Axes(xlCategory).MinimumScale = Worksheets("Auswertung_Übersicht").Cells(7, 10) ActiveChart.Axes(xlCategory).MaximumScale = Worksheets("Auswertung_Übersicht").Cells(7, 12) Worksheets("Auswertung_Grafiken").Activate Worksheets("Seite2-5").ChartObjects("Diagramm 22").Activate ActiveChart.Axes(xlCategory).MinimumScale = Worksheets("Auswertung_Übersicht").Cells(7, 10) ActiveChart.Axes(xlCategory).MaximumScale = Worksheets("Auswertung_Übersicht").Cells(7, 12) Worksheets("Auswertung_Grafiken").Activate Worksheets("Seite2-5").ChartObjects("Diagramm 24").Activate ActiveChart.Axes(xlCategory).MinimumScale = Worksheets("Auswertung_Übersicht").Cells(7, 10) ActiveChart.Axes(xlCategory).MaximumScale = Worksheets("Auswertung_Übersicht").Cells(7, 12) Worksheets("Auswertung_Grafiken").Activate Worksheets("Seite1").ChartObjects("Diagramm 23").Activate ActiveChart.Axes(xlCategory).MinimumScale = Worksheets("Auswertung_Übersicht").Cells(7, 10) ActiveChart.Axes(xlCategory).MaximumScale = Worksheets("Auswertung_Übersicht").Cells(7, 12) Worksheets("Auswertung_Grafiken").Activate VIELEN DANK

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.04.2017 17:16:33 Bernd
NotSolved
Blau Gleichzeitiges Ändern mehrerer Diagramme mit einer veränderten Zelle
 18.04.2017 17:19:11 Bernd
NotSolved