---

Hallo!

Ich versuche ein Makro aufzuzeichnen, das

1. die Filtereinstellung in jeder Spalte auf "Alle" stellt.

2. den Cursor an die Position der letzten Zeile in Spalte 2 platziert. (Die Spalte 1 ist mit einer fortlaufenden Bestellnummer belegt.)

Punkt 1 klappt. Für Punkt 2 finde ich in den "Tastenkombinationen zum Bewegen und Durchführen von Bildläufen in einem Tabellenblatt oder einer Arbeitsmappe" aus der Hilfe nichts passendes. Weiß jemand Rat?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

eventuell hilft

Code:

---

ActiveSheet.Range("A65536").End(xlUp).Offset(0, 1).Select

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

dieser Code

Code:

---

Cells(IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count), 2).Select

---

ist flexibler, weil er 1. für alle Excelversionen gilt (durch Verwendung von 65536 als letztmögliche Zeile würde man sich explizit auf Versionen vor 2007 festlegen) und 2. stellt er auch die letzte belegte Zelle korrekt fest, wenn es die letzte in der Spalte ist (schreibe einfach mal etwas in die letzte Zelle der Spalte B und führe beide Codes aus).

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Genial, danke euch!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP