Gruppe
Allgemein
Problem
Wie kann ich in einer Spalte mehrfach vorkommende Werte in ein neues Arbeitsblatt per VBA übertragen?
StandardModule: basMain
Sub GleicheUebertragen()
Dim wks As Worksheet
Dim var As Variant, vValue As Variant
Dim iRow As Integer, iRowT As Integer
Set wks = ActiveSheet
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
iRow = 1
Do Until IsEmpty(wks.Cells(iRow, 1))
vValue = wks.Cells(iRow, 1).Value
If WorksheetFunction.CountIf(wks.Columns(1), vValue) > 1 Then
var = Application.Match(vValue, Columns(1), 0)
If IsError(var) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = vValue
End If
End If
iRow = iRow + 1
Loop
End Sub