Office: Diagramm in aktivem Tabellenblatt erstellen

Chris85 · 29. Januar 2011

Hallo,

Ich habe folgenden Code, welcher aus einem bestimmten Bereich (B1 : D20) ein Diagramm mit zwei Kurven erstellt.

Bisher habe ich es immer so gemacht: Ich habe meine Werte in ein neues Tabellenblatt eingefügt und habe im VBA Editor den Namen ("fett gedruckt") angepasst. Dann habe ich strg+g gedrückt und bekam das Diagramm.

Wie also kann ich es umgehen, dass ich
a) vorher den Wertebereich eintippe, sondern einfach mit der Maus anwähle, und
b) das ganze in dem Tabellenblatt stattfindet, in dem ich mich gerade befinde?!

Wenn ich bei Source "Activesheet" eingebe, funktioniert irgendwie gar nichts mehr... was mache ich denn falsch???

Code:

Sub Diagramm()
'
' Diagramm Makro
' Makro am 31.01.2011 von haake aufgezeichnet
'
' Tastenkombination: Strg+g
'
Range("B1:D20").Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets("PDMS_FS_8").Range("B1:D20"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="PDMS_FS_8"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = 0.1
.MaximumScale = 100
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlCustom
.CrossesAt = 0.1
.ReversePlotOrder = False
.ScaleType = xlLogarithmic
.DisplayUnit = xlNone
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0.0001
.MaximumScale = 10000
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlCustom
.CrossesAt = 0.0001
.ReversePlotOrder = False
.ScaleType = xlLogarithmic
.DisplayUnit = xlNone
End With
ActiveChart.SeriesCollection(1).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlDiamond
.Smooth = False
.MarkerSize = 2
.Shadow = False
End With
ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlSquare
.Smooth = False
.MarkerSize = 2
.Shadow = False
End With
ActiveChart.Legend.Select
Selection.Left = 197
Selection.Top = 153
ActiveChart.PlotArea.Select
Selection.Width = 267
ActiveChart.Legend.Select
Selection.Left = 225
Selection.Top = 135
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Legend.Select
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
Selection.Shadow = False
Selection.Interior.ColorIndex = xlNone
ActiveChart.PlotArea.Select
ActiveChart.Legend.Select
Selection.Height = 21
Selection.Top = 146
Selection.Height = 18
ActiveChart.PlotArea.Select
ActiveChart.Legend.Select
Selection.Left = 214
Selection.Top = 194
Selection.Top = 188
Selection.Height = 24
ActiveWindow.Visible = False
Windows("Mappe2").Activate
Range("G28").Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße und schon mal Danke
Chris

:)

NoNet · 31. Januar 2011

Hallo Chris,

der Fehler tritt auf, da nach dem Erzeugen des Diagramms per VBA das gerade erzeugt Diagramm das Activesheet ist und nicht mehr das zuvor markierte Tabellenblatt. Die Lösung : Das Tabellenblatt (oder: der markierte Bereich) zuvor in einer Objektvariablen speichern und diesen im VBA-Code verwenden. Hier der Lösungsansatz, die Objektvariable ist rngBereich :

Code:

Sub Diagramm()
'
' Diagramm Makro
' Makro am 31.01.2011 von haake aufgezeichnet
' ergänzt am 31.01.2011 von NoNet
' Tastenkombination: Strg+g
'
Dim rngBereich As Range
'Range("B1:D20").Select
Set rngBereich = Selection

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=rngBereich, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=rngBereich.Parent.Name
With ActiveChart
'...hier noch der restliche Makro-Teil
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vor dem Aufruf des Makros MUSS der relevante Tabellenausschnitt markiert werden !!

Chris85 · 31. Januar 2011

Danke, NoNet! Hat geklappt! *Smilie

Beverly · 31. Januar 2011

Hi Chris,

in VBA kann man zu 99% auf Select und Activate verzichtet werden. Außerdem sind einige deiner mit dem Makrorekorder aufgezeichneten Einstellungen Standardeinstellungen und werden deshalb nicht benötigt.
Code:

Sub Diagramm()
With ActiveSheet.ChartObjects.Add(0, 0, 360, 211).Chart '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Diagramm in aktivem Tabellenblatt erstellen

Diagramm in aktivem Tabellenblatt erstellen

Diagramm in aktivem Tabellenblatt erstellen

Diagramm in aktivem Tabellenblatt erstellen

Diagramm in aktivem Tabellenblatt erstellen - Similar Threads - Diagramm aktivem Tabellenblatt

Diagramm excel - Achsenoptionen

Diagramm

Vereinfachtes Gantt-Diagramm mit Kalenderwochen und Jahren

Nullen in Diagramm nicht anzeigen

Diagramm als Vollbild?

XY-Diagramm-Grafik mit zusätzlichen Daten erweitern

Jedes Diagramm hat eigenen Verknüpfung