title image


Smiley Mit Makro Diagramm-Datenquelle steuern
Die Datenquelle für ein Diagramm ist für 12 verschiedene Nutzer unterschiedlich, dh. die Anzahl der Zeilen ist verschieden.

Für 12 Abteilungen soll eine Datei erstellt werden, die die Daten der Mitarbeitenden enthält, um die Lebensarbeitszeit in einem Diagramm darzustellen. Die Anzahl der Mitarbeitenden pro Abteilung sit unterschiedlich. Die Daten stehen in A und F.



Mit folgendem Makro soll das Diagramm angepasst werden, nachdem die Anzahl der Zeilen ausgelesen ist:



Sub Diagramm_aktualisieren()

C = AnzMitarb

Sheets("Diagramm").Select

ActiveSheet.ChartObjects("Diagramm 1").Activate

ActiveWindow.Visible = False

ActiveSheet.ChartObjects("Diagramm 1").Activate

ActiveChart.ChartArea.Select

ActiveChart.SeriesCollection(1).XValues = Worksheets("Daten").Range("A2:A9")

ActiveChart.SeriesCollection(1).Values = Worksheets("Daten").Range("F2:F9")

ActiveWindow.Visible = False

Windows("Lebensarbeitszeit.xls").Activate

Range("A1").Select

End Sub



Wie kann ich per Makro "A9" und "F9" in Worksheets("Daten").Range ändern?



Hansjochen

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: