Hi VBA-Forum,

Mein Vorhaben:

Bin gerade an einem VB-Programm am schreiben welches mir dynamisch ein Diagramm erstellen soll.

Die Daten für das Diagramm sin in 3 verschiedenen Spaltenabschnitten. Also ein Digramm nach z.B. Kunden wobei jeder Kunde dann 2 Balken im Diagramm erhält

Meine Vorgangsweise:

Alles mit Makro aufgezeichnet und passend in mein Programm übertragen.

Rlevante Programmausschnitte:

Module GlobalModul
 ....
    Public oXL As Excel.Application = New Excel.Application
    Public oWB As Excel.Workbook
    Public oSheet As Excel.Worksheet
    Public oRng As Excel.Range
....
End Module

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Private Sub chart(ByVal rows As Integer, ByVal column As String, ByVal name As String)

        Dim co As Excel.Chart

        oRng = oSheet.Range(column + "3" & ":" & column + (rows + 3).ToString & ",F3:F" & rows + 3 & ",I3:I" & rows + 3)
        co = oWB.Charts.Add

        With co
            .ChartType = Excel.XlChartType.xlColumnClustered
            .SetSourceData(Source:=oRng, PlotBy:=Excel.XlRowCol.xlColumns)
            .HasTitle = True
            .ChartTitle.Text = name & ": Umsatz - Ertrag"
            .SeriesCollection(1).Name = "=""Umsatz"""
            .SeriesCollection(2).Name = "=""Ertrag"""
            .Location(Where:=Excel.XlChartLocation.xlLocationAsObject, Name:=name)
            .HasLegend = True
            .Legend.Position = Excel.XlLegendPosition.xlLegendPositionBottom
        End With

 End Sub

Mein Problem:

Wenn ich das nun debugge bekomm ich den im Themtitel enthaltenen Fehler. Habe es schon an sämtlichen anderen Orten (außerhalb der Sub-Routine etc.)versucht als auch nur z.B.:

oRng = oSheet.Range(A1:A2,B1:B2)
aber ohne Erfolg.

Was jedoch überall funktioniert hat ist nur einen Bereich auszuwählen wie z.B.:

oRng = oSheet.Range(A1:A2)

Kann mir hier jemand weiterhelfen?

greets

theo retisch