Hallo M...,
Mir ist aufgefallen, dass es in deiner Datei zu einem Ereignisnamen manchmal zwei Zeilen mit ähnlichen aber nicht gleichen Zeiten gibt. Einmal mit Beschriftungen und einmal mit Linien. Ich vermute damit die Linien nicht auf der Beschriftung liegen.
Wäre es nicht einfacher und sauberer die Linien unterhalb der Beschriftung zu legen (siehe Anlage Ereignisnamen 3, 4, 5 und 16). Du bräuchtest weniger Ereigniszeilen, müsstest die anderen Zeiten nicht mehr ermitteln und sowohl die Beschriftungen als auch die Enden der Linien liegen auf den genauen X-Werten.
Mit wenigen Änderungen könntest du die bisherige Datei anpassen. Eine mittige Positionierung (auch zum gleichen Ereignisnamen) ist dann weiterhin möglich (siehe Anlage Ereignisnamen 5, 13 und 14)
1. Eine zusätzliche Spalte ("Y2") als 10. Spalte der Tabelle Ereignisse hinzufügen,
2. die Formeln in den Spalten "Y1" und "Y2" anpassen und
3. im Makro im Bereich "Linien kopieren" in folgender Zeile die 2 durch eine 10 ersetzen.
Code:
PosY = PlotT + PlotH - (Ereignisse(Z1, 2) - MinY) * PlotH / (MaxY - MinY)
Hallo Helmut,
vielen Dank für deine interessante Idee, das würde das ganze einfacher machen und sieht (meiner Meinung nach) auch besser aus. Ich habe versucht das ganze in meine Datei einzubetten, allerdings werden generell keine Beschriftungen angezeigt, die unter "EreignisseRechts" eingetragen werden. Allerdings ist die Position Ereignisse Rechts - Datenbeschriftungen vorhanden, und das Makro sollte das ganze ja resetten.
Hallo M...,
wenn das Makro nicht mit einer Fehlermeldung abbricht, ist ohne die Datei sehen zu können, die einzige Idee zu prüfen, ob unter "Daten auswählen" noch der richtige Bereich zugeordnet ist.
Hallo Helmut,
in der Zwischenzeit noch eine andere Frage: Kann man das Makro so anpassen, dass die Schriftgröße und Farbe der Ereignisse mit in die Tabelle übernommen werden? Wenn ja, wie müsste das aussehen? Wobei mir eigentlich statt der Schriftgröße eher die Formatierung wichtig wäre (einige Werte haben z.B. Hochzahlen).
Hallo M...,
In Beschriftungen von Datenreihen kann man Teile nicht unterschiedlich formatieren.
Ein Möglichkeit wäre die Beschriftungen der Datenreihen durch Textfelder zu ersetzen. Sie können, wenn sie formatiert sind, wie die Pfeile ins Diagramm positioniert werden. (Aber ich mache das nicht mehr.)
Hallo Helmut,
nach längerem Basteln meinerseits nochmal eine kurze frage. Leider werden die Ereignisbeschriftungen Rechts trotz des Makros, welches die Beschriftungen auf Knopfdruck neu zuordnet, nicht mehr in das DIagramm eingetragen, obwohl ich das Makro nie verändert habe. Habe ich da versehentlich etwas zerschossen?
Hallo M...,
du trägst in etlichen Zellen über Formeln in Tabelle "Ereignisse" Spalte "Bis" (Blattspalte X) ein "" ein.
Dadurch akzeptiert Excel diesen Bereich nicht mehr als X-Werte für die Datenreihe und ersetzt sie durch die Reihe 1;2;3;... .
Da das Maximum der X-Werte kleiner als 1 ist, werden die Bis-Werte und damit auch die Beschriftungen nicht eingetragen.
Schreibe in den Formeln anstelle von "" besser NV() in die Zellen ein.
ps.
Warum hast du meinen Änderungsvorschlag aus #61 nicht umgesetzt?
Hallo Helmut,
danke für deine schnelle Antwort. Bezüglich deines Vorschlages: Ich Bin noch am Diskutieren mit einigen Kollegen, welche Variante übersichtlicher ist bzw. dann für den Leser des Protokolls intuitiver ist, ich persönlich finde deine Idee besser und für die Umsetzung auch deutlich einfacher, nachdem immer nur eine Linie pro Zeile gezeichnet werden muss.
Eine andere Frage:
Ich habe probeweise für die EreignisnamenRechts mal einen Rahmen mit in das Makro eingebaut, allerdings ist dieser doch sehr hoch, was ab einer gewissen Zahl an Säulen dazu führt, dass der Rahmen in die jeweils darüber und darunter liegende Zeile ragt (s. Screenshot 1). Darum habe ich außerdem noch im Makro eine Zeile eingefügt, die die Rahmenhöhe auf 0,35 cm reduziert. Allerdings ändert sich dadurch auch die Breite des Rahmens, wodurch die Linien nicht mehr passen und auch der Beginn des Rahmens nicht mehr dem Zeitpunkt des Eintrags in der Liste entspricht (liegt der Anfang des Rahmens zb bei 11:30, so wurde die Maßnahme zu genau diesem Zeitpunkt gestartet) -> s. Screenshot 2.
Ich habe schon einmal probiert, mithilfe der Zeile
Code:
Punkt.DataLabel.Width = AUTO
die automatische Änderung der Breite "zurückzusetzen", das funktioniert allerdings nicht. Hast du noch eine Idee, wie man sozusagen nur die Höhe der Labels ändert und die Breite in Ruhe gelassen wird?
Alternativ würde ich für die möglichen Werte in der Spalte EreignisseRechts eine entsprechende Weite des DataLabel zuweisen, allerdings findet Excel den in der Tabelle (in einer weiteren Mappe sind alle möglichen Werte aufgelistet und daneben würde ich eine Spalte mit den möglichen Weiten dazu machen) zu suchenden Wert nicht:
Punkt.DataLabel.Width = WorksheetFunction.VLookup(Punkt.DataLabel.Caption, ThisWorkbook.Sheets("Linienabstände").Range("A1:C20"), 3, False)
Hallo M...,
ich kann nichts dazu sagen was Excel macht wenn man in einem Makro die Höhe oder Weite eines Textfeldes ändert. Ich hätte einen kleineren Schriftgrad genutzt.