Letzte Kolonne ermitteln

[PaulB]

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")

[lupo1]

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

[schauan]

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