Skift mellem Chart alt efter column selection

Du kunne evt. navngive serienavn, serieværdier og X_værdier i grafen ved brug af en forskydningsformel, der afhænger af den valgte kolonne.

Jeg var ikke helt sikker på hvad du mente, men du satte nogen gode tanker i ideer i gang. Jeg endte med at lave en VB kode på det, der endte ud i:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyColumn As Integer
Dim MyColumnLetter As String
Dim title As String

MyColumn = ActiveCell.Column

If MyColumn > 26 Then
    MyColumnLetter = Chr(Int((MyColumn - 1) / 26) + 64) & Chr(((MyColumn - 1) Mod 26) + 65)
Else
    MyColumnLetter = Chr(MyColumn + 64)
End If

title = Cells(8, MyColumn).Value

With ChartObjects("Chart 1").Chart
    .SeriesCollection(1).Values = "'measurement report result'!$" & MyColumnLetter & "$23:$" & MyColumnLetter & "$222"
    .HasTitle = True
    .ChartTitle.Text = title
    With .Axes(xlValue)
        .MaximumScale = 1
        .MinimumScale = 0
    End With
End With
ChartObjects("Chart 1").Left = Columns(1).Left
ChartObjects("Chart 1").Top = Rows(9).Top

End Sub