Letzte volle Zelle in Reihe ermitteln
Sven
ich bin gerade dabei, mir ein Makro zu schreiben um, aus Daten eines Arbeitsblattes einen Graphen zu erstellen.
Da die Daten immer unterschiedlich lang sind, würde ich gerne die letzte gefüllte Zelle einer Zeile ermitteln, damit ich damit dann entsprechend den Bereich für den Graphen angeben kann. So ungefähr wie folgt:
lastcolumn = ........
X = "B1: & lastcolumn & "1"
Y = "B2:" & lastcolumn & "2"
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterLines
ActiveChart.SetSourceData Source:=Sheets(1).Range(X & "," & Y)
Vielleicht kann mir da jemand weiter helfen.
Vielen Dank.
Beste Grüße
Sven