@June7. CyberTazz posted in the non English section so please don't critique for having posted.

Anyway this is the translation.

Saving modified data back in the table

Dear forum users I have a problem with a calculation file

I have an Article_db tab with a table for my articles.

I can add articles to the table of the article_DB tab via an article tab.

In addition, I have a tab article edit for articles to be able to edit. I retrieve the data from the table of the article_DB to edit and write back in the table via a save button (there are also errors in this but usually works).

Then I have a tab for recipes to enter there I can enter recipes with articles from the artDB and he calculates everything with that this works well.

He saves this via a save button in a table on the recipe_DB tab this also works fine

But now a recipe must also be able to be adjusted there I have a tab for created recipe edit and loading the recipe works fine adjusting it too but if I want to save it so write back to the table in recipe db then he doesn't want to do this he runs the select fields neatly but writes nothing away the old value are brought back

I get stuck on this before I can continue

Does anyone have a solution or answer to this

So it's about the piece of code in vb
Sub Edit_Recept_Save() 'Save a edited recipe and
 Dim SelRow As Long
 If Sheet8. ComboBox1. Value = Empty Then 'check if a recipe is selected
     MsgBox "Select a Recipe"
     Exit Sub
 Else
     With Sheet3
         Set RowNr = . Range("A4:A2000"). Find(What:=Sheet8. Range("G3"). Value, LookIn:=xlValues) 'row number look up
     End With
     SelRow = RowNr.Row 'rij nr setting
     With Sheet3
         Sheet8. Range("C9", "G9"). Select
         Sheet3. Range("B" & SelRow). Value = Sheet8. Range("C9") 'Recipe name.
         Sheet3. Range("C" & SelRow). Value = Sheet8. Range("G9") 'Article No.
         Sheet8. Range("J9", "C11"). Select
         Sheet3. Range("D" & SelRow). Value = Sheet8. Range("J9") 'Volume
         Sheet3. Range("E" & SelRow). Value = Sheet8. Range("C11") 'Number of pieces from recipe
         Sheet8. Range("A13", "B13"). Select
         Sheet3. Range("F" & SelRow). Value = Sheet8. Range("A13"). Value 'Ingredint 1 Name
         Sheet3. Range("G" & SelRow). Value = Sheet8. Range("B13"). Value 'Ingredindient 1 Quantity
         Sheet8. Range("A14", "B14"). Select
         Sheet3. Range("H" & SelRow). Value = Sheet8. Range("A14"). Value 'Ingredint 2 Name
         Sheet3. Range("I" & SelRow). Value = Sheet8. Range("B14"). Value 'Ingredint 2 Quantity
         Sheet8. Range("A15", "B15"). Select
         Sheet3. Range("J" & SelRow). Value = Sheet8. Range("A15"). Value 'Ingredint 3 Name
         Sheet3. Range("K" & SelRow). Value = Sheet8. Range("B15"). Value 'Ingredint 3 Quantity
         Sheet8. Range("A16", "B16"). Select
         Sheet3. Range("L" & SelRow). Value = Sheet8. Range("A16"). Value 'Ingredint 4 Name
         Sheet3. Range("M" & SelRow). Value = Sheet8. Range("B16"). Value 'Ingredint 4 Quantity
         Sheet8. Range("A17", "B17"). Select
         Sheet3. Range("N" & SelRow). Value = Sheet8. Range("A17"). Value 'Ingredint 5 Name
         Sheet3. Range("O" & SelRow). Value = Sheet8. Range("B17"). Value 'Ingredint 5 Quantity
         Sheet8. Range("A18", "B18"). Select
         Sheet3. Range("P" & SelRow). Value = Sheet8. Range("A18"). Value 'Ingredint 6 Name
         Sheet3. Range("Q" & SelRow). Value = Sheet8. Range("B18"). Value 'Ingredint 6 Quantity
         Sheet8. Range("A19", "B19"). Select
         Sheet3. Range("R" & SelRow). Value = Sheet8. Range("A19"). Value 'Ingredint 7 Name
         Sheet3. Range("S" & SelRow). Value = Sheet8. Range("B19"). Value 'Ingredint 7 Quantity
         Sheet8. Range("A20", "B20"). Select
         Sheet3. Range("T" & SelRow). Value = Sheet8. Range("A20"). Value 'Ingredint 8 Name
         Sheet3. Range("U" & SelRow). Value = Sheet8. Range("B20"). Value 'Ingredint 8 Quantity
         Sheet8. Range("A21", "B21"). Select
         Sheet3. Range("V" & SelRow). Value = Sheet8. Range("A21"). Value 'Ingredint 9 Name
         Sheet3. Range("W" & SelRow). Value = Sheet8. Range("B21"). Value 'Ingredint 9 Quantity
         Sheet8. Range("A22", "B22"). Select
         Sheet3. Range("X" & SelRow). Value = Sheet8. Range("A22"). Value 'Ingredint 10 Name
         Sheet3. Range("Y" & SelRow). Value = Sheet8. Range("B22"). Value 'Ingredint 10 Quantity
         Sheet8. Range("A23", "B23"). Select
         Sheet3. Range("Z" & SelRow). Value = Sheet8. Range("A23"). Value 'Ingredint 11 Name
         Sheet3. Range("AA" & SelRow). Value = Sheet8. Range("B23"). Value 'Ingredint 11 Quantity
         Sheet8. Range("A24", "B24"). Select
         Sheet3. Range("AB" & SelRow). Value = Sheet8. Range("A24"). Value 'Ingredint 12 Name
         Sheet3. Range("AC" & SelRow). Value = Sheet8. Range("B24"). Value 'Ingredint 12 Quantity
         Sheet8. Range("A25", "B25"). Select
         Sheet3. Range("AD" & SelRow). Value = Sheet8. Range("A25"). Value 'Ingredint 13 Name
         Sheet3. Range("AE" & SelRow). Value = Sheet8. Range("B25"). Value 'Ingredint 13 Quantity
         Sheet8. Range("A26", "B26"). Select
         Sheet3. Range("AF" & SelRow). Value = Sheet8. Range("A26"). Value 'Ingredint 14 Name
         Sheet3. Range("AG" & SelRow). Value = Sheet8. Range("B26"). Value 'Ingredint 14 Quantity
         Sheet8. Range("A27", "B27"). Select
         Sheet3. Range("AH" & SelRow). Value = Sheet8. Range("A27"). Value 'Ingredint 15 Name
         Sheet3. Range("AI" & SelRow). Value = Sheet8. Range("B27"). Value 'Ingredint 15 Quantity
         Sheet8. Range("A28", "B28"). Select
         Sheet3. Range("AJ" & SelRow). Value = Sheet8. Range("A28"). Value 'Ingredint 16 Name
         Sheet3. Range("AK" & SelRow). Value = Sheet8. Range("B28"). Value 'Ingrediant 16 Quantity
         Sheet8. Range("A29", "B29"). Select
         Sheet3. Range("AL" & SelRow). Value = Sheet8. Range("A29"). Value 'Ingredint 17 Name
         Sheet3. Range("AM" & SelRow). Value = Sheet8. Range("B29"). Value 'Ingredint 17 Quantity
         Sheet8. Range("A30", "B30"). Select
         Sheet3. Range("AN" & SelRow). Value = Sheet8. Range("A30"). Value 'Ingredint 18 Name
         Sheet3. Range("AO" & SelRow). Value = Sheet8. Range("B30"). Value 'Ingredint 18 Quantity
         End With
End If
'Dashboard
End Sub