Hallo dimitri

deine Beschreibung ist recht konfus und schwer zu lesen.  Egal ob Neuling der nicht. Eine Problembeschreibung sollte schon nachvollziehbar sein. Kurze Sätze, klare Bezeichnung der beteiligten Elemente. Außer dir weis ja Niemand wie deine Datein aussehen undwas du so vorhast. 

Dennoch habe ich versucht eine Lösung u erstellen.  Nur die Tabelle 2 ist dort nicht berücksichtigt, da du in der Beschreibung zu undeutlich warst.  

Private Sub Hinzufügen_Click()

    Dim Zelle As Range
    Dim rfund As Range
    Dim strmsg As String
    
    'suche nach gerätenr
    With ActiveWorkbook.Worksheets("Lagerbestand")
        Set rfund = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
    End With
    If Not rfund Is Nothing Then
     'wenn gefunden Werte eintragen
        rfund.Offset(, 1).Value = EBez
        rfund.Offset(, 2).Value = EStatus
        rfund.Offset(, 3).Value = ECPU
       
       'In die Tabelle Information in ein textfeld Hinzufügen!
        With Worksheets("Information")
            .Shapes("LGeräteNr").DrawingObject.Text = EGeräteNr
            .Shapes("LBez").DrawingObject.Text = EBez
            .Shapes("LStatus").DrawingObject.Text = EStatus
            .Shapes("LCPU").DrawingObject.Text = ECPU
        End With
        
        If vbYes = MsgBox("Möchten sie weitere Einsicht bekommen?", vbYesNo + vbQuestion) Then
          'wenn ja tabelle anzeigen
          Worksheets("Information").Activate
        End If
        
        Unload Me
    Else
        MsgBox "Gerätenummer nicht gefunden", vbInformation, "Fehler"
    End If
  
End Sub