Public Sub Spalten_überprüfen()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Application.ScreenUpdating = False
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = loLetzteQ To 2 Step -1
If Application.WorksheetFunction.CountIf(Sheets("Tabelle2").Range("C:C"), Cells(i, 3)) > 1 Then
Rows(i).Delete
End If
Next i
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Tabelle1")
.Range(.Cells(2, 1), .Cells(loLetzteQ, 6)).Copy Sheets("Tabelle2").Cells(loLetzteZ, 1)
End With
Application.ScreenUpdating = True
End Sub