Quellcode der gleiche, aber trotzdem Fehler?!
29.10.2003 14:02:31
Tobias
mein Quellcode sieht so aus:
Public
Sub TEURSuchen()
Dim arrayTCVTEUR() As Integer
Dim i As Integer, j As Integer
j = 0
daten = "=("
For i = 1 To 50
If Cells(3, i).Value = "TEUR" Then
j = (j + 1)
ReDim Preserve arrayTCVTEUR(j)
arrayTCVTEUR(j) = Cells(3, i).Column
End If
Next
For i = 1 To UBound(arrayTCVTEUR)
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTCVTEUR(i)) & ",")
Next
daten = Left(daten, Len(daten) - 1)
daten = daten + ")"
End Sub
Public
Sub GewichtSuchen()
Dim arrayTCVGewicht() As Integer
Dim i As Integer, j As Integer
j = 0
daten = "=("
For i = 1 To 50
!!! If Cells(3, i).Value = "gewicht." Then
j = (j + 1)
ReDim Preserve arrayTCVGewicht(j)
arrayTCVGewicht(j) = Cells(3, i).Column
End If
Next
For i = 1 To UBound(arrayTCVGewicht)
daten = daten + ("Sheet1!R" & (zeile) & "C" & (arrayTCVGewicht(i)) & ",")
Next
daten = Left(daten, Len(daten) - 1)
daten = daten + ")"
End Sub
Public
Sub changechart()
TEURSuchen 'alle Spalten von "TEUR" suchen
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = daten
GewichtSuchen 'alle Spalten mit "gewicht." suchen
ActiveChart.SeriesCollection(2).Values = daten
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = name 'Chart-Titel
End With
End Sub
TEURSuchen und GewichtSuchen sind eigentlich genau die selbe Prozedur, jedoch sagt er (da wo die !!! stehen) Method 'Cells' of Object'_Global' failed - was soll ich damit anfangen?
Danke für die Hilfe!!