Office: Letzte beschriebene Zelle in einer Spalte

Hallo

Ich bin neu hier im Forum und meine erste Frage wäre:

Ich habe eine Datei die sehr viele Tabellenblätter enthält und nun muss bei allen die Formatierung geändert werden. Das meiste konnte ich selbs schon erledigen, doch etwas konnte ich nicht.
Ich habe in jedem Tabellenblatt in der Spalte C und D eine Liste mit verschiedenen Zahlen, die bei jedem Blatt unterschiedlich lang ist. Nun müsste in der Spalte A ein Begriff hin und zwar genau bis dorthin wo die Liste mit den Zahlen aufgehört hat und es ist immer der selbe Begriff. Also um es noch etwas zu verdeutlichen hier ein Beispiel: Ich habe in der Zelle A1 einen Suchbegriff eingegeben, in den Spalten C und D sind dann die Resultate gelistet manchmal sind es 100 und manchmal nur 5 Resulatete. Nun möchte ich das der Suchbegriff immer auf der selben höhe ist wie ein Resultat, also angenommen es gibt 100 Ergebnisse möchte ich das der Suchbegriff von A1 bis zu A100 geht.
Sorry wenn es scheisse erklärt ist aber ich wussste nicht wie ich es sonst erklären sollte.

Danke schon im Voraus

:)

 

doppelt: http://www.ms-office-forum.net/forum...d.php?t=300343

 

Mit ActiveSheet.Range("B:B").End(xlDown).Row bekommst du den Index der letzten verwendeten Zelle in einer Spalte. Alternativ mit ActiveSheet.Columns(2).End(xlDown).Row. Oder du arbeitest mit ActiveSheet.UsedRange.

 

Hi,

deine ersten beiden Vorschläge funktionieren nur, wenn keine Leerzellen zwischendrin vorkommen und ActiveSheet.UsedRange gibt nicht immer den richtigen Wert - wenn z.B. weiter unten in einer beliebigen Spalte ein Wert stand und gelöscht oder eine Zelle formatiert und das Format wieder zurückgesetzt wurde.

 

>UsedRange gibt nicht...
Das Problem behebt man, indem man einmal ActiveSheet.UsedRange aufruft. Das setzt den UsedRange auf den tatsächlich benutzten Bereich zurück.

>wenn keine Leerzellen...
Versuch es damit: Code:

Erst wird UsedRange resettet und dann wird, ausgehen von der letzten Zelle in Spalte B und im UsedRange, die letzte verwendet Zelle in Spalte B von unten her markiert bzw. der Index ausgegeben. Somit interessieren die Leerzeilen nicht mehr.

 

Dann ermittle mal in der angehängten Arbeitsmappe die letzte belegte Zeile in Spalte B - es ist 4, sollte aber die 7 sein.

 

Ok, ich hab auch gerade etwas gelernt. UsedRange beginnt nicht immer mit A1, sondern mit der ersten verwendeten Zelle (im Beispiel also B2). Somit funktioniert das Ganze nicht. Ich hab die Funktionsweise also komplettt umgestrickt:
Code:

Es wird jetzt die letzte Zelle des Sheets in der jeweiligen Spalte geholt (bei Excel 2007 also die in Zeile 1048576). Dann wird geguckt, ob diese Zelle einen Wert enthält. Wenn ja, bleibt es bei dieser Zelle, wenn nicht wird zu letzten verwendeten Zelle nach oben gesprungen. Noch den Zeilenindex zurückgeben und fertig. *biggrin.gif*

 

das macht mein Code, den ich in dem anderen Thread gepostet habe auch, nur weniger kompliziert:

Code:

 

Stimmt! *eek.gif*