Ach so ich wollte die Funktion 4 mal anweden weil immer 2 Textboxen verknüpft werden müssen und das 4 mal. mein ganzer Code sieht so aus:

Private Sub TxBx_EL_EWjeEFH_Change()
Call EWFillBoxes
End Sub

Private Sub TxBx_EWjeEFH_Change()
Call EWFillBoxes
End Sub

Private Sub TxBx_EL_WEjeMFH_Change()
Call WEFillBoxes
End Sub

Private Sub TxBx_WEjeMFH_Change()
Call WEFillBoxes
End Sub

Private Sub TxBx_NumEFH_Change()
Call EFHFillBoxes
End Sub

Private Sub TxBx_AnzEFH_Change()
Call EFHFillBoxes
End Sub

Private Sub TxBx_NumMFH_Change()
Call MFHFillBoxes
End Sub

Private Sub TxBx_AnzMFH_Change()
Call MFHFillBoxes
End Sub

Private Sub EFHFillBoxes()
Static EFHNoChange As Boolean
    If Not EFHNoChange Then
      EFHNoChange = True
      ActiveSheet.Cells(1, 2).VAlue = ActiveControl.VAlue
       EFHNoChange = False
End If
End Sub

Private Sub MFHFillBoxes()
Static MFHNoChange As Boolean
    If Not MFHNoChange Then
      MFHNoChange = True
      ActiveSheet.Cells(2, 2).VAlue = ActiveControl.VAlue
       MFHNoChange = False
End If
End Sub


Private Sub EWFillBoxes()
Static EWNoChange As Boolean
    If Not EWNoChange Then
      EWNoChange = True
      ActiveSheet.Cells(3, 2).VAlue = ActiveControl.VAlue
       EWNoChange = False
End If
End Sub

Private Sub WEFillBoxes()
Static WENoChange As Boolean
    If Not WENoChange Then
      WENoChange = True
     ActiveSheet.Cells(4, 2).VAlue = ActiveControl.VAlue
      WENoChange = False
End If
End Sub

Meine Excel Tabelle hab ich in ActiveSheet umbenannt und es werden in der Spalte B die Zellen 1, 2, 3, 4 angesprochen.
Im ControlSource jedes Testfeldes wird mit der dazugehörigen Zelle Verbunden "ActiveSheet!B3" zum Beispiel.

So wie der Code jetzt ist tritt immer noch der Laufzeitfehler 91 auf 

hoffentlich kann mir jemand helfen :)