Datensätze lt. Anzahl suchen
15.09.2005 17:17:48
Rolf
Folgendes Makro hat die Aufgabe alle Artikelnummern die z.B. 3 mal vorkommen von Tabelle 1 ab Zelle A2 in Tabelle 2 ab Zelle A2 zu kopieren (alle 3 Artikelnummern komplette Zeile kopieren).
Dieses Makro funktioniert nur, wenn auch ein Wert in Zelle A1 steht.
Wie kann das Makro geändert werden, so das es sicher ab Zelle A2 läuft?
Sub DatensätzeSuchen()
Dim rng As Range, rCell As Range, blnFound As Boolean
Dim iRow As Integer
Set rng = Range("A2").CurrentRegion
For Each rCell In rng.Columns(1).Cells
If WorksheetFunction.CountIf(rng.Columns(1), rCell.Value) = 3 Then
blnFound = True
iRow = iRow + 1
rng.Rows(rCell.Row).Copy Destination:=Sheets("Tabelle2").Range("A2"). _
Cells(iRow, 1)
End If
Next rCell
If blnFound = False Then
Beep
MsgBox "Keine Datensätze gefunden!"
Else
Columns.AutoFit
End If
End Sub
Vielen Dank im voraus
Rolf
Anzeige