VBA / Macro probleem - zoeken/verplaatsen van regel naar ander tabblad werkt niet

[Aszern]

Hallo iedereen!

Ik heb hier op het forum al heel wat bruikbare tips en informatie gevonden maar helaas loop ik nu toch echt tegen een frustrerend iets aan Ik ben geen geweldige programmeur (zeg maar gerust niet) maar met wat kunst- en vliegwerk kom je soms een eind maar nu zit ik wel aan het einde

Het probleem
Ik was bezig met een simpel uitgifte-blad te maken, met name om het in- en uitgeven van apparatuur een beetje inzichtelijk te krijgen en te zien wat er openstaat en wie wat geleend heeft.
Er zijn momenteel 3 tabbladen: Registratie, Uitgifte en Ontvangst. Op het Registratie-blad staat een knop die een Form aanroept waarin de input gegeven kan worden. Daarnaast 2 knoppen voor Uitgifte en Ontvangst. Er word iets geleend, je vult de nummers in en hij plaatst dit netjes op het Uitgifteblad. Komt iemand iets terug brengen dan doe je het zelfde alleen dan de knop Ontvangst. En daar zit het probleem ook

Ik heb het NU zo gedaan dat er op het Uitgifte blad code staat die kijkt of er in een cell/kolom het woordje "ingenomen" staat. Ik had eerst de volgende code gebruikt en dit werkte ook totdat ik meerdere kolommen ging toevoegen voor extra informatie. Daarna werkte het niet meer:
Code op Blad2

Private Sub Worksheet_Change(ByVal Target As Range)

irow = Sheets("Uitgifte").Cells(Rows.Count, 1).End(xlUp).Row
If Not Intersect(Target, Range("A1:D100")) Is Nothing Then
If Target.Value = "Ingenomen" Then
Target.EntireRow.Copy Sheets("Ontvangst").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End If

End Sub

Daarvoor had ik zelf nog minder gebruikt en dat werkte dus ook maar totdat ik meerdere kolommen wilde gebruiken:

If Target.Value = "Ingenomen" Then
Target.EntireRow.Copy Sheets("Ontvangst").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If

Vreemd genoeg werkte NIETS meer daarna, dus als ik de kolommen weg haalde en alles terug bracht zoals het was, gebeurde er niets
Het zit ook echt denk ik in het bovenstaande stuk (op de 1 of andere manier), de rij haalt hij wel weg maar hij zet dus NIETS op het Ontvangst tabblad.

Ik heb daarnaast ook nog een stukje code in de Ontvangst knop staan, maar dat is volgens mij wel redelijk ok, alhoewel ik daar ook wel eens een melding mee krijg:

Private Sub OntvangstKnop_Click()

'Maak het tabblad actief
Sheets("Uitgifte").Activate

Columns("A").Find(What:=UitgifteOvTekst.Value, After:=Range("A2"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder _
  :=xlByRows, SearchDirection:=xlNext, MatchCase:=False).EntireRow.Cells(1, 1).Select
  With ActiveCell.Offset(0, 2).Value = "Ingenomen"
  End With


'Maak het tabblad actief
Sheets("Registratie").Activate

Ik heb het bronbestand bijgevoegd: Bekijk bijlage uitgifte.xlsm

Het doel:
- 1. De bedoeling is dus dat (en dat kan wellicht ook onder een knop ipv op verschillende plaatsen code te plaatsen?) zodra een item van status veranderd op het uitgifte-blad, dus "Ingenomen" bv., dat deze regel dan verplaatst word naar het Ontvangst tabblad, met alles er op en er aan

- 2. Het mooiste zou zijn dat als je op de knop drukt dat ie dus checked adhv de input van de 2 tekstboxen, of dat deze 2 waardes voorkomen op de uitgifte lijst. Ik vond dat nogal moeilijk dus vandaar dat ie in principe nu enkel op het OV-nummer kijkt/zoekt.

Zoals gezegd, het WERKTE wel, maar totdat ik er meer bij wil maken en dan krijg iik het met geen mogelijkheid meer aan de praat. Dus gegarandeerd dat ik iets fout heb gedaan

Als iemand mij hier mee kan helpen zou je me een enorm plezier doen! Alvast bedankt als iemand een blik zou willen werpen.

Met vriendelijke groet, Andy