Office: Variable Anzahl von Zeilen einfügen und Daten kopieren

Hallo zusammen,

um mein Problem zu darzustellen, erkläre ich kurz was ich vor habe:

ich möchte gerne gefilterte Daten aus einer Liste per Button-Klick in eine Vorlage übertragen.
Da die Vorlage formatiert ist (dicke und dünne Ränder usw.,..) und ich nicht immer die übrigen Zeilen ausblenden möchte, würde ich gerne die Anzahl der Zeilen aus der einen Liste zählen und in der neuen einfügen.
Das ganze Klappt auch soweit schon.

hiermit ermittle ich die Anzahl der gefilterten Zeilen, switche in die neue Datei und füge die Anzahl der gezählten Zeilen ein:

PHP:

         intRow = Range("G9").End(xlDown).Row
intTeilerg = WorksheetFunction.Subtotal(3, Range("G9:G" & intRow))
Windows("zVorlage Avis.xlsm").Activate
Dim Anzahl_Zeilen As Integer
Anzahl_Zeilen = intTeilerg
Range("A13").Select
For i = 0 To Anzahl_Zeilen
Selection.EntireRow.Insert
Next i


:)

 

Hi

bitte das hier lesen, verstehen und anwenden.
Online - Excel Programmierung VBA Makro: Achtung Makrorekorder oder Wer selektiert denn da?

wahrscheinlich hat sich dann dein Problem von selbst gelöst.
falls nicht kanns tu dann ja nochmal fragen (bitte dann aber den überarbeiteten Code verwenden).

Kleiner Tip:
wenn man mehrer Zeilen einfügen will, geht das auch ohne Schleife:
das hier fügt 10 Zeilen nach Zeile 12 ein:
Code:

Gruß Daniel