Clever-Excel-Forum

Hallo

Ich habe vor einiger Zeit ein Macro mittels Macro-recorder erstellt.
Dieses funktioniert bislang auch zu vollster Zufriedenheit.
Bei der Erstellung war der Wert der Totalspannung IMMER in der Kolonne "Z".

Bei dem Macro-recording habe ich die Kolonne "A" (= Zeitachse) sowie Kolonne "Z" angewählt - um daraus ein Chart zu generieren.
Nun hat sich aber die Sache geändert, sodass sich dieser Wert je nach Gegebenheit in einer anderen Kolonne befinden kann.

In jedem Fall befindet er sich aber in der jeweiligen letzten Kolonne.
Frage: wie kann ich das Macro so umändern dass immer Kolonne "A" und die jeweilige letzte Kolonne ausgewählt werden ?

Vielen Dank für eure Hilfe

Mit freundlichen Grüssen.

Hier der aufgenommene Code

Code:
   Columns("A:A").Select

    ActiveWindow.LargeScroll ToRight:=1

    Range("A:A,Z:Z").Select

    Range("Z1").Activate

    ActiveSheet.Shapes.AddChart2(227, xlLine).Select

    ActiveChart.SetSourceData Source:=Range("'Trier-2'!$A:$A,'Trier-2'!$Z:$Z")

Inputbox Spalte 'bitte selbst hübscher machen!
Range(Spalte & "1").Activate
ActiveSheet.Shapes.AddChart2(227, xlLine)
ActiveChart.SetSourceData Source:=Range("'Trier-2'!$A:$A,'Hinkel-2'!$" & Spalte & ":$" & Spalte)

ungetestet

Hallöchen,

automatisch könnte das so gehen, wenn außer den Diagrammdaten nix in Zeile 1 steht:

Code:
Sub DiaSpalten()

ActiveSheet.Shapes.AddChart2(227, xlLine).Select

ActiveChart.SetSourceData Source:=Columns("A:" & Split(Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).Address, "$")(1))

End Sub

PaulB

lupo1

schauan