Office: (Office 2010) EntireRow.Insert mit Formatierung von oben

Hallo Leute,

ich brauch eure Hilfe. Ich hab ne Tabelle von A bis K mit erstmal 29 Zeilen.
Auf die Zeile 30 habe ich die Taste gepackt, die noch 3 leeren Zeilen hinzufügen soll. Das Hinzufügen funkt ok, aber die 3 Zeilen bleiben ohne Rahmenlinien. Wie mache ich, dass die neuen Zeilen mit der Formatierung von oben übernommen werden und automatisch auf die Spaltenanzahl angepasst werden.
DAnke im Voraus.

Code:

:)

 

Moin,

ich gehöre nicht zu denen, die mit vollem Excel-Wissen auf die Welt gekommen sind sondern habe mir alles erarbeitet. Insofern ist es OK, dass du erst einmal aufgezeichnet hast und diesen Code hier vorstellst.

Leider ist der Makrorecorder nicht in der Lage, guten Code zu produzieren. Besser wäre es beispielsweise so:
Code:

Besser, weil die Formatierung mit übernommen wird und weil das Select so gut wie immer überflüssig ist, wie ein Kropf *wink.gif*.

 

ich danke dir, aber das wird leider nicht so gut funktionieren.
Er fügt immer die leeren Zeilen an der Stelle 30-32.
Wenn ich zB die Tabelle bis Zeile 60 ausgefüllt hab, mach er dann 3 leeren Zeilen in der Mitte.
Oder wie komme ich denn auf die Zeilennummer von der Taste? Das unten muss man man irgenwie umschreiben, damit er die Zeilen abhängend von der TAstenposition hinzufügt.
Code:

 

ok gut, ich hab die Lösung gefunden:
Code:

Ich hab aber Frage, ob man irgendwelche Handling hinzufügen muss.
Wäre zB sowas überflüssig?
Code:

 

Sorry, aber ich verstehe nur "Bahnhof" ...

 

okay) ich meine ist der Ausdruck nicht fehleranfällig?
Code:

muss man nicht vor dem Hinzufügen von Zeilen, diesen, aktuellen, Sheet noch mal aktivieren. ThisWorksheet("Produktdaten").Activate ?

 

Wenn der Code im Modul des entsprechenden Tabellenblatts steht, nein. Sonst (für Einsteiger in Sachen VBA) ja. Später wirst du ein Konstrukt wie Code:

verwenden.

 

alles klar, danke dir!