Invoegen nieuwe rij(en) met behoud van format en formules?

Status
Niet open voor verdere reacties.
K

kruimeltjes

Gebruiker
Lid geworden
30 sep 2009
Berichten
222
Beste Allemaal,

Ik heb in excel een marco gemaakt die een x aantal rijen toevoegd afhankleijk van de waarde (aantal) die ingegeven wordt. Dit werkt allemaal geweldig alleen wordt mijn format en de formules niet mee gekopieerd. Verder zou het helemaal geweldig zijn als mijn nummering (1,2,3 etc) door zou lopen (Number).

Heeft iemand een idee hoe ik dit kan oplossen?

Bekijk bijlage test DD2.xlsm

Groetjes,

Simone
 
Probeer eens volgende code ipv wat jij geschreven hebt.
Code: 
Sub Worksheet_Change(ByVal Target As Range)
Dim strRange    As String

    If Target.AddressLocal = "$H$2" Then
        strRange = "6:" & Trim(Str(5 + Target.Value))
        Rows("5:5").Copy
        Rows(strRange).Insert Shift:=xlDown
    End If
End Sub

In cel B5 moet nog volgende formule
Code: 
=IF(ISNUMBER(B4);B4+1;1)
komen.
 
Maak van de gegevens een tabel.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan