Indsætte flere navne i en serie til et diagram i excel

Er ikke sikker på hvad du mener
Kan du ikke lave et eks (manuel u. makro), og sende til pm@madsen.tdcadsl.dk

Er sendt.

Sub Test()
Application.ScreenUpdating = False
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Test").Range("G10")
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Test"
    ActiveChart.SetSourceData Source:=Sheets("1.").Range("E3:L12"), PlotBy:= _
        xlColumns
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.AutoScaleFont = True
    With Selection.TickLabels.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    With Selection.TickLabels
        .Alignment = xlCenter
        .Offset = 100
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
    End With
    ActiveChart.Legend.Select
    Selection.AutoScaleFont = True
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With
    Selection.Position = xlBottom
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("Møller.xlsx").Activate
    Range("E6").Select
Application.ScreenUpdating = True
End Sub