Hallo zusammen, ich habe eine hoffentlich relativ einfache Frage:
Ich habe ein Macro erstellt, mit welchem ich nacheinander Diagramme mit Hilfe einer Auswahl erzeuge.
(Bitte nicht über die Schreibweisen meines Codes aufregen, ich hab nie VBA Gelernt ;)
Allerdings erstellt mir das Macro die Diagramme erst nach dem Abbrechen der Loop-Sequenz.
Ist es möglich, dass jedes Diagramm nach durchlauf seiner Sequenz erstellt wird. (Dadurch könnte ich die direkt an den gewünschten Ort verschieben)
Anbei mal mein Macro:
[Code]
Do
Set Name = Application.InputBox("DiagrammName auswählen", _
"Zielzelle wählen", Type:=8)
Set y = Application.InputBox("DiagrammZeilen auswählen", _
"Zielzelle wählen", Type:=8)
ErsteZelle = y.Row
AnzahlZelle = y.Count
Ausgleich = ErsteZelle - 1
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBubble
With ActiveChart
For n = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(n).Delete
.HasTitle = True
.ChartTitle.Characters.Text = Name
Next n
End With
For i = 1 To AnzahlZelle
x = Ausgleich + i
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Name = Sheets(1).Cells(x, 1)
ActiveChart.SeriesCollection(i).XValues = Sheets(1).Cells(x, 3)
ActiveChart.SeriesCollection(i).Values = Sheets(1).Cells(x, 4)
ActiveChart.SeriesCollection(i).BubbleSizes = Sheets(1).Cells(x, 2)
Next i
Loop
[/Code]
|