Makro überspringt Code
22.11.2006 08:47:25
lueckii
Ich habe folgendes Problem:
Folgender Code ist teil einer Function in einem Code und legt die Datenreihe in nem Diagramm fest. Bei einer bestimmten Stelle, wechselt der Code auf einmal in den Ursprungscode zurück, obwohl die Function noch nicht zu Ende deb ugt ist. Weiß jemand woran so was liegen kann?
Do Until Zeile = 19
KPIRangeA = ThisWorkbook.Sheets("Umrechnung").Cells(KPIZeileA, KPISpalteA).Address
KPIRangeB = ThisWorkbook.Sheets("Umrechnung").Cells(KPIZeileB, KPISpalteB).Address
KPIRangeAVeraend = ThisWorkbook.Sheets("Umrechnung").Cells(KPIZeileA, KPISpalteA).Offset(75, 0).Address
KPIRangeBVeraend = ThisWorkbook.Sheets("Umrechnung").Cells(KPIZeileB, KPISpalteB).Offset(75, 0).Address
'Beim Ausführen der nächsten Zeile kommt der Sprung
ThisWorkbook.Sheets("K" & Zeile).ChartObjects("Diagramm1").Activate
ActiveChart.SetSourceData Source:=Sheets("Umrechnung").Range(ZelleA & ":" & ZelleB & "," & KPIRangeA & ":" & KPIRangeB), _
PlotBy:=xlRows
ActiveChart.HasLegend = False
Dianamen1 (Zeile)
ActiveChart.Axes(xlValue).Select
Selection.TickLabels.AutoScaleFont = False
With Selection.TickLabels.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
End With
Gruß Martin