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
jeweilis die Variablen zu definieren "Dim WENoChange As Boolean"? Sind ja nur 4 Variablen.
Der erste Punkt mit dem Change-Events würde dann hier eingefügt werden:?
Private Sub MultiPage_Berechnung_Change()
End Sub