Supportnet / Forum / Tabellenkalkulation
Diagram mit Makros steuern
Frage
Hallo Comunitity,
ich habe da mal wieder eine Frage. Dieses mal geht es um Diagramme und deren Datenquelle.
Also ich habe eine Tabelle die mit Daten gefüllt wird (automatisch). Aus dieser Tabelle will ich jetzt nur die Werte in einem Diagramm darstellen die größer als 2 sind. Ich habe dazu schon eine Sortierfunktion in ein Makro gepackt, damit die Zeilen absteigent von der größten Ausprägung sortiert werden. Nun geht es nur noch (wenn es so einfach wäre) darum dem Diagram zu sagen, dass es seinen Wertebereich anpasst.
Ich habe mir da auch shon einige GEdanken gemacht und bin der Meinung, dass es möglich sein müsste mit einer For Schleife durch einen festgelegten Bereich (A54:I97) schaut wo in Spalte E der Wert größer als 2 ist und dann muss diese Zelladresse dieser Funktion übergeben:
ActiveChart.SetSourceData Source:=Sheets("2007").Range("B54:B78,E54:E78"), PlotBy:=xlColumns
werden. In Spalte B stehen dann die Bezeichnungen der Werte aus Spalte E. Er müsste also wenn in Zelle E60 der letzte Wert größer 2 gefunden wurde die oben angeführte Funktion ändern in:
ActiveChart.SetSourceData Source:=Sheets("2007").Range("B54:B60,E54:E60"), PlotBy:=xlColumns
Okay den Wert E60 kann man sicher relativ einfach übergeben mit wert = activecell.adress oder so. Aberwie sage ich ihm dann noch, dass B auch bis 60 gehen soll.
So ich hoffe ich konnte ungefähr mein Problem erläutern und würde mich freuen, wenn mir jemand helfen kann
Dank und Gruß
Thomas
Antwort 1 von Beverly
Hi Thomas,
Bis später,
Karin
ActiveChart.SetSourceData Source:=Sheets("2007").Range("B54:B" & loZeile & ",E54:E" & loZeile), PlotBy:=xlColumns
Bis später,
Karin

