Quellcode der gleiche, aber trotzdem Fehler?!

Bild

Betrifft: Quellcode der gleiche, aber trotzdem Fehler?!
von: Tobias
Geschrieben am: 29.10.2003 14:02:31

Hi nochmal! (vor allem an Nike)

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!!
Bild


Betrifft: AW: Quellcode der gleiche, aber trotzdem Fehler?!
von: Nike
Geschrieben am: 29.10.2003 14:30:53

Hi,
ich nehme an, du rufst das Ganze über nen Command Button auf
und bist dem beliebtesten Fehler seit es Command Buttons gibt
auf den Leim gegangen ;-)

Wenn nicht, sag nochmal bescheid...

Bye

Nike

P.S. Noch mehr Excl Infos von mir ;-)


Bild


Betrifft: Danke, leider kein Menüpunkt bei mir
von: Tobias
Geschrieben am: 29.10.2003 15:08:44

Hi,
den Tipp würd ich gern ausprobieren... nur leider hab ih den Menüpunkt nicht. Hab nur:
Cut
Copy
Paste
Edit Text->
Grouping->
Order
Assign Macro
Format Control
Ja, hab ne englische Version von Excel... wie komme ich noch an den Menüpunkt ran?


Bild


Betrifft: Danke, hab aber keinen solchen Menüpunkt
von: Tobias
Geschrieben am: 29.10.2003 15:15:17

Hi,
den Tipp würd ich gern ausprobieren... nur leider hab ih den Menüpunkt nicht. Hab nur:
Cut
Copy
Paste
Edit Text->
Grouping->
Order
Assign Macro
Format Control
Ja, hab ne englische Version von Excel... wie komme ich noch an den Menüpunkt ran?


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zelleninhalt verbinden"