Makros in Excel

[Detlef G.]

Hallo f34rless

Ich möchte gern die Zeile aber so einfügen, das die neue einzufügende Zeile immer ganz oben in der Liste steht.

Wenn mir nicht einfällt, wie ich etwas per Macro erreichen kann, dann gehe ich auf Extras -> Macro -> Aufzeichnen. Dann mache ich es einmal manuell, beende die Aufzeichnung und schaue mir dann das Macro an. Oft muss dann nur noch ein bisschen Müll herausgelöscht werden und das Select-Objekt durch ein Range-Objekt ersetz werden, damit es dann wie gewünscht funktioniert.

Beim Einfügen einer neuen Zeile erhalte ich z.B.:

Rows("1:1").Select
    Selection.Insert Shift:=xlDown

oder:

Range("A1").Select
    Selection.EntireRow.Insert

Nun kann ich schmeiße ich Select und Selction raus und erhalte:

Rows("1:1").Insert Shift:=xlDown

bzw.:

Range("A1").EntireRow.Insert

Aus Rows("1:1") kann ich noch Rows(1) machen oder Statt Range("A1") Cells(1, 1) verwenden.

Auf Wiederlesen
Detlef