Datensätze in gleiche Arbeitsmappe kopieren
12.05.2005 19:30:56
Rolf
folgendes Makro hat die Aufgabe, alle Datensätze in Spalte A, deren Artikelnummern öfter als 6 mal vorkommen, in eine neue Arbeitsmappe zu kopieren.
Ich möchte das die Datensätze nicht in eine neue sondern in die eigene Arbeits-mappe mit dem Namen Tabelle 2 kopiert werden.
Kann jemand das Makro ändern?
Sub MatchCopy()
Dim rng As Range, rCell As Range
Dim iRow As Integer
Set rng = Range("A1").CurrentRegion
Workbooks.Add 1
For Each rCell In rng.Columns(1).Cells
If WorksheetFunction.CountIf(rng.Columns(1), rCell.Value) > 6 Then
iRow = iRow + 1
rng.Rows(rCell.Row).Copy Cells(iRow, 1)
End If
Next rCell
If IsEmpty(Range("A1")) Then
ActiveWorkbook.Close savechanges:=False
Beep
MsgBox "Keine Datensätze gefunden!"
Else
Columns.AutoFit
End If
End Sub
Vielen Dank im voraus
Rolf
Anzeige