Hallo,
ich habe ein Makro, das bei Beginn eines neuen Jahres (Eintrag Jan.) eine neue Reihe im Diagramm anlegt. Ich habe es natürlich getestet und es klappt auch. Es sind 15 Diagramme die ausgeführt werden.
Im Makro wird mit Set objChart das Diagramm gesetzt. Ich möchte jetzt gerne wissen, ob es notwendig ist den Befehl Set objChart = Nothing ausführen zulassen. Was passiert, wenn ich den Befehl weglasse?
Sollte der Befehl am Ende eines jeden Diagramms ausgeführt werden, oder reicht es den Befehl am Ende des Makros auszuführen?
Hier ein Auszug aus dem Makto. Es beginnt natürlich mit Option Explicit.
Vielen Dank
Wolfgang
'Wenn in Spalte G = Jan.
If Left(dat1, 4) = "Jan." Then
'für den Datenbereich der neuen Datenreihe,
mn = letzteG
'Gesmatkosten:
'Kontolle, ob Datenreihe des Jahres schon existiert,
Set objChart = ActiveSheet.ChartObjects("Diagramm1")
With objChart.Chart
For iReihe = 1 To .SeriesCollection.Count
'Wenn neue Datenreihe schon vorhanden dann Bol = True,
If objChart.Chart.SeriesCollection(iReihe).Name = khg Then Bol = True
Next
End With
If Bol = False Then
With objChart.Chart.SeriesCollection.NewSeries
.Name = khg
.Values = ActiveSheet.Range("P" & mn & ":P" & mn + 11)
End With
End If
Bol = False
'Gesamtkosten pro Tag:
'Kontolle, ob Datenreihe des Jahres schon existiert,
Set objChart = ActiveSheet.ChartObjects("Diagramm5")
With objChart.Chart
For iReihe = 1 To .SeriesCollection.Count
'Wenn neue Datenreihe schon vorhanden dann Bol = True,
If objChart.Chart.SeriesCollection(iReihe).Name = khg Then Bol = True
Next
End With
If Bol = False Then
With objChart.Chart.SeriesCollection.NewSeries
.Name = khg
.Values = ActiveSheet.Range("R" & mn & ":R" & mn + 11)
End With
End If
Bol = False