Re: Zeilen und Spalten markierter Zellen zählen
16.06.2003 20:18:11
Michael
Hallo Peter,vielen Dank für deine Hilfe und Mühe.
Ich habe zB ein Tabellenblatt in dem ca 10 Matices (AxB wobei A=5 Spalten B= 10; 14; 22; 76 Zeilen) nebeneinander stehen getrennt durch 2 leere Spalten. Untereinander habe ich meist 4-6 Matices getrennt durch 5 leere Zeilen.
In einer Spalte der Matrix stehen Werte die aufsteigend sein sollten (Messwerte) - es gibt aber Ausreißer - die ich finden muß. Deshalb vergleiche ich mit 2 ineinander liegenden Schleifen ob der oberhalb liegende Wert größer ist als der darunterliegende - wenn ja dann ist das ein Fehler-Paar das ich farblich markiere.
Mein Problem ist/war die Anzahl der Schleifen da die Zeilenzahl unterschiedlich ist. Ich habe bisher immer im Macro den entsprechenden Wert korrigiert, möchte das aber gerne automatisiert haben.
Funktionieren tut's mit:
lgLetzte = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown).Row
anz_elemete = lgLetzte - ActiveCell.row + 1
das ist dann der Wert für die For Next Schleife
Dürfte ich dich noch um 2 Erklärungen bitten?
Warum geht nur
Range("N2", Range("N2").End(xlDown)).Select
aber die alterntiven Schreibweisen mit
'Range(Cells(2, 14), Range(Cells(2, 14)).End(xlDown)).Select
oder
'Range(Cells(startzeile, startspalte), Range(Cells(startzeile, startspalte)).End(xlDown)).Select (starzeile u spalte sind definiert)
oder noch vereinfachter
'Range("ActiveCell", Range("ActiveCell").End(xlDown)).Select
funktionieren nicht?
warum kann ich
LetzteZelleRow = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown).Row
nicht als
LetzteZelle = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown)
LetzteZelleRow = LetzteZelle.Row
darstellen?
Fehler: 424 - Objekt erforderlich
In der Hilfe steht: Sie haben auf eine Objekteigenschaft oder Objektmethode verwiesen, ohne einen gültigen Objektbezeichner anzugeben. Was heißt das?
Nochmals vielen Dank für deine Hilfe
Michael