Per Makro die letzte Zelle einer Spalte anspringen

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öchten Sie aber 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.