Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Diagrammerstellung in nach jedem Durchlauf (Loop)
 23.02.2016 16:26:18 Sno_0ze
Solved
23.02.2016 16:34:50 Sno_0ze
Solved
23.02.2016 17:37:32 Gast19972
NotSolved
23.02.2016 17:51:17 Sno_0ze
Solved
23.02.2016 18:03:16 Gast69232
NotSolved
23.02.2016 21:08:40 Gast67838
Solved

Ansicht des Beitrags:
Von:
Sno_0ze		 Datum:
23.02.2016 16:26:18		 Views:
1467		 Rating:
     
Antwort:
 Nein
Thema:
VBA Diagrammerstellung in nach jedem Durchlauf (Loop)
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]

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Diagrammerstellung in nach jedem Durchlauf (Loop)
 23.02.2016 16:26:18 Sno_0ze
Solved
23.02.2016 16:34:50 Sno_0ze
Solved
23.02.2016 17:37:32 Gast19972
NotSolved
23.02.2016 17:51:17 Sno_0ze
Solved
23.02.2016 18:03:16 Gast69232
NotSolved
23.02.2016 21:08:40 Gast67838
Solved