Rijen kopiëren en toevoegen in werkblad

[FHGH]

Hallo,

Ik ben op zoek naar een formule die op basis van een getal in een dropdown menu een aantal rijen toe kan voegen en hierin gegevens kan kopiëren vanaf hetzelfde werkblad.
De rijen moeten alleen niet onderaan het werkblad toegevoegd worden maar ergens ertussen in.
Bijvoorbeeld:
Je kiest 3 in het dropdown menu,
er moeten nu 3 keer 4 rijen worden toegevoegd.
In de toegevoegde rijen moet 3 keer een celgebied gekopieerd worden.

Ik hoop dat iemand mij op weg kan helpen.

 

[HSV]

Dat kan niet met formules.
Dat wordt Vba (programmeren dus).

 

[FHGH]

Daarom ook mijn vraag

 

[cow18]

dan zal je minstens een voorbeeldbestandje moeten meesturen, want we moeten voor die vba-code minstens weten wat we naar waar moeten kopieren

 

[FHGH]

Ik heb een voorbeeld gemaakt zoals het eruit moet komen te zien.
Ik hoop dat het een beetje duidelijk wordt zo.

 

[FHGH]

Iemand enig idee?

 

[cow18]

je hebt alles al netjes gemaakt. Werkt het dan niet door een cijfer in de L-kolom te zetten en daarop te filteren als je E17 wijzigt ?

 

[cow18]

nog een kleien aanpassing ivm. afdrukbereik

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Address = "$E$17" Then
            If Len(.Value) Then
                Me.Columns("L").AutoFilter 1, "<=" & .Value
            Else
                Me.Columns("L").AutoFilter 1
            End If
        End If
    End With
    ActiveSheet.PageSetup.PrintArea = Range("A1:K189").SpecialCells(xlVisible).Address
End Sub

 

[FHGH]

Bedankt, dit werkt perfect :thumb: