Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler beim Zuordnen der XValues
24.07.2017 10:44:24 Sebastian Ernst
NotSolved
24.07.2017 16:21:19 Andreas Nerling
NotSolved
24.07.2017 17:37:53 Gast26993
NotSolved

Ansicht des Beitrags:
Von:
Sebastian Ernst
Datum:
24.07.2017 10:44:24
Views:
1111
Rating: Antwort:
  Ja
Thema:
Fehler beim Zuordnen der XValues

Sehr geehrte VBA-Anhängerinnen, ich bin nun seit einigen Wochen an einem Thema, dass ich so gut wie mir möglich versucht habe zu lösen. Es handelt sich um den Laufzeitfehler 13 (Typen unverträglich) bei der Verarbeitung von Charts in VBA. Genauer handelt es sich um die Zuweisung der XValues zu einem Chartobject. Die Felder, die beim ersten Schleifendurchlauf angesprochen werden, haben den Wert 1.

´ Beim 1. Durchlauf kommt man direkt zu der Stelle, die den Fehler erzeugt.

'signalLegende() - Gibt die Namen für die Legende wieder

'zellen() - Gibt die Positionen der auszulesenden Zellen wieder

With Worksheets(ActiveSheet.name)

For i = 1 To anzahlTabellen
    For j = 1 To anzahlSignale(i)
      Select Case nurZeitOderNurWert(j, i)
        Case 0
          If (signalLegende(j, 2, i) <> "U" And signalLegende(j, 2, i) <> "u") Then
            If (Not ysnDiagrammtypLinien) Then
'-----------------------------------------------------------------------------------------------------------------------------
Fehler
              .ChartObjects(1).Chart.SeriesCollection(signalLegende(j, 1, i)).XValues = _
                      .Range(.Cells(zellen(j, 1, i), zellen(j, 2, i)), _
                             .Cells(zellen(j, 1, i), zellen(j, 2, i)))
'----------------------------------------------------------------------------------------------------------------------------
            Else
              .ChartObjects(1).Chart.SeriesCollection(signalLegende(j, 1, i)).XValues = _
                      .Range(.Cells(zellen(1, 1, i), zellen(1, 2, i)), _
                             .Cells(zellen(1, 1, i), zellen(1, 2, i)))
            End If
            .ChartObjects(1).Chart.SeriesCollection(signalLegende(j, 1, i)).Values = _
                    .Range(.Cells(zellen(j, 1, i), zellen(j, 2, i) + 1), _
                           .Cells(zellen(j, 1, i), zellen(j, 2, i) + 1))
          End If
        Case 2
          .ChartObjects(1).Chart.SeriesCollection(signalLegende(j, 1, i)).XValues = _
                  .Range(.Cells(zellen(1, 1, i), zellen(1, 2, i)), _
                         .Cells(zellen(1, 1, i), zellen(1, 2, i)))
          .ChartObjects(1).Chart.SeriesCollection(signalLegende(j, 1, i)).Values = _
                  .Range(.Cells(zellen(j, 1, i), zellen(j, 2, i)), _
                         .Cells(zellen(j, 1, i), zellen(j, 2, i)))
        Case Else
      End Select
    Next j
  Next i

Es wäre wunderbar, wenn ihr mir helfen könntet. Liebe Grüße Sebastian


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:

 
 

  • 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 Fehler beim Zuordnen der XValues
24.07.2017 10:44:24 Sebastian Ernst
NotSolved
24.07.2017 16:21:19 Andreas Nerling
NotSolved
24.07.2017 17:37:53 Gast26993
NotSolved