VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mehrmals vorkommende Werte in neues Tabellenblatt

Gruppe

Allgemein

Bereich

Kopieren

Thema

Mehrmals vorkommende Werte in neues Tabellenblatt

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren