Hallo Spezialisten,
in einem Excel-Diagramm müssen immer senkrechte Trennlinien zwischen den Rubriken gezogen werden (damit’s die Chefs verstehen 
)
Kann man sowas automatisieren? Mit Makro? Wenn ja, wie?
Vielen Dank!
Gruß
F_man
Hallo
Rechte Maustaste auf Diagramm drücken. Dann unter Diagrammoptionen -> Gitternetzlinien entsprechend das „Häckchen“ setzten.
Gruss
Jamiro
Hallo,
Vielleicht über ein benutzerdefiniertes Diagramm? (habs selber noch nicht ausprobiert)
http://www.excelabc.de/excel/alt/excel_tips_diagramm…
Gruß
Sebastian
Rechte Maustaste auf Diagramm drücken. Dann unter
Diagrammoptionen -> Gitternetzlinien entsprechend das
„Häckchen“ setzten.
Einfache Idee - führrt aber nicht zum gewünschten Ergebnis. Ich habe ein Punkt (XY) Diagramm. Dort sind in drei Kategorien Werte als Punkte zu sehen. Um die drei Kategorien voneinander zu unterscheiden, ziehe ich momentan eine Linie aus dem Menü „Zeichnen“ - sehr manuell. Die Gitternetz-Linien laufen leider bei diesem Diagrammtyp durch die Datenpunkte - nicht daneben. Die Kategorien werden durch automatisch eingefügte Leerzeichen in der Datenquelle voneinander „separiert“. Hoffe, das beschreibt mein Problem besser.
Vielen Dank für Hilfe!
Gruß
F_man
Hi,
Einfache Idee - führrt aber nicht zum gewünschten Ergebnis.
Ich habe ein Punkt (XY) Diagramm. Dort sind in drei Kategorien
Werte als Punkte zu sehen. Um die drei Kategorien voneinander
zu unterscheiden, ziehe ich momentan eine Linie aus dem Menü
„Zeichnen“ - sehr manuell. Die Gitternetz-Linien laufen leider
bei diesem Diagrammtyp durch die Datenpunkte - nicht daneben.
Die Kategorien werden durch automatisch eingefügte Leerzeichen
in der Datenquelle voneinander „separiert“. Hoffe, das
beschreibt mein Problem besser.
Ich glaube so ganz verstanden hab ich das immer noch nicht…
Du könntest im Diagramm ja auch je Kategorie eine Datenreihe einfügen - dann kannst du die einzelnen Kategorien farblich unterscheiden.
Gruß
Sebastian
in einem Excel-Diagramm müssen immer senkrechte Trennlinien
zwischen den Rubriken gezogen werden (damit’s die Chefs
verstehen
Kann man sowas automatisieren? Mit Makro? Wenn ja, wie?
Hi F man,
Makrolösung habe ich nicht, wie wärs mit ner zweiten Datenreihe?
Nachfolgendes Makro erzeugt ein derartiges Diagramm.
Gruß
Reinhard
Sub Makro6()
'
' Makro6 Makro
' Makro am 13.05.2004 von r aufgezeichnet
'
'
Range("a1").Select
ActiveCell.FormulaR1C1 = "x"
Range("B1").Select
ActiveCell.FormulaR1C1 = "y"
Range("C1").Select
ActiveCell.FormulaR1C1 = "x'"
Range("D1").Select
ActiveCell.FormulaR1C1 = "y'"
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A20"), Type:=xlFillSeries
Range("A2:A20").Select
Range("A7").Select
Selection.ClearContents
Range("A8").Select
Selection.ClearContents
Range("A14").Select
Selection.ClearContents
Range("A15").Select
Selection.ClearContents
Range("C7").Select
ActiveCell.FormulaR1C1 = "6.5"
Range("C8").Select
ActiveCell.FormulaR1C1 = "6.5"
Range("D7").Select
ActiveCell.FormulaR1C1 = "0"
Range("D8").Select
ActiveCell.FormulaR1C1 = "100"
Range("C14").Select
ActiveCell.FormulaR1C1 = "13.5"
Range("C15").Select
ActiveCell.FormulaR1C1 = "13.5"
Range("D14").Select
ActiveCell.FormulaR1C1 = "0"
Range("D15").Select
ActiveCell.FormulaR1C1 = "100"
Range("B2").Select
ActiveCell.FormulaR1C1 = "87"
Range("B3").Select
ActiveCell.FormulaR1C1 = "56"
Range("B4").Select
ActiveCell.FormulaR1C1 = "13"
Range("B5").Select
ActiveCell.FormulaR1C1 = "24"
Range("B6").Select
ActiveCell.FormulaR1C1 = "99"
Range("B9").Select
ActiveCell.FormulaR1C1 = "34"
Range("B10").Select
ActiveCell.FormulaR1C1 = "81"
Range("B11").Select
ActiveCell.FormulaR1C1 = "23"
Range("B12").Select
ActiveCell.FormulaR1C1 = "49"
Range("B13").Select
ActiveCell.FormulaR1C1 = "51"
Range("B16").Select
ActiveCell.FormulaR1C1 = "84"
Range("B17").Select
ActiveCell.FormulaR1C1 = "28"
Range("B18").Select
ActiveCell.FormulaR1C1 = "17"
Range("B19").Select
ActiveCell.FormulaR1C1 = "32"
Range("B20").Select
ActiveCell.FormulaR1C1 = "59"
Range("E4").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
'ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("E4")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R2C1:R20C1"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C2:R20C2"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R1C2"
ActiveChart.SeriesCollection(2).Name = "=Tabelle1!R1C4"
ActiveChart.SeriesCollection(2).Values = "=Tabelle1!R2C4:R20C4"
ActiveChart.SeriesCollection(2).XValues = "=Tabelle1!R2C3:R20C3"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub