Kopieren ohne Doppelte (Zeile)
28.11.2003 12:15:00
Erich M.
habe aus dem Forum nachstehendes Makro, das die Spalte A in
eine neue Tabelle kopiert, ohne "doppelte Werte" in Spalte A.
Ich bräuchte die Lösung in der form, dass nicht nur die Spalte,
sondern die Spalten A - P kopiert werden. Es sollen aber nur die
Zeilen nicht kopiert werden, wenn in Spalte A doppelte Werte sind.
Doppelte Werte in den anderen Spalten sind unerheblich:
'https://www.herber.de/forum/archiv/340to344/t343949.htm
' kopieren Spalte A ohne Doppelte
Sub AKopierenOhneDoppelte()
Dim wks As Worksheet
Dim iRow As Integer, iRowT As Integer
Set wks = Worksheets("Doppelte")
wks.Columns("A").ClearContents
iRowT = 0
For iRow = 1 To Range("A65536").End(xlUp).Row
If Cells(iRow, 1) <> "" Then
If WorksheetFunction.CountIf(wks.Columns(1), _
Cells(iRow, 1)) = 0 Then
iRowT = iRowT + 1
wks.Cells(iRowT, 1) = Cells(iRow, 1) ' Original
' wks.Rows.Cells(iRowT) = Rows.Cells(iRow) ' geht nicht
' wks.Rows.Cells(iRowT) = Rows.Cells(iRowT) ' geht nicht
End If
End If
Next
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige