Hallo Spessy
Mal schon gut, dass wir offenbar auf dem richtigen Weg sind.
Aber es gibt noch viel zu tun:
- ersetze mal den Code in der Datei durch den unten sehenden.
- Die Länge der Tabelle ist zu automatisieren, dass sie sich der Monatslänge anpasst. 29 bis 31 Tage. Parametrierung.
- Die Achsen sind zu beschriften.
- Die dorpbox in A2 muss natürlich so ergänzt werden, dass sie sich automatisch jeweils alle Mitarbeiter darstellt.
- Die Projektbezeichnungen sind einzufügen.
- Die farbliche Gestaltung ist zu optimieren.
- Der Appetit kommt mit dem Essen: weitere Wünsche werden anfallen.
- Die Aufarbeitung der Tabellen ist zu automatisieren: kein Kunde bezahlt einen Cent für dieses Projekt, also darf unter keinen Umständen aus dem Betrieb ein Aufwand entstehen. Du siehst ich bin kein Gewerkschafter.
So, für mich ist nun Schluss bis Mo/Di.
Code:
Sub Auswahl_Diagramm()
Dim Datum
Dim Norm
Dim Norm_T
Dim Üz
Dim Üz_T
Dim Mitarbeiter
Mitarbeiter = Sheets("Auswahl").Range("A2")
Datum = "='" & Mitarbeiter & "'!$A$2:$A$30"
Norm_T = "='Mitarbeiter X'!$G$1"
Norm = "='" & Mitarbeiter & "'!$G$2:$G$30"
Üz_T = "='Mitarbeiter X'!$H$1"
Üz = "='" & Mitarbeiter & "'!$H$2:$H$30"
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart
.Walls.Select
.SetSourceData Source:=Sheets("Mitarbeiter X").Range("A2:A30,G2:H30")
.FullSeriesCollection(1).XValues = Datum
.SeriesCollection.NewSeries
.FullSeriesCollection(1).Name = Norm_T
.FullSeriesCollection(1).Values = Norm
.SeriesCollection.NewSeries
.FullSeriesCollection(2).Name = Üz_T
.FullSeriesCollection(2).Values = Üz
.ChartTitle.Text = Mitarbeiter
.FullSeriesCollection(3).Delete
End With
Range("A2").Select
End Sub
