Daten übergabe klappt nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ok, hier der Code...

27.03.2005 23:05:10

Martin

AW: ok, hier der Code...

28.03.2005 08:43:08

Nepumuk

soweit ok, aber...

28.03.2005 11:12:06

Martin

AW: soweit ok, aber...

28.03.2005 11:44:50

Nepumuk

? ahja..

28.03.2005 12:25:08

Martin

AW: ? ahja..

28.03.2005 15:29:10

Nepumuk

^öh..

28.03.2005 15:58:12

Martin

..sorry, bin schon ziemlich groggi von der sache


Sub monats() 'masch As String, kwoche As Long, scol As Long, zcol As Long
' wochenausblender
Application.ScreenUpdating = False
Dim bereich1
Dim bereich2
bereich1 = Worksheets("zielblatt").Range("A2:A32")
bereich2 = Worksheets("zielblatt").Range("B2:B32")
diagramm_machen bereich1, bereich2
Application.ScreenUpdating = True
End Sub


Sub diagramm_machen(a, b)
' das diagramm für eine enzelne Woche
Dim cht_benkw As ChartObject
Set cht_benkw = Worksheets("zielblatt").ChartObjects.Add(200, 100, 400, 250)
With cht_benkw
.Name = "martine5"
'    .Chart.ChartType = xlLineMarkers
.Chart.ChartType = xlXYScatterSmooth
With .Chart
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = a
.SeriesCollection(1).Values = b
'    .SeriesCollection(1).XValues = Worksheets("zielblatt").Range("A2:A32")
'    .SeriesCollection(1).Values = Worksheets("zielblatt").Range("B2:B32")
.Legend.Delete
End With
.Name = "martine5"
'    .Chart.ChartType = xlLineMarkers
.Chart.ChartType = xlXYScatterSmooth
End With
cht_benkw.Chart.SeriesCollection.NewSeries
With cht_benkw.Chart.SeriesCollection(1)
.XValues = Array(gae_datumy)
.Values = Array(gae_wertex)
End With
Range("a1").Select
Set cht_benkw = Nothing
End Sub

Hallo Martin,
das Array das du übergibst, muss die richtige Struktur haben.
Beispiel:

Option Explicit
Sub diagramm_machen(a, b)
    Dim cht_benkw As ChartObject
    Set cht_benkw = Worksheets("zielblatt").ChartObjects.Add(200, 100, 400, 250)
    With cht_benkw
        .Name = "martine5"
        .Chart.ChartType = xlXYScatterSmooth
        With .Chart
            .SeriesCollection.NewSeries
            .SeriesCollection(1).XValues = a
            .SeriesCollection(1).Values = b
            .Legend.Delete
        End With
    End With
End Sub
Public Sub test()
    Dim x(10, 0), y(10, 0)
    Dim iIndex As Integer
    For iIndex = 0 To 9
        x(iIndex, 0) = iIndex ^ 2
        y(iIndex, 0) = iIndex * 2
    Next
    Call diagramm_machen(x, y)
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread