Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagramme mit Schleife umbenennen?

Diagramme mit Schleife umbenennen?
06.11.2018 09:17:15
SebastianMB
Hallo,
mal wieder benötige ich eure Hilfe. Ich habe ein Diagramm welches per VBA erstellt wird. Der Name lautet "Messpunkt 0°".
Dieses wird dann mit folgendem Code 23 mal Kopiert. Der Name soll sich dann so ändern.
Messpunkt 15°
Messpunkt 30°
Messpunkt 45°
...............
Messpunkt 345°
etc. also in 15° schritten.
Wie kann ich das in meine bestehende Schleife einbauen oder wie würdet ihr das angehen?
Vielen Dank, schon mal für eure Hilfe. 
Sub DiasKopieren()
Dim lngZeile As Long
Dim intReihe As Integer
Dim intZaehler As Integer
Dim strX As String
Dim strY As String
Dim serReihe As Series
lngZeile = 10
intReihe = 1
Application.ScreenUpdating = False
For intZaehler = 1 To 23 'für 24
ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Copy
Cells(lngZeile + 620, 20).Select 'Select damit Diagramm richtig positioniert
ActiveSheet.Paste
With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Chart
For Each serReihe In .FullSeriesCollection
strX = Split(serReihe.Formula, ",")(1)
strY = Split(serReihe.Formula, ",")(2)
serReihe.XValues = ActiveSheet.Range(strX).Offset(620, 0)
serReihe.Values = ActiveSheet.Range(strY).Offset(620, 0)
intReihe = intReihe + 1
DoEvents
Next serReihe
End With
lngZeile = lngZeile + 620
Next intZaehler
Application.ScreenUpdating = True
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Diagramm mehrfach kopieren & benennen
06.11.2018 09:32:46
Beverly
Hi,
benutze eine Zählvariable:
Sub DiasKopieren()
Dim lngZeile As Long
Dim intReihe As Integer
Dim intZaehler As Integer
Dim strX As String
Dim strY As String
Dim serReihe As Series
Dim lngZaehler As Long  '

AW: Diagramm mehrfach kopieren & benennen
06.11.2018 10:23:55
SebastianMB
Hallo Beverly,
mal wieder vielen Dank für deine schnelle Hilfe. Wirklich super!
Ich habe den Code jetzt probiert, leider mache ich irgend etwas falsch.
Die Diagramme heißen weiterhin alle Messpunkt 0°.
Hast du vielleicht eine Idee?
Hier der Anfang des Makros der das erste Diagramm beschriftet:
Sub DiagrammErstellung()
Dim xWerte As Range, yWerte As Range, i As Long
Dim Daten As Worksheet
Application.ScreenUpdating = False
Set Daten = Sheets("Auswertung")
With Daten
With ActiveSheet.Shapes.AddChart.Chart                                                 ' _
hinzufügen von Diagramm
.ChartType = xlXYScatterLinesNoMarkers                                               _
'Festlegen von Diagrammtyp               ActiveChart.Location Where:=xlLocationAsObject, Name:="Analyse Hiebe (Grafik)"
.HasTitle = True
.ChartTitle.Text = "Messpunkt 0°"
_
'Beschriftung Achsen
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Z-Werte"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = ""
End Sub

Anzeige
AW: Diagramm mehrfach kopieren & benennen
06.11.2018 11:21:03
Beverly
Hi,
ich kann dein Problem nicht nachvollziehen - der Name des kopierten Diagramms wird doch aus dem feststehenden Begriff "Messpunkt " und dem Zähler lngZaehler generiert, der in der Schleife des Kopiervorgangs jeweils um 15 erhöht wird. Das Ganze hat also überhaupt nichts damit zu tun, wie dein zuerst erstelltes Diagramm heißt. Schau dir das angehängte Beispiel an - die Diagramme rechts sind alles Kopien des ersten Diagramms links und heißen "Messpunkt 15°", "Messpunkt 30°", Messpunkt 45°" usw., unabhängig davon wie das erste Diagramm heißt.
Das Einzige was ich am Code geändert habe sind Zeilenversatz und Spaltennummer, damit das ganze übersichtlicher ist und die Diagrammkopien nicht 620 Zeile versetzt untereinander positioniert sind - das hat aber keinen Einfluss auf die Codeausführung oder die Diagrammbenennung.
https://www.herber.de/bbs/user/125182.xlsm

Anzeige
AW: Diagramm mehrfach kopieren & benennen
06.11.2018 12:17:03
SebastianMB
Hallo,
tut mir leid wegen dem Missverständnis.
Wenn ich die Angehängte Datei öffne, habe ich wieder das Problem. Siehe Screenshot. Deswegen meinte ich, dass es an mir liegen muss und ich den Fehler nicht finde.
Userbild
Du hast eine Zelle und kein Diagramm...
06.11.2018 12:33:44
Beverly
Hi,
...markiert. Wenn du das erste Diagramm markierst, steht im Namenfenster "Messpunkt 15°":
Userbild
Bei den Excel-Optionen hast du unter -&gt Formeln die Z1S1-Bezugsart aktiviert - das sieht man im Namenfenster, dort steht Z14S4, also D14. Das hat aber absolut nichts mit dem Code zu tun.

Anzeige
Danke - gelöst!
06.11.2018 12:45:35
SebastianMB
Hallo Beverly,
leider kannte ich den unterscheid zwischen Diagrammtitel und Diagrammname nicht. Habe jetzt die Zeile parent.name durch Chart.title.text ersetzt und es macht was es soll.
Sub DiasKopieren()
Dim lngZeile As Long
Dim intReihe As Integer
Dim intZaehler As Integer
Dim strX As String
Dim strY As String
Dim serReihe As Series
Dim lngZaehler As Long  '

Tut mir leid, dass ich mich mal wieder nicht richtig ausgedrückt hatte und es deswegen zu diesem Missverständnis gekommen ist. Danke, für deine Hilfe und Geduld.
Liebe Grüße
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige