Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrmals vorkommende Werte in neues Tabellenblatt

Gruppe

Kopieren

Problem

Wie kann ich in einer Spalte mehrfach vorkommende Werte in ein neues Arbeitsblatt per VBA übertragen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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