Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler bei zweiter y-Achse
 17.07.2014 14:45:30 Zara7
NotSolved

Ansicht des Beitrags:
Von:
Zara7		 Datum:
17.07.2014 14:45:30		 Views:
1626		 Rating:
     
Antwort:
  Ja
Thema:
Laufzeitfehler bei zweiter y-Achse

Hallo zusammen

ich habe einen VBA-Code geschrieben, der jedoch beim erstmaligen Ausführen jeweils beim Hinzufügen der zweiten y-Achse einen Laufzeitfehler produziert ("Laufzeitfehler '-2147467259 (80004005)': Die Methode 'AxisGroup' für das Objekt 'Series' ist fehlgeschlagen."). Danach funktionierts.

Hier der Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Dim array1, array3, array4, array5, array6 As Variant
array1 = Array(0, 6, 6, 22, 22, 24)
array3 = Array(ymin, ymin, ymin, ymin, ymin, ymin)
array4 = Array(ymax, ymax, 0, 0, 0, 0)
array5 = Array(0, 0, ymax, ymax, 0, 0)
array6 = Array(0, 0, 0, 0, ymax, ymax)
 
' create basic chart
With myCht
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = Sheets("Messresultate T1").Range("D13:D100")
    .SeriesCollection(1).ChartType = xlXYScatterLinesNoMarkers
    .SeriesCollection(1).Format.Line.Transparency = 1
 
    .SeriesCollection.NewSeries
    .SeriesCollection(2).XValues = Sheets("Messresultate T1").Range("D13:D100")
    .SeriesCollection(2).Values = Sheets("Messresultate T1").Range("I13:I100")
    .SeriesCollection(2).AxisGroup = xlPrimary
    .SeriesCollection(2).ChartType = xlXYScatterLinesNoMarkers
 
    .SeriesCollection.NewSeries
    .SeriesCollection(3).XValues = array1
    .SeriesCollection(3).Values = array3
 
    .SeriesCollection.NewSeries
    .SeriesCollection(4).XValues = array1
    .SeriesCollection(4).Values = array4
 
    .SeriesCollection.NewSeries
    .SeriesCollection(5).XValues = array1
    .SeriesCollection(5).Values = array5
 
    .SeriesCollection.NewSeries
    .SeriesCollection(6).XValues = array1
    .SeriesCollection(6).Values = array6
 
    Dim rowInt As Integer
    For rowInt = 3 To 6
       .SeriesCollection(rowInt).AxisGroup = xlSecondary '------------ hier stoppt das Skript mit Laufzeitfehler
       .SeriesCollection(rowInt).ChartType = xlAreaStacked
    Next rowInt
 
    ' axes scaling
    .Axes(xlCategory, xlPrimary).MajorUnit = 4 / 24 'label tick every 4 hours
    .Axes(xlCategory, xlPrimary).TickLabels.NumberFormat = "hh:mm"
    .Axes(xlCategory, xlPrimary).MinimumScale = xmin / 24
    .Axes(xlCategory, xlPrimary).MaximumScale = xmax / 24
    .Axes(xlValue, xlPrimary).MinimumScale = ymin
    .Axes(xlValue, xlPrimary).MaximumScale = ymax
 
    .HasAxis(xlCategory, xlSecondary) = True
    .Axes(xlCategory, xlSecondary).CategoryType = xlTimeScale
    .Axes(xlCategory, xlSecondary).AxisBetweenCategories = False
 
    .Axes(xlCategory, xlSecondary).Delete
    .Axes(xlValue, xlSecondary).Delete
End With

Bin für alle Hinweise dankbar!!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler bei zweiter y-Achse
 17.07.2014 14:45:30 Zara7
NotSolved