Thema Datum  Von Nutzer Rating
Antwort
23.12.2014 11:59:43 Kevin
NotSolved
Blau Datenreihe einer Grafik mittels For Schleife füllen
 23.12.2014 18:42:03 Gast27263
NotSolved
05.01.2015 13:57:56 Gast79931
NotSolved
06.01.2015 17:13:01 Gast27263
NotSolved
07.01.2015 15:05:37 Kevin
NotSolved
08.01.2015 18:51:12 Gast27263
NotSolved

Ansicht des Beitrags:
Von:
Gast27263		 Datum:
23.12.2014 18:42:03		 Views:
777		 Rating:
     
Antwort:
  Ja
Thema:
Datenreihe einer Grafik mittels For Schleife füllen

<Alternativ:

<ActiveChart.SeriesCollection(1).Values = Range("B6:P6,B14:Q14")

<So funktioniert es, aber die Wochenenden sind mit dabei.

>So schon - DEMO

Option Explicit

Sub Demo()
'ZUM TEST in LEERER TABELLE !!!!

Dim VArrLst As Object
Dim XVArrLst As Object

Dim oShp As Shape
Dim oChart As Chart
Dim oSeries As Series
Dim c As Range
Dim dstart As Date

With ActiveSheet

   'alles löschen
   .Cells.Clear
   For Each oShp In .Shapes
      oShp.Delete
   Next oShp
   
   'Demo Werte
   dstart = Date
   For Each c In .Range("B6:P6")
      c.Value = dstart
      c.Offset(8).Value = WorksheetFunction.RandBetween(1, 8) / 10
      dstart = dstart + 1
   Next c
   
   'beliebiges Diagramm
   Set oShp = .Shapes.AddChart2(201, xlColumnClustered)
   Set oChart = .Shapes(1).Chart
   Set oSeries = oChart.SeriesCollection.NewSeries
   
   'Wochentage ausschließen
   Set VArrLst = CreateObject("System.Collections.ArrayList")
   Set XVArrLst = CreateObject("System.Collections.ArrayList")
   For Each c In .Range("B6:P6")
      If Weekday(c.Value) <= 5 Then
         VArrLst.Add Format(c.Value, "dd.mm.yyyy")
         XVArrLst.Add c.Offset(8).Value
      End If
   Next c
   
   'in Series
   oSeries.XValues = VArrLst.toarray
   oSeries.Values = XVArrLst.toarray
      
End With

End Sub

 

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
23.12.2014 11:59:43 Kevin
NotSolved
Blau Datenreihe einer Grafik mittels For Schleife füllen
 23.12.2014 18:42:03 Gast27263
NotSolved
05.01.2015 13:57:56 Gast79931
NotSolved
06.01.2015 17:13:01 Gast27263
NotSolved
07.01.2015 15:05:37 Kevin
NotSolved
08.01.2015 18:51:12 Gast27263
NotSolved