wechselnden Bereich selektieren
04.04.2008 13:43:00
Köhler
Mit folgendem Code möchte ich gerne ein Excel Diagramm von einen bestimmten Datenbereich erstellen. Der fettgedruckte Teil zeigt meinen gewählten Selektionsbereich.
Ich möchte nun gerne die Selektion automatisieren, da sich der Datenbereich häufig ändert. Es sollen immer nur die Zellen selektiert werden, die auch mit Daten gefüllt sind. Und das wenn möglich nur innerhalb eines immer gleich bleibenden Bereichs. Dieser fixe Bereich geht von B4:O18.
Kann mir da jemand helfen?
Sub Button5_Click()
Range("B4:F8").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("A Matiz").Range("B4:F8"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="A Matiz"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
End Sub