Private Sub CommandButton1_Click()
Dim WTab As Worksheet, WList As Worksheet, Flag As Boolean
Set WTab = Worksheets("Tab")
Set WList = Sheets("Liste")
WTab.Range("A10:AG80").ClearContents
Flag = False
Dim L As Integer, i As Integer, J As Integer
L = WList.Range("A65000").End(xlUp).Row
For i = 2 To L
If WList.Range("F" & i) = "R" Then
For J = 10 To WTab.Range("A80").End(xlUp).Row
If WTab.Range("A" & J) = WList.Range("A" & i).Value Then
If WTab.Range("B" & J) = "" Then
WTab.Range("B" & J) = WList.Range("C" & i).Value
WTab.Range("C" & J) = CDbl(WList.Range("E" & i).Value)
Flag = True
Exit For
End If
End If
Next
If Not Flag Then
M = WTab.Range("A80").End(xlUp).Row + 1
WTab.Range("A" & M) = WList.Range("A" & i).Value
WTab.Range("B" & M) = WList.Range("C" & i).Value
WTab.Range("C" & M) = CDbl(WList.Range("E" & i).Value)
End If
End If
Flag = False
If WList.Range("F" & i) = "D" Then
For J = 10 To WTab.Range("A80").End(xlUp).Row
If WTab.Range("A" & J) = WList.Range("A" & i).Value Then
If WTab.Range("AD" & J) = "" Then
WTab.Range("AD" & J) = WList.Range("B" & i).Value
WTab.Range("AE" & J) = CDbl(WList.Range("E" & i).Value)
Flag = True
Exit For
End If
End If
Next
If Not Flag Then
M = WTab.Range("A80").End(xlUp).Row + 1
WTab.Range("A" & M) = WList.Range("A" & i).Value
WTab.Range("AD" & M) = WList.Range("B" & i).Value
WTab.Range("AE" & M) = CDbl(WList.Range("E" & i).Value)
End If
End If
Flag = False
Next
Unload Me
End Sub