Private changeWarning(1 To 3) As Integer
Public Function increment_changeWarning(pos As Integer) As Integer
changeWarning(pos) = changeWarning(pos) + 1
End Function
Public Function call_changeWarning() As Integer
MsgBox "Achtung! Die Daten der Optimierung könnten" & vbCrLf & "nach dieser Aktion nicht mehr Aktuell sein", vbOKOnly
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(6, 2) Then
If Cells(6, 2).Value = "" Then
changeWarning(1) = 0
ElseIf Cells(6, 2).Value <> "" And changeWarning(1) <> 0 Then
call_changeWarning
increment_changeWarning 1
Else
increment_changeWarning 1
End If
ElseIf Target.Cells(7, 2) Then
If Cells(7, 2).Value = "" Then
changeWarning(2) = 0
ElseIf Cells(7, 2).Value <> "" And changeWarning(2) <> 0 Then
call_changeWarning
increment_changeWarning 2
Else
increment_changeWarning 2
End If
ElseIf Target.Cells(8, 2) Then
If Cells(8, 2).Value = "" Then
changeWarning(3) = 0
ElseIf Cells(8, 2).Value <> "" And changeWarning(3) <> 0 Then
call_changeWarning
increment_changeWarning 3
Else
increment_changeWarning 3
End If
End If
End Sub