Office: (Office 2010) Laufzeitfehler 1004

Hallo Forumsgemeinschaft,

Ich erstelle mit einem Makro aus einem Tabellenblatt merhere Diagramme. Bei mir tritt bei der Zuweisung der Daten jetzt aber ein Fehler auf:

Laufzeitfehler 1004:
Die Methode 'Cells' für das Objekt '_Global' ist fehlgeschlagen.

hier zunächst mal die Problemzeile:

Set rngDatenreihe1 = wksQ.Range(Cells(4, 17), Cells(lngAnzahl, 17))

Wobei rngDatenreihe1 ein Rangeobjekt, wksQ das Quellworksheet und lngAnzahl die Anzahl der benutzen Zeilen in dem Quellworksheet sind.

Der Fehler tritt nicht auf, wenn ich am Anfang des Subs das Worksheet aktiviere:

ThisWorkbook.Worksheets(5).Activate

Es funktioert auch ohne Cells:

Set rngDatenreihe1 = wksQ.Range("Q4:Q"&lngAnzahl)

Allerdings finde ich die Zuordnung Zeilen- und Spaltennummer deutlich komfortabler und würde es deswegen gerne mit Cells programmieren. (Die Quelldaten müssen für die anderen Diagramme jeweils angepasst werden und ich weiß aus dem Kopf nicht, wie zB Spalte 42 heißt^^)

Mein erster Ansatz war, dass Cells nicht ausreichend deklariert ist, aber auch mit wksQ.Cells funktioniert es nicht.

Ich hoffe Ihr könnt mir weiter helfen.

Gruß

 

Hi

entweder du schreibst es so

Code:

Set rngDatenreihe1 = wksQ.Range(wksQ.Cells(4, 17), wksQ.Cells(lngAnzahl, 17))

oder du schreibst es in die With-Anweisung

Code:

With wksQ
    Set rngDatenreihe1 = .Range(.Cells(4, 17), .Cells(lngAnzahl, 17))
End With

beachte dabei die Punkte vor Range und Cells

MfG Tom