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 :)