Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim TDK(), TAEe(), TAEs(), Le As Long, Ls As Long, C As Long
If Target.Address(0, 0) = "DM2" Then
Cancel = True
TDK = Me.UsedRange.Columns("DK").Value
TAEe = Intersect(Me.[A:E], Me.UsedRange).Value
ReDim TAEs(1 To UBound(TAEe, 1), 1 To 5)
For Le = 1 To UBound(TDK)
If TDK(Le, 1) = "OK" Then
Ls = Ls + 1
For C = 1 To 5: TAEs(Ls, C) = TAEe(Le, C): Next C: End If: Next Le
Intersect(Me.[A:E], Me.UsedRange).Value = TAEs
End If
End Sub