Hallo, ich möchte gerne Zahlen aus einem Tabellenblatt mittels Schleife in eine Grafik einlesen lassen. Das Problem dabei ist,
dass die Wochenenden unberücksichtig bleiben müssen. Deswegen auch die Abfrage mit Weekday im Code. Die Problemstelle ist der
fettmakierte Teil. Wie bekomme ich es hin das ich jede Zelle(Tag) einzeln einlesen lassen kann anstatt mit range die ganze Woche
als Bereich zu übergeben.
QC:
Dim Spalte as integer
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
Spalte = 2
For Spalte = 2 To 15
If Weekday(Cells(4, Spalte), 2) <= 5 Then
ActiveChart.SeriesCollection(1).Values = ActiveChart.SeriesCollection(1).Values & _
Range(Cells(6, Spalte), Cells(6, Spalte))
next s
Alternativ:
ActiveChart.SeriesCollection(1).Values = Range("B6:P6,B14:Q14")
So funktioniert es, aber die Wochenenden sind mit dabei.
Ich hoffe Ihr könnt mir weiterhelfen.
Grüße Kevin
|