Diagrammserie erstellen
13.06.2005 13:31:45
Richard
ich möchte eine Diagrammserie erstellen, es sind ca 40 Diagramme, habe folgendes versucht aber es klappt irgendwie nicht, kann mir jemand weiter helfen? Bei diesem Beispiel wollte ich erstmal mit zwei versuchen.
wäre dankbar für eure Hilfe
Sub Diagramme()
Dim rng As Range
Dim nr As Integer
Application.ScreenUpdating = False
Select Case nr
Case 1
Set rng = Range("O:O,P:P,R:R,T:T,V:V,X:X,Y:Y")
Case 2
Set rng = Range("O:O,Q:Q,S:S,U:U,W:W,Z:Z,AA:AA")
For Each rng In ActiveSheet.UsedRange
Charts.Add
Next rng
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=rng, PlotBy:=xlColumns
.Location Where:=xlLocationAsNewSheet
End With
End Select
End Sub
gruß
rich.