Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
19.04.2024 11:45:34
Anzeige
Archiv - Navigation
1692to1696
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
Inhaltsverzeichnis

xlMinusValue

xlMinusValue
28.05.2019 12:18:32
Jul
Guten Tag,
ich habe folgendes Problem bei dem Erstellen eines Diagramms per VBA:
Es muss genau ein Wert aus einer TextBox genutzt werden um einen Punkt mit einem benutzerdefinierten Fehlerindikator zu kriegen. Der Punkt liegt bspw. auf 0,47 und muss als Linie auf 0 gehen, also negativ benutzerdefiniert.
Bisher habe ich nur:
With ActiveSheet.ChartObjects("Diagramm 34").Chart
.SeriesCollection(1).ErrorBar Direction:=xlY, Include:= _
xlPlusValues, Type:=xlCustom, Amount:=Range("E2:E5")
End With
Das Problem folglich: xlPlusValue(stattdessen xlMinusValue) und Range"E2:E5"(stattdessen TextBox1
Wie muss ich den Code ändern?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: xlMinusValue
28.05.2019 13:55:12
Rainer
Hallo Jul,
zeigst du uns deine Mappe? Bitte mit dem Code den du schon hast und einem Diagramm, wie es fertig aussehen soll.
Gruß, Rainer
AW: xlMinusValue
29.05.2019 13:29:14
Jul
Ok.
Nur wie lade ich Excel-Dateien hier hoch?
AW: xlMinusValue
29.05.2019 13:48:39
Jul
Und hier der Code
Range("B2:B17").Select
ActiveSheet.Shapes.AddChart2(240, xlXYScatterLines).Select
ActiveChart.SetSourceData Source:=Range("Tabelle1!$B$2:$B$17")
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.FullSeriesCollection(1).XValues = "=Tabelle1!$D$2:$D$17"
ActiveChart.FullSeriesCollection(1).Values = "=Tabelle1!$D$2:$D$17"
ActiveChart.FullSeriesCollection(1).XValues = "=Tabelle1!$B$2:$B$17"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).XValues = "=Tabelle1!$B$21"
ActiveChart.FullSeriesCollection(2).Values = "=Tabelle1!$B$24"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).XValues = "=Tabelle1!$B$22"
ActiveChart.FullSeriesCollection(3).Values = "=Tabelle1!$B$24"
ActiveChart.FullSeriesCollection(3).Select
ActiveChart.FullSeriesCollection(3).HasErrorBars = True
ActiveChart.FullSeriesCollection(3).ErrorBars.Select
ActiveChart.FullSeriesCollection(3).ErrorBar Direction:=xlY, Include:= _
xlMinusValues, Type:=xlFixedValue, Amount:=1
ActiveChart.FullSeriesCollection(3).ErrorBar Direction:=xlY, Include:= _
xlMinusValues, Type:=xlCustom, Amount:=0
Application.CutCopyMode = False
ActiveChart.PlotArea.Select
ActiveChart.FullSeriesCollection(3).ErrorBars.Select
Selection.Delete
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige