Diagrammerstellung

schönes Wochenende alle miteinander,
wie es aussieht, komme ich wiedermal nicht um Eure Hilfe herum.
Ich habe eine Datei namens werte.xls - in dieser datei gibt es eine gewisse Anzahl an Arbeitsblättern mit den Bezeichnungen Test 01 bis Test 30.
Alle Zellen sind gleich formatiert unterscheiden sich nur in ihren Werten.
Für jedes Arbeitsblatt will ich ein Diagramm erstellen. Ich habe mir was zusammengebastelt und lasse dies für das erste Sheet über eine selbst erstellte Schaltfläche in der Symbolleiste ablaufen.
Jetzt steht dort als Ziel ja "Test 01" drin. wie kann ich das denn umschreiben, dass ich sage - bitte jeweils vom aktiven Arbeitsblatt das Diagramm erstellen.
Gruß Frank + schonmal Danke fürs lesen


Sub diagramm()
Range("A2:A55").Select
Range("A2:A55,C2:F55").Select
Range("C2").Activate
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("test 01   ").Range("A2:A55,C2:F55" _
), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "='test 01   '!R1C3"
ActiveChart.SeriesCollection(2).Name = "='test 01   '!R1C4"
ActiveChart.SeriesCollection(3).Name = "='test 01   '!R1C5"
ActiveChart.SeriesCollection(4).Name = "='test 01   '!R1C6"
ActiveChart.Location Where:=xlLocationAsObject, Name:="test 01   "
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
Windows("werte.xls").Activate
Range("A1").Select
ActiveWindow.Visible = False
Windows("werte.xls").Activate
Range("A1").Select
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

wenn du es mit so wenig Code als nötig einbauen willst,
sollte es in etwa so aussehen:

Sub diagramm()
Dim ber As Range, blN$
Dim n1$, n2$, n3$, n4$
blN = ActiveSheet.Name
With ActiveSheet
Set ber = .Range("A2:A55,C2:F55")
    n1 = .[c1]
    n2 = .[d1]
    n3 = .[e1]
    n4 = .[f1]
    Application.ScreenUpdating = False
    Charts.Add

    With ActiveChart
        .ChartType = xlLineMarkers
        .SetSourceData Source:=ber, PlotBy:=xlColumns
        .SeriesCollection(1).Name = n1
        .SeriesCollection(2).Name = n2
        .SeriesCollection(3).Name = n3
        .SeriesCollection(4).Name = n4
        .HasTitle = True
        .ChartTitle.Characters.Text = blN
        .Location Where:=xlLocationAsObject, Name:=blN
    End With

    .Shapes(2).IncrementLeft -183#
    .Shapes(2).IncrementTop -87#
End With
With Application
    .SendKeys "{esc}"
    .ScreenUpdating = True
End With
Set ber = Nothing
End Sub

bei deinem Beispiel steht der Diagrammname im code,
wenn es "Diagramm1" nicht gibt,funktionierts schon nicht...
Shapes(2) deswegen, wenn man in der Tabelle eine Schaltfläche zum
Ausführen des Makros hat, ist das "Shapes(1),
das Diagramm Shapes(2)...
führst du das Makro aus der Symbolleiste aus,
kannst du Shapes(1)nehmen, vorausgesetzt, du hast keine anderen Shapes
in der Tabelle..
Gruß Herbert

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread