Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Diagramm per Makro erstellen
#1
Hallo zusammen,

ich komme leider ohne Hilfe nicht weiter. Und zwar habe ich mit Makrorecorder die Erstellung eines Diagrammes aufgezeichnet. Wenn ich das Diagramm wieder lösche und einen erneuten Test starte, hält der Debugger in folgender Zeile des Codes an ....
Code:
ActiveSheet.Shapes.AddChart.Select
Ausgangspunkt ist: Diagramm erstellen per Klick auf Button, Datumsspalte A ist waagerechte und Spalte G ist senkrechte Achse. Dann zwei Trendlinien erstellen, 1. Gleitender Durchschnitt 200 Farbe Lila und 2. Gleitender Durchschnitt 38 Farbe rot.

Wo liegt der Fehler?


Angehängte Dateien
.xlsm   Test_Diagramm.xlsm (Größe: 170,85 KB / Downloads: 6)
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#2
Hallo Bernie

so hab ich es getestet
weiß aber nicht ob es Deiner Vorstellung entspricht
Code:
Sub Makro1()
    With ActiveSheet
        .ListObjects("ARL.DE").Range.AutoFilter Field:=1, Criteria1:= _
            xlFilterYearToDate, Operator:=xlFilterDynamic
        .Range("G1").Activate
        .Shapes.AddChart.Select
    End With
    With ActiveChart
        .ChartType = xlLine
        .SetSourceData Source:=Range("A:A,G:G")
        .Axes(xlValue).Select
        .SeriesCollection(1).Select
        .SeriesCollection(1).Trendlines.Add
        .SeriesCollection(1).Trendlines(1).Select
    End With
    With ActiveSheet.ChartObjects(1)
      .Left = 400
      .Top = 30
      .Width = 500
      .Height = 200
    End With
    With Selection
        .Type = xlMovingAvg
        .Period = 2
    End With
    With Selection
        .Type = xlMovingAvg
        .Period = 38
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Trendlines.Add
    ActiveChart.SeriesCollection(1).Trendlines(2).Select
    With Selection
        .Type = xlMovingAvg
        .Period = 2
    End With
    With Selection
        .Type = xlMovingAvg
        .Period = 200
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
    End With
End Sub
in Deinem Makro war dann auch von Diagramm3 die Rede, das gibt so aber nicht, heißt jedesmal anders
darum habe ich die Maße hiermit erstellt
Code:
With ActiveSheet.ChartObjects(1)
       .Left = 400
       .Top = 30
       .Width = 500
       .Height = 200
     End With
MfG Tom
to top
#3
Hallo Tom,

Danke für deine Hilfe, hab wieder dazu gelernt.

Mit der Trendlinie "Gleitender Durchschnitt 200Tage" funktioniert noch nicht richtig, stellt nur einen Punkt bzw. ganz kleinen Strich dar.

Werde mal ein wenig probieren und sollte ich nicht weiter kommen, melde ich mich!
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#4
Hallo zusammen,

ich versuche den Code vom Tom an meine Bedürfnisse anzupassen, leider ohne Erfolg.

Und zwar möchte ich den Autofilter so setzen (Datum in Spalte 1), dass die zwischen Zelle A2 (Enddatum) und Zelle A261 (Anfangsdatum) gefiltert wird (das bekomme ich mit Recorder hin ...
Code:
Sub Makro8()
    Range("A1:G1").Select
    Selection.AutoFilter
    ActiveSheet.ListObjects("ARL.DE").Range.AutoFilter Field:=1, Criteria1:= _
        ">=10.10.2013", Operator:=xlAnd, Criteria2:="<=10.10.2014"
    ActiveWindow.SmallScroll Down:=-108
    ActiveSheet.ListObjects("ARL.DE").Range.AutoFilter Field:=1, Criteria1:= _
        ">=10.10.2013", Operator:=xlAnd, Criteria2:="<=10.10.2014"
End Sub
... allerdings bekomme ich folgendes nicht gebacken. "Criteria1 soll nicht 10.10.2013 stehen sondern DatumsWert Zelle A261 und Criteria2 Zelle A2. Diese sind in allen Blättern identisch.

Und ich versuche die Zeile in Toms Code zu ändern ".ListObjects("ARL.DE")" und zwar sollen für ein bestimmtes Tabellenblatt "alle" gemeint sein.

Wer könnte mir helfen? Danke schon mal im Voraus!!!
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#5
Hallo Bernie,

mal ungetestet hier reingeschrieben

Code:
ActiveSheet.ListObjects("ARL.DE").Range.AutoFilter Field:=1, Criteria1:= _
         ">=" & ActiveSheet.Range("A261").Text, Operator:=xlAnd, Criteria2:="<=" & ActiveSheet.Range("A2").Text
Gruß Stefan
Win 7 / Office 2007
to top
#6
Hi Stefan,

Danke für deine Hilfe.

Es funktioniert nur bedingt und zwar wenn der Code durchläuft werden alle zeilen ausgeblendet, erst wenn ich auf den Autofilterbutton in Zelle A1 klicke und der Dialog sich öffnet und wenn ich dann auf ok klicke wird erst der korrekte Bereich angezeigt. Das hatte ich beim Aufzeichnen mit dem Recorder nicht.

Wo kann der Fehler liegen?
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#7
Hallo Bernie,

keine Ahnung. Könntest Du die Datei hier hochladen damit man sich das anschauen kann?
Gruß Stefan
Win 7 / Office 2007
to top
#8
Ergänzung Mustermappe:


Angehängte Dateien
.xlsm   diagramm2.xlsm (Größe: 170,54 KB / Downloads: 4)
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top
#9
Hallo Bernie,

tut mir leid. Ich finde keine Lösung.
Gruß Stefan
Win 7 / Office 2007
to top
#10
Hallo Stefan,

nicht schlimm, du hast sowieso einiges gut bei mir!!!

@Alle anderen

wäre euch dankbar, wenn ihr mal euch meines Problems annehmen könntet.
Danke schon mal im Voraus.
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2010 Pro - Win 7 Home Premium
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Thumbs Down Diagramm in Excel erstellen LeibnizCasio 1 107 15.10.2016, 16:30
Letzter Beitrag: schauan
  makro Diagramm Hansi901 3 133 27.09.2016, 09:40
Letzter Beitrag: Rabe
  Excel Diagramm erstellen mit mehreren Datenreihen Lydi 2 144 25.09.2016, 16:48
Letzter Beitrag: schauan
  Diagramm mit nicht zusammenhängenden Zellen erstellen Günti 2 173 14.09.2016, 09:17
Letzter Beitrag: Günti
  Diagramm erstellen JayMoody 3 169 07.09.2016, 13:30
Letzter Beitrag: Ego
  XYZ 3D Diagramm in Excel erstellen DerNeugierige 3 607 07.08.2016, 15:41
Letzter Beitrag: DerNeugierige
Big Grin Diagramm erstellen Robert 3 255 29.07.2016, 10:12
Letzter Beitrag: Ego
  VBA Makro Ordnerstruktur / Organigramm erstellen Vince440 2 329 26.07.2016, 18:27
Letzter Beitrag: schauan
  Diagramm mit Intervallen erstellen radadair 1 128 14.07.2016, 13:57
Letzter Beitrag: Rabe
  Diagramm erstellen Sara1234 3 277 09.05.2016, 20:04
Letzter Beitrag: schauan

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste