Hej hej
i nedan kod så är rngdata och rngdata 2, områden med stapelhöjder. rngkat, rngkat2 är staplarnas namn.
Notera att varje område endast mostsvarar en stapel, så om du har ganska många staplar så blir det drygt att sätta allt statiskt. Då är det bättre att loopa dina namnginvaområden och sätta staplarna dynamiskt istället. Detta borde gå att göra om du namnger dina dataområden och stapelnamn på smart sätt. Annars:
Option Explicit
Sub fixChart()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim rngData As Range: Set rngData = ws.Range("rngHeight")
Dim rngHeader As Range: Set rngHeader = ws.Range("rngKat")
Dim rngData2 As Range: Set rngData2 = ws.Range("rngdata2")
Dim rngHeader2 As Range: Set rngHeader2 = ws.Range("rngKat2")
ws.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).Values = rngData
ActiveChart.SeriesCollection(1).Name = rngHeader
ActiveChart.SeriesCollection(2).Values = rngData2
ActiveChart.SeriesCollection(2).Name = rngHeader2
End Sub