VBA Rank-Function

Hallo Leute,
entweder bin ich blind oder ich begreife nicht, warum VBA beim Durchlauf des Programms mit einem Anwendungs- oder objektorientierten Fehler abbricht.
Das ist die Codezeile:


CurRank = Application.WorksheetFunction.Rank(Worksheets("Ausgabe").Cells(plRow, SortCol), Worksheets("Ausgabe").Range(Cells(2, SortCol), Cells(lastERow, SortCol)))

Erläuterung: curRank ist eine Variable vom Typ Integer
plRow ist die Variable aus der For-Schleife "For plRow = 2 to LastERow", in der die CurRank-Zeile sitzt. Natürlich mit next plRow abgeschlossen.
SortCol wird in der Schleife der Wert 14 zugewiesen.
VBA bricht an dieser Stelle ab und markiert diese Zeile.
Wenn ich mit der Maus über plRow fahre, bekomme ich 2 angezeigt, wenn ich über SortCol fahre, bekomme ich 14 angezeigt, wenn ich über LastERow fahre, bekomme ich 59 angezeigt.
Auch Cells(plRow, SortCol) wird korrekt ermittelt und der Bereich am Ende soll N2 bis N59 sein, was ja auch stimmt.
Setze ich das Programm fort, läuft es einfach bis zum Ende weiter und setzt auch die Ranks korrekt.
Aber wieso bricht es an dieser Stelle ab?
LG
BuddyHoli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

weil du den Fehler machst, den wohl jeder VBA-Anfänger macht:
bei Range(Cells(), Cells()) mit Worksheetangabe (WS) muss das Worksheet vor den beiden Cells stehen.
Cells und Range ohne Tabellenblattangabe davor referenzieren immer* auf das aktive Tabellenblatt auch in dieser Konstellation.
Der Fehler kommt dann, wenn die Cells, die die Range definieren, auf einem anderen Blatt liegen als die Range selbst.
Da die Cells die Range definieren, darf man hier sogar die Tabellenblattangabe vor der Range sogar weglassen.*
also nicht WS.Range(Cells(), Cells()) sondern WS.Range(WS.Cells(), WS.Cells()) oder Range(WS.Cells(), WS.Cells())
für dein Beispiel:
CurRank = Application.WorksheetFunction.Rank(Worksheets("Ausgabe").Cells(plRow, SortCol), Range(Worksheets("Ausgabe").Cells(2, SortCol), Worksheets("Ausgabe").Cells(lastERow, SortCol)))
etwas einfacher wirds, wenn du den Zellbereich mit Resize definierst:
CurRank = Application.WorksheetFunction.Rank(Worksheets("Ausgabe").Cells(plRow, SortCol), Worksheets("Ausgabe").Cells(2, SortCol).Resize(lastERow - 2 + 1, 1))
Gruß Daniel
* das oben genannte gilt für Code in einem allgemeinen Modul
steht der Code in einem Tabellenblattmodul referenzieren Cells und Rows ohne Tabellenblattangabe davor auf das Tabellenblatt des Moduls.
dann muss man das Tabellenblatt nicht nur vor den beiden Cells, sondern auch vor der Range angeben: WS.Range(WS.Cells(), WS.Cells())

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread