Macro RSA_ValDiff

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_ValDiff()

    i1 = Selection.Row
    i2 = i1 + Selection.Rows.Count - 1
    j1 = Selection.Column
    j2 = j1 + Selection.Columns.Count - 1

'all Abs.-1
'all sc Abs.-1
'mc Abs.-1

        Sheets.Add
        ActiveSheet.Name = "Diff12"
        Sheets.Add
        ActiveSheet.Name = "Diff23"
        Sheets.Add
        ActiveSheet.Name = "RelDiff12"
        Sheets.Add
        ActiveSheet.Name = "RelDiff23"
        
    For i = i1 To i2 Step 1
        For j = j1 To j2 Step 1
        If (IsEmpty(Sheets("all sc Abs.-1").Cells(i, j))) Then
            Cells(i, j).Select
            With Selection.Interior
                .ColorIndex = 1
                .Pattern = xlSolid
            End With

        
            Else
                Sheets("Diff12").Cells(i, j) = Sheets("All Abs.-1").Cells(i, j) - Sheets("All Abs.-2").Cells(i, j)
                
                If (Not (Sheets("All Abs.-1").Cells(i, j) = 0)) Then
                    Sheets("RelDiff12").Cells(i, j) = 100 * Sheets("Diff12").Cells(i, j) / Sheets("All Abs.-1").Cells(i, j)
                    Else
                    Sheets("RelDiff12").Cells(i, j) = 0
                End If
                Sheets("Diff23").Cells(i, j) = Sheets("All Abs.-2").Cells(i, j) - Sheets("All Abs.-3").Cells(i, j)
                
                If Not (Sheets("All Abs.-2").Cells(i, j) = 0) Then
                    Sheets("RelDiff23").Cells(i, j) = 100 * Sheets("Diff23").Cells(i, j) / Sheets("All Abs.-2").Cells(i, j)
                    Else
                    Sheets("RelDiff23").Cells(i, j) = 0
                End If
            End If
    
    Next j
Next i

End Sub