Fortsetzung Linienfarbe ändern Diagramm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim chDiagramm As Chart Dim inPunkt As Integer If Intersect(Target, Range("B3:B14")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set chDiagramm = ActiveSheet.ChartObjects(1).Chart With chDiagramm.SeriesCollection(1) For inPunkt = 2 To .Points.Count With .Points(inPunkt).Border If Worksheets("Tabelle1").Cells(inPunkt + 2, 2)

hallo, ich komme irgendwie nicht so ganz klar mit dem code. wenn ich ihn so wie er oben steht in ein leeres makro kopiere und noch die Tabelle1 in klammern in Auswertung um ändere, dann auf speichern und beenden klicke, will ich im blatt auswertung den makro nochmals aufrufen und ausführen, jedoch erscheint da nur mein anderer makro. also hab ich mir den anderen angeschaut und den obenstehenden soweit ergänzt das noch was am ende steht, das der name angezeigt wird und ich ihn über extra - makro aufrufen kann. wenn ich den jedoch neu starten will, passiert garnichts im diagramm. mit dem ersten von dir hat es wenigstens geklappt, dass, wenn ich das makro neu gestartet habe über extra - makro, dann hat sich auch das diagramm so gändert wie es sein soll. ich lade mal meine datei hoch, mit dem makro den ich zur zeit so drinne habe.
will nur noch schnell erklären was ich mir vorstelle, wie es wenns möglich ist funktionieren soll. ich habe ja in spalte A und B eine kleine tabelle. spalte A sind monate aufgeführt und spalte B gewichte. über geichte habe ich per Listenfunktion die möglichkeit bestimmte personen abzurufen. die personen beziehen sich auf das tabellenlatt gesamt. das diagramm zeigt mir den verlauf der gewichte in bezug auf die monate zu den personen die ich oben auswählen kann. hab als beispiel 3 personen von januar bis dezember mit fiktiven gewichten versehen.
so ich würde gerne folgendes. mit deiner formel war es ja schon möglich das auf und ab der gewichte im diagramm farblich unterschiedlich mit rot und grün darzustellen. wenn ich jetzt aber in zeile B1 den namen der person ändere wird zwar die entsprechende kurve für die neue person angezeigt aber die farbe ändert sich nicht entsprechend. soll heißen, was eigentlich jetzt grün sein sollte, weil es nach oben steigt, wird weiterhin rot wie bei der vorherigen person angezeigt, weil der abschnitt es bei ihr nach unten zeigte. es wäre halt schön, wenn die farbänderung automatisch funktionieren würde, sobald ich eine andere person über B1 wähle. mit deiner neuen funtion die du mir geschrieben hast, hat es noch nicht geklappt. hoffe du kannst mir weiterhelfen. danke schon mal im vorraus. gruß oblivion
https://www.herber.de/bbs/user/54067.xls

Private Sub Worksheet_Change(ByVal Target As Range) Dim chDiagramm As Chart, varVs As Variant Dim inPunkt As Integer, CIndex As Integer If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Set chDiagramm = ActiveSheet.ChartObjects(1).Chart With chDiagramm.SeriesCollection(1) varVs = .Values For inPunkt = 2 To .Points.Count If varVs(inPunkt - 1) > varVs(inPunkt) Then CIndex = 3 Else If varVs(inPunkt - 1)

Hallo, @oblivion,
schön, dass es entsprechend Deiner Erwartungen funktioniert.
Ob und warum die Struktur Deines Programms die Befehlszeile Application.EnableEvents = True benötigt, kann ich aus den bisherigen Beiträgen in diesem Beitragsfadrn nicht erkennen. Der Gedanke, die Formatierungsroutine mit dem Ereignis der Veränderung eines Zellenwertes zu verknüpfen ( Private Sub Worksheet_Change(ByVal Target As Range) ) ist wohl gerde deswegen von @Beverly vorgeschlagen worden, damit der manuelle Aufruf nicht erforderlich wird.
Um den VBA-Programmcode eines VBA-Projektes zu "verbergen", gibt es die Möglichkeit im Dialogblatt "Schtz" des "VBAProject - Projekteigenschaften"-Dialogs (Aufruf unter dem Menüpunkt "Extras" oder im lokalenmenü des VBAProjekteintrages) die Anzeige zu sperren. Die Vergabe eines Kennworts bietet zudem auf niedrigen Level einen Schutz. Einzelne Abschnitte eines Projekts kanst Du meines Wissens nach auf diese Art nicht schützen.
Gruß,
Uwe
P.S.
Von dynamischen Objekten redet man eigentlich dann, wenn bestimmte Merkmale der Struktur erst zur Laufzeit festgelegt werden, wie z.B. in Deinem Fall, wenn Du die Jahresliste um das Jahr 2009 verlängern möchtest oder allgemeiner, Du die Listenwerte aller Jahre in der Tabelle vorhältst und nur ein bestimmtes Zeitfenster daraus im Diagramm darstellst, das Du dann quasi über die Zeitreihe verschieben oder/und in seiner Größe verändern kannst. Hingegen wird von einer statischen Objekt geredet, wenn die Struktur und Größe feststeht und nur die Werte variable sind, eben z.B. wenn Du in Deinen Zellenblock einmal die Werte des Jahres 2008 und ein anderes mals die Werte des Jahrs 2007 darstellen läßt.
Hast Du also z.B. in Deiner Liste z.B. mehrere Jahrgänge gesammelt und stellst aber im Diagramm nur 12 Werte dar, dann kannst Du die Diagrammfläche anwählen und dann den Datenquellenrahmen, der den Bezug zu den Diagrammdaten auf dem Tabellenblatt herstellt, über die Zeilen hinweg verschieben. Der Code wird automatisch die richtige Farbdarstellung der Steigungen einstellen, soblad z.B. mit F9 eine Neuberechnung ausgelöst wird.

Beliebteste Forumthreads (12 Monate)

Fortsetzung Linienfarbe ändern Diagramm

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread