ich würde gerne den in einer Zelle errechneten Prozentwert als Diagramm darstellen, komme aber irgendwie nicht dahinter wie das gehen könnte.
Wie so oft ist die Antwort wahrscheinlich naheliegend.
Vielen Dank schon mal
Ralf
Sub ZellwertAlsDiagramm()
Range("A1").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A1"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub