Diagramm via VBA

Hallo,

ich hoffe mir kann nun wer helfen

also wenn ihr das genaue problem noch nicht wisst heute kurz vor acht uhr steht schon ein beitrag dazu drinnen.

hab jetzt mal das Makro einfach aufgezeichnet!!!

hier der bisherige code:


Sub Beispiel()
' Beispiel Makro
' Makro am 13.11.2003 von Schuhmacher Markus aufgezeichnet
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A2:B21"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C2:R6C2"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R2C1"
ActiveChart.SeriesCollection(2).Values = "=Tabelle1!R7C2:R11C2"
ActiveChart.SeriesCollection(2).Name = "=Tabelle1!R7C1"
ActiveChart.SeriesCollection(3).Values = "=Tabelle1!R12C2:R16C2"
ActiveChart.SeriesCollection(3).Name = "=Tabelle1!R12C1"
ActiveChart.SeriesCollection(4).Values = "=Tabelle1!R17C2:R21C2"
ActiveChart.SeriesCollection(4).Name = "=Tabelle1!R17C1"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
End Sub

ich nehme jetzt einfach den code nochmals und schreibe dazu wie er später arbeiten soll.

also:


Sub Beispiel()
' Beispiel Makro
' Makro am 13.11.2003 von Schuhmacher Markus aufgezeichnet
zuerst soll er in d anfange und zwar in d4  soll er schauen ob da eine zahl drin steht wenn ja soll er das unten stehende ausführen
natürlich mit spalte d ,       und a bleibt fest als datum.
so steht in d4 keine zahl aber text dann weiter zu e 4 sonst beenden
also nicht excel nur das makro
ja  dann  soll er das gleiche wieder mit e 4 mach  und dann mit f   usw bis iergendwann ne leere spalte kommt!!!
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A2:B21"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C2:R6C2"
dieser bereich soll immer der sein in der spalte gerade nachgesehen wurde
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R2C1"
der name bleibt immer gleich
ActiveChart.SeriesCollection(2).Values = "=Tabelle1!R7C2:R11C2"
ActiveChart.SeriesCollection(2).Name = "=Tabelle1!R7C1"
der name bleibt immer gleich
ActiveChart.SeriesCollection(3).Values = "=Tabelle1!R12C2:R16C2"
ActiveChart.SeriesCollection(3).Name = "=Tabelle1!R12C1"
der name bleibt immer gleich
ActiveChart.SeriesCollection(4).Values = "=Tabelle1!R17C2:R21C2"
ActiveChart.SeriesCollection(4).Name = "=Tabelle1!R17C1"
der name bleibt immer gleich
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
End Sub

ich hänge hier nochmal die bsp datei an mit dem aufgezeichneten makro hoffentlich kann mir einer helfen.

https://www.herber.de/bbs/user/1930.xls

Gruß Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm via VBA

13.11.2003 09:31:39

Michael Scheffler

AW: Diagramm via VBA

13.11.2003 09:44:59

M4rkus

Moin, also dies ist ein eintrag der eigentlich gestern schon eingetragen wurde:

Hier nochmals mein Problem:
Hallo,

ich habe folgendes Problem:

Ich habe eine Excel Tabelle,
in der Stehen in a Datumswerte mit zusätzlichem Text.

die Zellen sind nach unten verbunde d.h.: a4 bis a8 ist eine Zelle.

in d4 bis d8 stehen dazu werte.

dieses ist viermal nach unten so

d.h.:

a4 bis a8 erste

a10-a14 zweite

a15-a19 dritte

a20-a24 vierte

in d stehen dazu immer 5 Werte.

Ich möchte nun ein Liniendiagramm, dass mir immer die 5 Werte anzeigt zugehörig zu dem Datum das vorne in der verbundenen Zelle steht.

allerdings stehen nicht nur in d4-d24 Werte sondern das gleiche auch in e f g h i j k usw.

ich möchte aber für jede Spalte ein eigenes Diagramm.

erstens:

Wie bekomme ich das Hin, dass das Diagramm mir 4 Linien mit jeweils 5 Datenpunkten anziegt?!?

und zweitens: Wie kann ich dieses Diagramm am einfachsten auf die anderen Zeilen übertragen?!?!? VBA?!?!?

Ich hoffe ihr habt mein Problem verstanden und könnt mir helfen.

Gruß Markus

https://www.herber.de/bbs/user/1906.xls

Darauf kam dann diese antwort:

Am Beispiel der verlinkten Exceltabelle, ist es sehr einfach:

du kopierst dir einfach das Gesamte Diagramm, so oft wie du es benötigst.(Spalten a-z)

Bei dem kopierten Diagramm klickst du nur auf die entsprechende Linie, und Excel zeigt
dir den Formel-Verweis auf welche Zellen sich die Diagrammlinie bezieht.
Durch Verschieben der Umrandung (blau) zur nächsten Spalte, wählst du dir neue
Daten aus und die Linie im Diagramm verändert sich automatisch.

wenn noch Fragen sind dann bitte...

MFG
Ronny

Danke nochmals Ronny, allerdings will ich das ganze per VBA machen

ich bräuchte also ne schleife die prüft ob in b4 was drin steht, wenn ja prüfen obs ne zahl ist und dann das diagramm wie in der beispielsdatei erstellt. danach soll es dann in c4 schauen usw bis in einer zelle mal nichts steht.(also wenn text in der zelle steht soll es kein diagramm erstellen aber in der nächsten spalte weitersuchen .)

hab bei meiner tabelle auch leere zeilen, die ich dann mit ## fülle, daher muss es erst prüfen, ob ich in der zelle was stehen hab und wenn ja prüfen obs ne zahl ist, und dann das diagrammm erstellen, kann mir wer helfen?!?

Gruß Markus
Hier nochmal die Datei:

https://www.herber.de/bbs/user/1906.xls

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread