Sub Diagramm()
' Diagramm Macro
' Macro recorded 21.12.2004 by DEU104914
Range("B3:E665").Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("B3:E665"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""L1"""
ActiveChart.SeriesCollection(2).Name = "=""L2"""
ActiveChart.SeriesCollection(3).Name = "=""L3"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Spannung"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
End Sub
Ich möchte aber nicht jedes mal nur den Bereich von "Range("B3:E665").Select" haben, sondern den Bereich von B3 bis E(letzte Zeile).
In der ersten Zeile habe ich schon eine Lösung gefunden:
Range("B3", Range("B3").End(xlDown).End(xlToRight)).Select
In der vierten Zeile funktioniert das aber nicht. Vielleicht hat jemand ne Lösung. Danke im Voraus.
MfG
Georg