Makro bei Drop Down funktioniert nicht
Suzette
vor einigen Wochen habe ich folgendes geniale Makro von einem von Euch bekommen. Es ist mit einem Drop-Down-Feld verknüpft, welches steuert, welche Zahlenreihen (sie heißen alle 2009 bzw. 2010) angezeigt werden sollen. Ich habe nun diesem Drop-Down-Feld noch eine weitere Auswahlmöglichkeit eingefügt. Wenn ich nun diese anwähle, greift das Makro leider nicht und die Zahlenbeschriftungen bleiben überhalb bzw. unterhalb der Reihe stehen, unabhängig davon, ob 2009 größer ist oder nicht. Ich habe mal das Makro vom Drop-Down-Feld gelöst und wieder neu zugewiesen. Leider ohne Erfolg. Woran kann das denn liegen?
Vielen Dank im voraus, Suzette
Sub Beschriftung()
Dim chrDiagramm As ChartObject
Dim arrWerte1
Dim arrWerte2
Dim booFalsch1 As Boolean
Dim booFalsch2 As Boolean
Dim intPunkt As Integer
With Worksheets("Kosten")
For Each chrDiagramm In .ChartObjects
With chrDiagramm.Chart
On Error Resume Next
arrWerte1 = .SeriesCollection("2009").Values
If Err > 0 Then booFalsch1 = True
Err.Clear
arrWerte2 = .SeriesCollection("2010").Values
If Err > 0 Then booFalsch2 = True
If booFalsch1 = False And booFalsch2 = False Then
For intPunkt = 1 To .SeriesCollection("2009").Points.Count
If arrWerte1(intPunkt)