folgendes VBA Problem ich habe ein recht großes Makro zur Erstellung eines Diagrammes. Nun kommt eine Fehlermeldung "Debuggen - Fehler 6 - Überlauf" dabei habe ich gerade mal 130 Daten erfasst. Hatte unter Excel 2003 das gleiche Diagramm aber dort konnte ich wenigstens 30000 Daten erfassen. Jetzt unter Excel 2007 musste ich aber die Diagramm erstellung mittels Makro realiesieren weil ansonsten das eingebettete Diagramm einfach keine neuen Daten anzeigen will. Vielleicht hat jemand hier einen Tipp für mich.
Makro:
Sub dia_erstellen_bei_Kursabfrage()
'erstellt das DIA bei der Kursabfrage wird also im Modul Kurs mit Call aufgerufen
'erstellt das Diagramm
'es werden immer nur die Daten geschrieben die von B125 an auftauchen
Dim lku As Byte
Dim dia As ChartObject
Dim Name As String
'-------------------------------------------------------------------------------------------------------------
Name = Sheets("IAbfr").Range("A1") 'ermittelt den Blattnamen
lku = Worksheets(Name).Cells(Rows.Count, 2).End(xlUp).Row 'lku ist der letzte erfaste Kurs
Worksheets(Name).ChartObjects(1).Delete
Set dia = Worksheets(Name).ChartObjects.Add(8, 1030, 760, 430)
dia.Name = "Kurs"
If lku = 125 Then
With dia.Chart
.ChartType = xlLine
.SetSourceData Source:=Worksheets(Name).Range("B125:D" & lku)
.SeriesCollection(1).XValues = Worksheets(Name).Range("B125:B" & lku)
.SeriesCollection(1).Name = "=""Kurs"""
End With
Else
With dia.Chart
.SetSourceData Source:=Worksheets(Name).Range("B125:D" & lku)
.ChartType = xlLine
.SeriesCollection(1).XValues = Worksheets(Name).Range("B125:B" & lku)
.SeriesCollection(1).Name = "=""Kurs"""
.SeriesCollection(2).Name = "=""G/V"""
End With
End If
End Sub
Danke schon mal im Voraus.
[SIZE="1"]mehr Infos[/SIZE]
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von AS-123 ()