Tag zusammen,
So, der Leidensdruck ist nun groß genug, mal gucken, wie ihr das löst.
Alles, was ich bislang gefunden oder selber versucht habe, entspricht nicht ganz meinen Wünschen, warum, erkläre ich unten bei den einzelnen Zeilen.
Immer wieder möchte (/muß) man die letzte beschriebene Zeile/Spalte in einem sheet finden.
Die letzte Zeile ist dabei irgendwie einfacher als die letzte Spalte.
Ich gehe jetzt von der Annahme aus, dass man eine "wilde Tabelle" hat, d.h. es kann Ausreißer geben, wie einen Wert in Spalte BB oder Zeile 34000. Und nicht jede Tabelle fängt in Spalte A, Zeile 1 an.
Desweiteren können diverse leere Zellen irgendeine Formatierung enthalten, die möchte ich nicht finden, ich möchte Zellen mit Inhalt finden, Inhalt sind dabei auch Zellen mit Formel, deren Ergebnis dabei zufällig ne "leere" Zelle ausgibt (also sowas wie =Wenn(A1<>"";A1;"") bei leerem A1)
Ich weiß vorher nicht, in welcher Zeile/Spalte der letzte Spalten/Zeilen-Wert steht, daher fallen alle Lösungen, die zeilen/spaltenabhängig sind raus.
Ich möchte nicht per Schleife durchlaufen und den höchsten Wert ermitteln, es soll ein schmucker Einzeiler werden.
Wie gesagt, Zeilen sind kein Problem, da funktionieren
- Cells.FindPrevious([iv65536]).Row
- Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row (wenn letzte Zeile nicht beschrieben ist)
- Columns(1).Find("*", [A1], , , xlByRows, xlPrevious).Row (für Spalte A)
- Cells(Cells.Rows.Count, 1).End(xlUp).Row (nur eingeblendete Zellen SpalteA)
- [a65536].End(xlUp).Row (nur eingeblendete Zellen SpalteA)
u.a. soweit zufriedenstellend.
Mein Problem sind die Spalten:
- Cells.FindPrevious([iv65536]).column
- Cells.Find("*", [A1], , , xlByRows, xlPrevious).column
finden leider die letzte beschriebene Spalte der letzten Zeile, nicht die gesamt letzte Spalte.
UsedRange ist (für mich) nicht geeignet, da es z.B. auch auf Formate anspricht,
Außerdem kann ja ein
- Sheets(1).UsedRange.Column+Sheets(1).UsedRange.Columns.count-1
nicht die Lösung sein, das finde ich jetzt irgendwie nicht schön ;-)
Auch mit SpecialCells(xlCellTypeLastCell) gibt es da (natürlich) keine Besserung bzgl. der Formatierung
- Cells(1,1).SpecialCells(xlLastCell).Column fällt damit auch raus
Ich brauche also etwas, das
- nicht zeilenabhängig ist
- nicht auf Formatierungen anspricht
- ausgeblendete Zellen mitnimmt
- Formeln, deren Ergebnis = "" ist berücksichtigt.
Zuviel verlangt? Oder hab ich mich nur irgendwo verrannt und es ist ganz einfach?
Danke für's Lesen, dem Gewinner winken ein Platz in meinem Nachtgebet und natürlich ein Sack voll Unies
------------------
Gruß,
runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...
System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP