Diagrammcode
Johannes
hier der aufgezeichnte Code er funktioniert:
Sub Makro4()
Sheets("Einhandbedienung").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = "=Auswertung!R2C7:R3041C7"
ActiveWindow.Visible = False
Windows("test.xls").Activate
Range("G32").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Auswertung!R1C3:R3041C3"
ActiveChart.SeriesCollection(1).Values = "=Auswertung!R2C7:R3041C7"
ActiveWindow.Visible = False
Windows("test.xls").Activate
Range("F29").Select
End Sub
Da ich aber in der Zelle F6 stehen habe wieviele Werte in das jeweilige Diagramm sollen habe ich folgende versucht:
Sub Makro4a()
Dim ZeF6 As Variant
ZeF6 = Range("F6").Value 'hier steht =ANZAHL(Auswertung!D:D) -> Menge der Diagrammwerte
Sheets("Einhandbedienung").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = "=Auswertung!R2C7:" & ZeF6 & "C7"
ActiveWindow.Visible = False
Windows("test.xls").Activate
Range("A1").Select
ActiveSheet.ChartObjects("Diagramm 3").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Auswertung!R1C3:" & ZeF6 & "C3"
ActiveChart.SeriesCollection(1).Values = "=Auswertung!R2C7:" & ZeF6 & "C7"
ActiveWindow.Visible = False
Windows("test.xls").Activate
Range("A1").Select
End Sub
Hier bleit der Code aber in Zeile 4 hängen - und ich habe keinen Plan warum.Könnte mir bitte jemand einen Tipp geben. Für Eure Mühe schon jetzt herzlichen Dank.
Gruß
Johannes