regel automatisch toevoegen

[lecram2017]

Bekijk bijlage inschrijflijst.xlsmbeste,

ik ben een beginnend gebruiker van excel v.w.b.t. het VBA schrijven en ben dan ook het proberen om een regel automatisch te laten toevoegen. In de bijlage het file.
Het gaat om tabblad 2. De bedoeling is dat wanneer in de oranje cel (in dit geval A8) leeg is en daar een getal (>0) ingevuld wordt, automatisch een regel toegevoegd wordt. Cel J8 (de formule) wordt dan ook gekopieerd naar J9. Het format van regel 8 gaat mee naar regel 9.

Het gaat redelijk goed maar loopt toch vast met een foutmelding. Ik heb al verschillende opties geprobeerd maar steeds komt de fout moelding op dezelfde regel (hieronder rood gemaakt).

Wie kan me verder helpen?
Alvast bedankt


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Value <> "" Then
Rows(Target.Row + 1).EntireRow.Insert

End If
End Sub

 

[VenA]

Alle code eruit mieteren en deze in de module van blad 'rekenblad'

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
  If Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Offset(1).EntireRow.Insert
    Application.EnableEvents = True
  End If
End Sub

 

[lecram2017]

sorry voor mijn late reactie. Ik was even noodgedwongen afwezig.

Het werkt perfect, bedankt voor de hulp. Misschien nog een kleinigheidje.....
graag had ik ook de nieuw in te vullen regel nog in de kleuren van de regel erboven. Is dat ook mogelijk? Dan weten de invullers waar ze moeten beginnen met invullen.

hopelijk nog een reactie.

gr

 

[VenA]

Als gebruikers niet weten waar ze wat moeten invullen dan zal er ergens in het ontwerp wel iets fout zitten. Zoek even op Userform dan kan je de data gestructureerd in laten voeren/aanpassen.