Hallo!
Ich möchte einen Teil des VBA Codes, der in einem CommandButton steht in ein Modul schreiben.
In der Praxis ist das nur ein Teil der gesamten Aufgabe.
In der Tabelle Skizze ist ein XY Diagramm das Seitenansichten zeichnet.
Dieser Teil hier erstellt eine horizontale Mittellinie.
Code:
'Mittellinie
If Worksheets("Skizze").MittellinieCheckBox.Value = True Then
Dim ylinie As Double
Dim x1linie As Double
Dim x2linie As Double
With ActiveChart.Shapes
ylinie = origin.Y
x1linie = origin.X + Worksheets("Skizze").Range("E29").Value * panel_scale
x2linie = origin.X + Worksheets("Skizze").Range("G29").Value * panel_scale
Set shp = .AddLine(x1linie, ylinie, x2linie, ylinie)
shp.Line.ForeColor.RGB = RGB(0, 0, 0)
shp.Line.Weight = 1 ' Linienstärke anpassen
shp.Line.DashStyle = msoLineDashDot
End With
End If
Jetzt habe ich ein Modul eingefügt und das Modul: MITTELLINIE genannt.
In dem Modul ist die Prozedur: ZeichneMittellinie().
Mit Call ZeichneMittellinie rufe ich die Prozedur auf.
Code:
Sub ZeichneMittellinie()
With ThisWorkbook.Worksheets("Skizze")
panel_scale = 0.050124
Dim ylinie As Double
Dim x1linie As Double
Dim x2linie As Double
Worksheets("Skizze").ChartObjects("Sketch").Activate
With ActiveChart.Shapes
origin.Y = 0
origin.X = 30
ylinie = origin.Y
x1linie = origin.X + Worksheets("Skizze").Range("E29").Value * panel_scale
x2linie = origin.X + Worksheets("Skizze").Range("G29").Value * panel_scale
Set shp = .AddLine(x1linie, ylinie, x2linie, ylinie)
shp.Line.ForeColor.RGB = RGB(0, 0, 0)
shp.Line.Weight = 1 ' Linienstärke anpassen
shp.Line.DashStyle = msoLineDashDot
End With
End With
End Sub
Was muss ich abändern , damit die Linie im Diagramm gezeichnet wird?
Danke
Gruß Frank
ich habe eine Excel-Datei, in der während meiner letzten Bearbeitung aus mir unbekannten Gründen plötzlich ein Feld aufgetaucht ist, in dem ich zwar Text eingeben kann, das sich aber weder markieren noch verschieben oder entfernen lässt. Auch anklickbare Eigenschaften hat es nicht - es ist einfach da und verschwindet nicht mehr.
Das Feld überlagert ein eigentliches Tabellenfeld und ist mit einem etwas dickeren, das Tabellenfeld nicht ganz ausfüllenden Rahmen umrahmt.
Meine Arbeit an dieser nicht ganz unwichtigen Datei konnte ich letztlich dadurch retten, dass ich den gesamten Inhalt per c&p in eine andere Datei übertragen habe - das "komische" Feld lässt sich ja nicht markieren und wurde daher zum Glück auch nicht mit übertragen.
Dennoch würde ich grundsätzlich einfach mal gerne verstehen, was das ist - is it a bug or is it an undocumented feature?
ich habe einen Report, an dem ich mir seit einigen Stunden die Zähne ausbeiße.
In den Spalten sind jeweils Angaben zu einer Dauer in Sekunden enthalten, leider ist das Zellenformat irgendwie seltsam und ich bekomme es beim besten Willen nicht hin, alle Angaben von Sekunden in Dezimalstunden umzuwandeln/umzurechnen.
Hallo zusammen, ich bin neu hier und habe leider nicht wirklich was passendes gefunden, deswegen ein neuer Theard, falls ich was übersehen habe, bitte entschuldigt.
Also, um mal zu meinem Anliegen zu kommen,
im Anhang ist meine Excel Mappe
da hab ich 2 Probleme:
1. wenn ein Feiertag ein Wochentag ist, bekomme ich es nicht hin das die Pausenzeit auf "0:00" so wie an einem Tag am Wochenende.
2. In einem Schaltjahr wird der 29.02 automatisch angezeigt oder eben auch nicht, je nachdem ob es den Tag im jeweiligen Jahr gibt oder nicht aber, ich möchte das in den Zellen auch die Formeln dann drin sind oder halt auch nicht.
Habe es auch in der Mappe nochmal dazugeschrieben was ich wo meine.
Hoffe es ist einigermaßen verständlich was ich vorhabe.
Vllt. könnt ihr mir ja helfen!?
Hallo allerseits,
irgendwie hab ich grad einen Denkfehler, komm aber nicht drüber weg.
Ich möchte einem bestehenden Diagramm eine zweite Linie mit neuen Daten hinzufügen.
Dabei werden aktuell die Daten aus =Tabelle2!$B$8:$B$17 (Reihenname) und =Tabelle2!$F$8:$F$17 (Reihenwerte) geholt. Hinzukommen sollen =Tabelle2!$K$8:$K$17 (Reihenname) und =Tabelle2!$O$8:$O$17 (Reihenwerte).
Bei F und O handelt es sich um Messwerte, in B und K ist der Abstand zu Tag X angegeben. Letzterer ist allerdings nicht immer gleich, also in B z.B. 15, 18, 22 und in K 14, 18, 24.
Wenn ich nun versuche, die in eine Tabelle zu packen kommt aber auf der Y-Achse immer nur eine Beschriftung raus und die Punkte in meinem Liniendiagramm werden auch exakt übereinander gesetzt, obwohl die Werte ja gar nicht vom "gleichen Tag" stammen. Außerdem "passt" die Linie einfach von ihrem Anstieg her nicht mehr zu den Werten. Als nur eine Reihe im Diagramm war sah der Verlauf ganz anders aus.
Ich möchte die Messwerte miteinander vergleichen können und hätte deswegen gerne beides in einem Diagramm, statt in zweien nebeneinander.
Kann mir jemand weiterhelfen wie ich das am besten anstelle? Vermutlich ist es total simpel, aber irgendwie will das grad alles nicht so wie ich willl.
Hinweis auf Angebot
Excel-Inside - lang Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen. Gerne
erstellen wir auf dieser Basis ein Angebot. Sende deine Anfrage
einfach per
E-Mail an anfrage@excel-inside.de
![[Bild: berschriften.jpg]](https://i.ibb.co/TRVbnvT/berschriften.jpg)
Keine
Lösung gefunden? Du kannst Dich gerne an
unser erfahrenes Experten-Team
wenden um dein Anliegen zu besprechen.