5 x 4 gefärbtes Säulendiagramm

Sub Visualisierungs_Tool() Dim Zeile As Integer, Spalte As Integer Dim SearchDirection As Range Dim Bereich As Range: Set Bereich = Worksheets("Tabelle1").Range("B5:E8") 'Set SearchDirection = xlPrevious Application.ScreenUpdating = False With Bereich For Zeile = .Row To .Row + .Rows.Count - 1 For Spalte = .Column To .Column + .Columns.Count - 1 ActiveSheet.ChartObjects("Diagramm " & Spalte - .Column + 1).Activate ActiveChart.FullSeriesCollection(Zeile - .Row - 1).Format.Fill.ForeColor.RGB = _ Worksheets("Tabelle1").Cells(Zeile, Spalte).DisplayFormat.Interior.Color ActiveChart.Axes(xlValue).ReversePlotOrder = True With ActiveChart .HasTitle = False .HasLegend = False .HasDataTable = False .HasDataTable = False .AutoScaling = True .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory).AxisTitle.Text = Worksheets("Tabelle1").Cells(10, Spalte).Value .Axes(xlValue, xlPrimary).MaximumScale = 25 .Axes(xlValue, xlPrimary).MinimumScale = 0 ' ActiveChart.Axes(xlValue).ReversePlotOrder = False End With Next Spalte Next Zeile End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim strFormel As String Dim chrDia As ChartObject Dim serReihe As Series If Not Intersect(Target, Range("B5:E10")) Is Nothing Then For Each chrDia In ActiveSheet.ChartObjects For Each serReihe In chrDia.Chart.SeriesCollection strFormel = Split(serReihe.Formula, ",")(2) serReihe.Interior.Color = Range(strFormel).DisplayFormat.Interior.Color Next serReihe Next chrDia End If End Sub

Hallo Lionel,
Du sprichst von einem Makro, sendest aber eine "xlsx", spricht ohne Makro (wäre dann xlsm).
Wenn ich ein bissele Sarkastisch wäre: genau die Bestätigung von was ich immer über VBA sage: Super, bis irgendwas anders ist als bisher und dann steht man da vor einem Code, den man nicht versteht.
Es ist ist dabei nicht mal so kompliziert, Code zu lesen. zum Beispiel:


Dim Bereich As Range: Set Bereich = Worksheets("Tabelle1").Range("B5:E8")

heisst auf deutsch: man definiere eine Variable "Bereich" vom Typ Range (wenn Du wissen will, was Range bedeutet, einmal drauf klciekn und Strg+F1),
dann setzt man diese "Bereich" auf Tabelle1!B5:E8.
Schon hättest Du damit die Antwort zu deiner Frage: wenn der Bereich nicht mehr B5:E8 sondern B5:E9, reicht es schon diese "Adresse" zu ändern? Einfach auf eine Kopie probieren. Was soll da kaputt gehen.
Du musstest zuerst deinen Charts auf die jeweilige 5 Datenquellen richten (B5:B9, zurzeit B6:B9. Dito Spalten C bis E). Aber ich gehe Davon aus, dass es wegen der Reduzierung zur Beispieldatei geschuldet ist.
Dann irgendwo im Code gibt es einen


Zeile - .Row - 1

das fehlerhaft und in


Zeile - .Row + 1

geändert werden sollte.
VBA ist kein gedankenlesender Zauberstab sondern ein Drachen, den es zu zähmen gilt. Aber dann macht Drachenreiten echt Spass!
VG
Yal

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread