automatisch aantal rijen invoegen onder een bepaalde regel

[Brend1006]

beste,

ik zit al enkele uren vast op de volgende macro, ik ben zeker geen prof dus daarom vraag ik het even hier.

de bedoeling is om in kolom c te zoeken naar een getal die overeen komt met een getal dat ik in een inputbox kan ingeven en onder dit gevonden getal een gevraagd aantal rijen in te voegen (weer met een inputbox). de getallen kunnen meerdere keren voorkomen in de tabel (wel allemaal onder elkaar) en eventueel een mogelijkheid om nieuwe getalen aan te maken hieronder een foto van het belangrijke deel van de tabel

hieronder de vab waar ik mee bizig was. (geen idee of hij iets of wat juist is)

deze werkt al voor het juiste aantal rijen in te voegen

[B][I]Sub MeerdereRijenInvoegen()[/I][/B]
[B][I]Dim k As Integer[/I][/B]
[B][I]Dim e As Integer[/I][/B]
[B][I]ActiveCell.EntireRow.Select[/I][/B]
[B][I]On Error GoTo Last[/I][/B]
[B][I]k = InputBox("Enter number of columns to insert", "Insert Columns")[/I][/B]
[B][I]For e = 1 To k[/I][/B]
[B][I]Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove[/I][/B]
[B][I]Next e[/I][/B]
[B][I]Last: Exit Sub[/I][/B]
[B][I]End Sub[/I][/B]

deze is met het stuk voor de juiste nummer te zoeken in de tabel (werkt nog niet en weet niet of het in de juiste richting is)

[B][I]Sub MeerdereRijenInvoegenjuist()[/I][/B]

[B][I]Dim a As Integer[/I][/B]
[B][I]Dim k As Integer[/I][/B]
[B][I]Dim e As Integer[/I][/B]

[B][I]a = InputBox("Achter welke fase nr moet de nieuwe regel komen?", "Fase nr kiezen")[/I][/B]

[B][I]    If Range("Productiefiche_bouw[[fase nr]") = a Then GoTo Last[/I][/B]
[B][I]        ActiveCell.EntireRow.Select[/I][/B]


[B][I]On Error GoTo Last[/I][/B]

[B][I]k = InputBox("Enter number of columns to insert", "Insert Columns")[/I][/B]
[B][I]For e = 1 To k[/I][/B]
[B][I]Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove[/I][/B]
[B][I]Next e[/I][/B]
[B][I]Last: Exit Sub[/I][/B]
[B][I]End Sub[/I][/B]

 

[Brend1006]

Bekijk bijlage 369828

 

[snb]

Ontbrekende code tags
Onjuist geplaatste bijlage.

Gegevens voeg je altijd onderaan bestaande gegevens toe.
Excel heeft vele sorteer- en filtermogelijkheden: gebruik die ook.
In Excel kun je geen rijen in-, toevoegen; het aantal rijen van een werkblad is invariant: 2^20
Gebruik Excel om je taak te vereenvoudigen.

 

[Brend1006]

je kan toch rijen invoegen onder een bepaalde voorwaarden denk ik? hier komt hij aan mij vragen hoeveel rijen hij onder de geselecteerde cel moet invoegen. dus dan denk ik dat je toch ook moet kunnen ingeven dat hij komt vragen onder welke nummer (die geef ik in in de inputbox) hij de nieuwe rijen moet invoegen

Mijn

[B]Sub MeerdereRijenInvoegen()
Dim k As Integer
Dim e As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
k = InputBox("Enter number of columns to insert", "Insert Columns")
For e = 1 To k
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next e
Last: Exit Sub
End Sub[/B]

 

[snb]

Mijn vertaling van de tekst in de inputbox gaat niet over rijen.
Is het wel 'jouw' code ?

 

[Brend1006]

zoals ik al aanhaalde ik ben hier niet zo vertrouwd mee dus ik heb deze inderdaad van het internet gekopieerd. is dit verkeerd?
Mijn vertaling van de tekst in de inputbox gaat niet over rijen. wat je hier mee bedoeld: geen idee.