Excel 4.0
Per Makro die letzte Zelle einer Spalte anspringen
Antwort
Tip: Excel enthält standardgemäß keine Funktion, um innerhalb einer Makroroutine
oder während der normalen Arbeit in der Tabelle die letzte Zelle einer Spalte
anzuspringen. Möchte man bei umfangreichen Tabellen per Mausklick zur letzten Zelle
einer Spalte springen, oder innerhalb eines Makros den letzten Eintrag finden,
verwenden Sie folgendes einzeilige Makro: »Sub Spaltenende() Wenn
IstLeer(ZelleListe( 16384; AktiveZelle.Spalte)) Dann ZelleListe(16384;
AktiveZelle.Spalte).Ende(xlNachOben).Auswählen Sonst ZelleListe(16384;
AktiveZelle .Spalte).Auswählen Ende Sub« Diese Routine springt zunächst die
letzte Zelle der aktuellen Spalte an und sucht dann von unten nach oben nach der ersten
Zelle, die nicht leer ist.