Thema Datum  Von Nutzer Rating
Antwort
14.01.2017 16:57:15 dschuelig
NotSolved
14.01.2017 17:12:23 Mackie
NotSolved
14.01.2017 17:18:56 dschuelig
NotSolved
14.01.2017 17:24:14 Mackie
NotSolved
14.01.2017 17:30:44 dschuelig
NotSolved
Blau Diagramm per VBA über mehrere Tabellenblätter erzeugen
 14.01.2017 19:19:00 Mackie
NotSolved
14.01.2017 19:59:57 dschuelig
NotSolved
15.01.2017 01:06:11 Mackie
NotSolved
15.01.2017 08:42:48 dschuelig
NotSolved
15.01.2017 09:55:57 dschuelig
NotSolved
15.01.2017 11:36:03 dschuelig
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
14.01.2017 19:19:00		 Views:
668		 Rating:
     
Antwort:
  Ja
Thema:
Diagramm per VBA über mehrere Tabellenblätter erzeugen

Habe keine Ahnung, ob das Diagramm ok ist, ich weiss nur, es dauert sehr lang, es zu erzeugen.

 

Private Sub CommandButton1_Click()
Dim i As Long
    
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select
    
    
    
For i = 1 To ListBox1.ListCount - 1

If ListBox1.Selected(i) Then
     ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(i).Name = Worksheets(i).Name
    ActiveChart.FullSeriesCollection(i).Values = Worksheets(i).Range("C23").End(xlDown).Row
    ActiveChart.FullSeriesCollection(i).XValues = Worksheets(i).Range("B23").End(xlDown).Row
End If

Next i


    ActiveChart.SetElement (msoElementLegendBottom)
    ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
    ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
    ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesNone)
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).Select
    'ActiveChart.Axes(xlCategory).CategoryType = xlTimeScale
    ActiveChart.Axes(xlCategory).CategoryType = xlAutomatic
    Selection.MajorTickMark = xlOutside
    ActiveChart.Axes(xlCategory).TickLabelSpacingIsAuto = True
    ActiveChart.Axes(xlCategory).TickMarkSpacing = 600
    ActiveChart.SetElement (msoElementPrimaryCategoryGridLinesMajor)
If TextBox1.Text = "" Then
MsgBox ("Bitte einen Diagrammnamen vergeben")
End If

ActiveSheet.Name = TextBox1.Text

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
14.01.2017 16:57:15 dschuelig
NotSolved
14.01.2017 17:12:23 Mackie
NotSolved
14.01.2017 17:18:56 dschuelig
NotSolved
14.01.2017 17:24:14 Mackie
NotSolved
14.01.2017 17:30:44 dschuelig
NotSolved
Blau Diagramm per VBA über mehrere Tabellenblätter erzeugen
 14.01.2017 19:19:00 Mackie
NotSolved
14.01.2017 19:59:57 dschuelig
NotSolved
15.01.2017 01:06:11 Mackie
NotSolved
15.01.2017 08:42:48 dschuelig
NotSolved
15.01.2017 09:55:57 dschuelig
NotSolved
15.01.2017 11:36:03 dschuelig
NotSolved