Diagramm per Makro erstellen

[schauan]

Hallo Bernie,

nimm mal das als Filter und ich hoffe, Dein Excel spielt mit
Meins (Version 2013) funktioniert damit und das lief auch schon unter 2003 und eher. Übrigens - wenn Du in Deinem Profil Deine Excelversion angibst, sieht man das jetzt auch hier bei den Daten unter Deinem Namen.

Code:

.ListObjects("ARL.DE").Range.AutoFilter Field:=1, Criteria1:= _
          ">=" & CDbl(DateValue(.Range("A261"))), Operator:=xlAnd, Criteria2:="<=" & CDbl(DateValue(.Range("A2")))

[Bernie]

Hallo André,

danke für die Hilfe. Passt!!!

wenn Du in Deinem Profil Deine Excelversion angibst

Schau mal ans Ende meiner Beiträge ...

System: Win7 HomePremium 64bit - Office 2010 Professional 32bit

Kannst du mir vielleicht nochmal helfen und zwar wie übernehme ich den Wert einer Zelle in den Charttitel?

[Steffl]

Hallo Bernie,

versuche es mal so

Code:

With ActiveChart
         .ChartType = xlLine
         .HasTitle = True
         .ChartTitle.Text = ActiveSheet.Range("A1").Value

@Andre

Du wandelst den Wert mit CDbl um. Ginge da nicht auch CLng?

[Bernie]

Hallo Stefan,

Passt wie die Faust auf's Auge!!! Danke

Vielleicht noch eine kurze Frage. Momentan wird innerhalb eines Blattes das Diagramm erstellt. Was muss ich ändern, damit ein neues Diagrammblatt erstellt wird.

[schauan]

Hallo Stefan,

so hat's geklappt. Long ist ja ein ganzahliger Wert, könnte theoretisch in dem Fall auch klappen. Ist vielleicht noch die Frage, was Excel an der Stelle für einen Typ erwartet. Spätestens wenn mal Zeiten dazukommen, brauchst Du CDbl.

Hallo Bernie,

da muss man noch den Ort hinzufügen.
Im Prinzip so:

Code:

ActiveChart.Location Where:=xlLocationAsNewSheet

bzw. im Rahmen von With ActiveChart nur

Code:

.Location Where:=xlLocationAsNewSheet