Diagramm Macro
04.11.2003 07:53:00
Jörg
ich habe folgendes Problem: Ich habe mir mit folgendem Macro eine Tabelle automatisch markieren lassen, nun will ich diese in einem Diagramm (Säulendiagramm) mit Hilfe eines Macros darstellen lassen, mit dem Macrorecorder hats nicht geklappt, weil der Datenbereich immer Festgelegt ist.
Also hier mein Macro:
Sub Tabelle_markieren()
Dim zanfang As Integer, spanfang As Integer, altezeile As Integer, altespalte As Integer
altezeile = Selection.Row
zanfang = altezeile
altespalte = Selection.Column
spanfang = altespalte
Do Until Cells(altezeile, altespalte).Value = ""
altezeile = altezeile + 1
Loop
Do Until Cells(altezeile - 1, altespalte).Value = ""
altespalte = altespalte + 1
Loop
Range(Cells(zanfang, spanfang), Cells(altezeile - 1, altespalte - 1)).Select
End Sub
Mit dem Macro wird der Bereich der Tabelle markiert, der als Datenbereich verwendet werden soll.
Mein Diagrammmacro sieht wie folgt aus:
Sub Diagramm_M901_Datum()
Sheets("S_D_Z").Select
Range("D5").Select
Application.Run "'import_neu.xls'!Modul12.Tabelle_markieren"
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("S_D_Z").Range("D5:E23"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="D_Datum_M901"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "PL_9 Presse 2"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Störung"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anzahl"
End With
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
ActiveChart.Legend.Select
Selection.Delete
ActiveChart.Axes(xlCategory).Select
Selection.TickLabels.AutoScaleFont = True
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
Selection.TickLabels.Orientation = 89
End Sub
Nun will ich eigentlich nur wissen, wie ich die Zeile 6 des Diagrammmacros verändern muß, damit der Tabellenbereich genommen wird, der gerade markiert ist.
Wäre toll wenn mir jemand helfen könnte. Danke