Excel 7.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ö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(163-
84; 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.