Fehlermeldung - aber warum?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Fehlermeldung - aber warum?
von: Tobias
Geschrieben am: 30.10.2003 08:54:31

Guten Morgen an aller hier!!!

Erstmal möchte ich mich für die schnellen und präzisen Antworten hier im Forum bedanken!! Macht weiter so!
Nu meine Frage: An der Stelle (XX) sagt er: "unable to set the XValues properties of the Series Class" - woran könnte es liegen?

Mein Code:

Public zeile As Integer, spalte As Integer, datenDatum As String, datenTEUR As String, datenGewicht As String



Sub DatumSuchen()
  Dim arrayDatum() As Integer
  Dim i As Integer, j As Integer
    
  j = 0
  datenDatum = "=("
  For i = 1 To 50
    If Not Cells(1, i).Value = "" Then
      j = (j + 1)
      ReDim Preserve arrayDatum(j)
      arrayDatum(j) = Cells(1, i).Column
    End If
  Next
  For i = 1 To UBound(arrayDatum)
    datenDatum = datenDatum + ("Sheet1!R1" & "C" & (arrayDatum(i)) & ",")
  Next
  datenDatum = Left(datenDatum, Len(datenDatum) - 1)
  datenDatum = datenDatum + ")"
  'MsgBox prompt:=datenDatum
  
End Sub


Sub changechart(name As String)
  
  ActiveSheet.ChartObjects("Chart 70").Activate
  ActiveChart.ChartArea.Select
  DatumSuchen    'alle Spalten der Datum suchen
  ActiveChart.SeriesCollection(1).XValues = datenDatum
  TEURSuchen      'alle Spalten von "TEUR" suchen
  ActiveChart.SeriesCollection(1).Values = datenTEUR
  GewichtSuchen   'alle Spalten mit "gewicht." suchen
  ActiveChart.SeriesCollection(2).Values = datenGewicht
  With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = name    'Chart-Titel
  End With
  'Windows("201003 Leadexport-probier.xls").SmallScroll Down:=57  'zum chart springen
  
End Sub



PS.: die Prozeduren TEURSuchen und GewichtSuchen sind fast gleich aufgebaut. wenn ich "datenDatum" in der MsgBox ausgebe, dann zeigt er sie mir korrekt an.

Danke für eure Hilfe!!
Bild


Betrifft: AW: Fehlermeldung - aber warum?
von: Tobias
Geschrieben am: 30.10.2003 09:09:48

Jetzt klappts.... weiß zwar nicht warum, aber es geht!


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Fehlermeldung - aber warum?"