oplaan van aangepaste data terug in de tabel

[CyberTazz]

Beste forum gebruikers ik heb een probleem met een calculatie file
ik heb een tabblad Artikel_db met een tabel voor mijn artikelen.
Via een tabblad artikelen invoeren kan ik artikelen toevoegen aan het tabel vanhet tabblad artikel_DB.
Daarnaast heb ik een tabblad artikel edit voor artikelen te kunnen editen hierbij haal ik de data uit de tabel van de artikel_DB terug om te editen en via een knop save weer terug te schrijven in de tabel (ook hier zitten foute in maar werkt meestal).
Dan heb ik een tabblad voor recepten in te voeren daar kan ik recepten invoeren met artikelen vanuit de artDB en daar bereken hij van alles mee dit werkt goed.
dit slaat hij via een knop save op in een tabel op het tabblad recept_DB dit werkt ook prima
maar nu moet een recept ook aangepast kunnen worden daar heb ik een tabblad voor aangemaakt recept edit en het inladen van het recept werkt prima het aanpassen ook maar als ik het wil saven dus weer terug schrijven naar de tabel in recept db dan wil hij dit niet doen hij loopt de select velden netjes na maar schrijft niets weg de oude waarde worden weer terug gehaald

ik loop hierop vast voor ik weer verder kan gaan

heeft iemand hier een oplossing of antwoord op
het gaat dus om het stuk code in vb

Sub Edit_Recept_Save()  'Een gewijzigt recept opslaan en
Dim SelRow As Long

If Blad8.ComboBox1.Value = Empty Then 'controleer of er een recept geselecteerd is
       MsgBox "Selecteer een Recept"
        Exit Sub
Else

With Blad3
    Set RowNr = .Range("A4:A2000").Find(What:=Blad8.Range("G3").Value, LookIn:=xlValues) 'rij nr opzoeken
   
End With

SelRow = RowNr.Row 'rij nr setting
With Blad3
Blad8.Range("C9", "G9").Select
Blad3.Range("B" & SelRow).Value = Blad8.Range("C9") 'Recept naam.
Blad3.Range("C" & SelRow).Value = Blad8.Range("G9") 'Artikelnr.
Blad8.Range("J9", "C11").Select
Blad3.Range("D" & SelRow).Value = Blad8.Range("J9") 'Volume
Blad3.Range("E" & SelRow).Value = Blad8.Range("C11") 'Aantal stuks uit recept
Blad8.Range("A13", "B13").Select
Blad3.Range("F" & SelRow).Value = Blad8.Range("A13").Value 'Ingrediënt 1 Naam
Blad3.Range("G" & SelRow).Value = Blad8.Range("B13").Value 'Ingrediënt 1 Hoeveelheid
Blad8.Range("A14", "B14").Select
Blad3.Range("H" & SelRow).Value = Blad8.Range("A14").Value 'Ingrediënt 2 Naam
Blad3.Range("I" & SelRow).Value = Blad8.Range("B14").Value 'Ingrediënt 2 Hoeveelheid
Blad8.Range("A15", "B15").Select
Blad3.Range("J" & SelRow).Value = Blad8.Range("A15").Value 'Ingrediënt 3 Naam
Blad3.Range("K" & SelRow).Value = Blad8.Range("B15").Value 'Ingrediënt 3 Hoeveelheid
Blad8.Range("A16", "B16").Select
Blad3.Range("L" & SelRow).Value = Blad8.Range("A16").Value 'Ingrediënt 4 Naam
Blad3.Range("M" & SelRow).Value = Blad8.Range("B16").Value 'Ingrediënt 4 Hoeveelheid
Blad8.Range("A17", "B17").Select
Blad3.Range("N" & SelRow).Value = Blad8.Range("A17").Value 'Ingrediënt 5 Naam
Blad3.Range("O" & SelRow).Value = Blad8.Range("B17").Value 'Ingrediënt 5 Hoeveelheid
Blad8.Range("A18", "B18").Select
Blad3.Range("P" & SelRow).Value = Blad8.Range("A18").Value 'Ingrediënt 6 Naam
Blad3.Range("Q" & SelRow).Value = Blad8.Range("B18").Value 'Ingrediënt 6 Hoeveelheid
Blad8.Range("A19", "B19").Select
Blad3.Range("R" & SelRow).Value = Blad8.Range("A19").Value 'Ingrediënt 7 Naam
Blad3.Range("S" & SelRow).Value = Blad8.Range("B19").Value 'Ingrediënt 7 Hoeveelheid
Blad8.Range("A20", "B20").Select
Blad3.Range("T" & SelRow).Value = Blad8.Range("A20").Value 'Ingrediënt 8 Naam
Blad3.Range("U" & SelRow).Value = Blad8.Range("B20").Value  'Ingrediënt 8 Hoeveelheid
Blad8.Range("A21", "B21").Select
Blad3.Range("V" & SelRow).Value = Blad8.Range("A21").Value 'Ingrediënt 9 Naam
Blad3.Range("W" & SelRow).Value = Blad8.Range("B21").Value 'Ingrediënt 9 Hoeveelheid
Blad8.Range("A22", "B22").Select
Blad3.Range("X" & SelRow).Value = Blad8.Range("A22").Value 'Ingrediënt 10 Naam
Blad3.Range("Y" & SelRow).Value = Blad8.Range("B22").Value  'Ingrediënt 10 Hoeveelheid
Blad8.Range("A23", "B23").Select
Blad3.Range("Z" & SelRow).Value = Blad8.Range("A23").Value 'Ingrediënt 11 Naam
Blad3.Range("AA" & SelRow).Value = Blad8.Range("B23").Value 'Ingrediënt 11 Hoeveelheid
Blad8.Range("A24", "B24").Select
Blad3.Range("AB" & SelRow).Value = Blad8.Range("A24").Value 'Ingrediënt 12 Naam
Blad3.Range("AC" & SelRow).Value = Blad8.Range("B24").Value 'Ingrediënt 12 Hoeveelheid
Blad8.Range("A25", "B25").Select
Blad3.Range("AD" & SelRow).Value = Blad8.Range("A25").Value 'Ingrediënt 13 Naam
Blad3.Range("AE" & SelRow).Value = Blad8.Range("B25").Value 'Ingrediënt 13 Hoeveelheid
Blad8.Range("A26", "B26").Select
Blad3.Range("AF" & SelRow).Value = Blad8.Range("A26").Value 'Ingrediënt 14 Naam
Blad3.Range("AG" & SelRow).Value = Blad8.Range("B26").Value 'Ingrediënt 14 Hoeveelheid
Blad8.Range("A27", "B27").Select
Blad3.Range("AH" & SelRow).Value = Blad8.Range("A27").Value 'Ingrediënt 15 Naam
Blad3.Range("AI" & SelRow).Value = Blad8.Range("B27").Value 'Ingrediënt 15 Hoeveelheid
Blad8.Range("A28", "B28").Select
Blad3.Range("AJ" & SelRow).Value = Blad8.Range("A28").Value 'Ingrediënt 16 Naam
Blad3.Range("AK" & SelRow).Value = Blad8.Range("B28").Value 'Ingrediënt 16 Hoeveelheid
Blad8.Range("A29", "B29").Select
Blad3.Range("AL" & SelRow).Value = Blad8.Range("A29").Value 'Ingrediënt 17 Naam
Blad3.Range("AM" & SelRow).Value = Blad8.Range("B29").Value 'Ingrediënt 17 Hoeveelheid
Blad8.Range("A30", "B30").Select
Blad3.Range("AN" & SelRow).Value = Blad8.Range("A30").Value 'Ingrediënt 18 Naam
Blad3.Range("AO" & SelRow).Value = Blad8.Range("B30").Value 'Ingrediënt 18 Hoeveelheid


End With
End If
'Dashboard
 End Sub