Diagramme mit VBA erstellen

[Mila]

Guten Morgen zusammen,
ich möchte gerne mit VBA verschiedene Diagramme erstellen, und hab da jetzt mal ein bisschen rumprobiert, allerdings klappt es noch nicht so wie ich mir das vorstelle.

Es sollen alles Balkendiagramme sein, die Daten stehen in der Beispielmappe im Anhang auf dem Tabellenblatt Daten, es handelt sich einmal um Orte, welche ich gerne linksbündig angeordnet hätte und dann um Prozentwere die die Balken Werte sind.

Wenn das Makro durchläuft sind die Balken genau andersrum angeordnet wie in der Datentabelle, also in der Datentabelle steht "Köln" ganz oben im Diagramm dann ganz unten, die Sortierung soll aber wie in der Datentabelle sein.

Dann sollen wie gesagt die Orte linksbündig im Diagramm angezeigt werden und die Prozentwerte linkbündig um Diagrammbalken.

Die Wert Scala am unteren Diagrammrand brauche ich garnicht.

Wäre super wenn mir einer zu meinen Fragen ein paar Tips geben kann wie ich das entsprechend lösen kann.

Vielen Dank

Mila

[Ego]

Hallo Mila,

wenn du die Befehle nicht kennst, kannst du über "Makro aufzeichnen" die Befehle mitschreiben lassen während du die Aktionen manuell ausführst.

Hier zwei der drei gesuchten Befehle:

Code:

   
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.Axes(xlCategory).ReversePlotOrder = True
    ActiveChart.Axes(xlValue).CrossesAt = -20

[Mila]

Hallo Helmut,
vielen Dank für die schnelle Antwort und deine Tips, bzw. lösungen. 
Die schonmal soweit funktionieren, wenn ich es richtig sehe, dann könnte mein drittes anliegen über ein 

Code:

.Axes(xlValue).Delete

gelöst werden!

Ich hab allerdings mit dem 

Code:

Axes(xlValue).CrossesAt = -20

das Problem das dann zwar die Orte alle Linksbündig stehen, die Balken aber alle nach rechts zeigen was einen positiven Wert suggeriert, was es aber ja nicht in allen fällen ist, die negativen Werte müssten auch einen Balken nach links zeigen.

Wenn ich es jetzt aber richtig sehe, müsste das über ein 

Code:

.Axes(xlCategory).TickLabelPosition = xlLow

zu lösen sien.

[Mila]

Hallo nochmal,
ich hab das soweit so hinbekommen wie ich mir das vorgestellt hatte, aber zwei Fragen hab ich dann doch noch, man sieht auf dem ersten Bild im Anhang das zwischen den Zahlen immer ein 

-

vor dem nächsten Wert kommt,  also z.b. nach der 2 und vor der 0 oder nach der 0 und vor der 1 usw., wo ich nicht so wirklich weiss wo der her kommt.
Die Daten in der Tabelle stehen sortiert untereinander, daran sollte es also nicht liegen.

Das andere Anliegen ist, ich hab ein schönes Chart gefunden, wo quasi zwei Balken untereinander dargestellt werden, Beispiel ist auf dem zweiten Bild zusehen, ich hab aber absolut keine Ahnung wie ich das erzeugen könnte, hat da vielleicht noch einer eine idee.

Danke

LG Mila

[Ego]

Hallo Mila,

1. Die "-" sind Teilstriche (Trennungen der Rubriken) auf der Y-Achse. Über Achse formatieren kann man diese entfernen.
2. Für den zweiten Balken benötigst du eine zweite Datenreihe und das Diagramm muss vom Typ "gruppierte Balken" sein.

[Mila]

Hallo Helmut,
vielen Dank für die Rückmeldung.

Zu Punkt 1,  den guck ich mir an danke für den Hinweis.
Zu Punkt 2, das Diagramm xlBarClustered hab ich genutzt, aber mit der zuweisung der zweiten Eben tu ich mir noch schwer, hab mir das im Macro Recorder zwar angesehen, bekomme die aber nicht so im Code eingegeben. Der Makro Recorder generiert dabei das

Code:

    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).Values = "=DatenVJ!$AC$2:$AC$36"

Da ich aber ja dann fix, ich muss aber bei den Rows mit Variablen arbeiten, wenn ich jetzt versuche den Code anzupassen, dann bekomme ich es leider nicht hin,

Code:

.FullSeriesCollection(2) = "='" & DatenVJ & "'!$AC" & rngFindStart.Row ":$AC" & rngFind.Row

Wie wäre das richtig?

Danke

[Mila]

Hi,
hab da jetzt noch eine ganze Zeit rumprobiert, bekomme aber einfach die zweite Datenreihe nicht dynamisch eingebaut, was mache ich da falsch?

Danke

[Rabe]

Hi,

dann hänge doch einfach nochmal die Beispiel-Probier-Datei (bei der Du es versucht hast) als Anhang hier in einen Beitrag und schreibe rein, was wo wann passieren soll.

Gruß Ralf

[Mila]

Hi,
anbei die gewünschte Beispieldatei, mit dem entspechenden Problem.

DIe Daten aus Tabelle1 sollen oben in den Balken stehen und die Daten aus Tabelle2 darunter in dem Balken

Danke

[schauan]

Hallöchen,

also, die Zeile erzeugt einen Fehler
.FullSeriesCollection(2).Values = Sheets(1).Range(tblDaten2.Cells(rngFindStart.Row, 7), tblDaten2.Cells(rngFind.Row, 7))

so gehts
.FullSeriesCollection(2).Values = Sheets(1).Range(tblDaten2.Cells(rngFindStart.Row, 7).Address, tblDaten2.Cells(rngFind.Row, 7).Address)