Gruppe
Grafik
Problem
Wie kann ich den Datenbereich eines Diagramms auf Schaltflächendruck festlegen?
StandardModule: basMain
Sub BereichZuweisen()
Dim cht As Chart
If Selection.Cells.Count = 1 Then
Beep
MsgBox "Sie müssen einen Bereich auswählen!"
Exit Sub
End If
Set cht = ActiveSheet.ChartObjects(1).Chart
cht.SetSourceData Source:=Sheets("Werte"). _
Range(Selection.Address), PlotBy:=xlColumns
End Sub