Herbers CD / 03397
12.04.2004 16:06:12
Erich M.
habe von Herbers CD nachstehenden Code, den ich leicht abwandeln will;
z.T. gelungen. Es geht um Doppelte in einer Spalte.
1. Kennzeichnung mit einfach und mehrfach in einer neuen Spalte gelungen.
2. Wie geht es in einer weiteren Spalte den ersten Wert mit "Original" und
den zweiten und weiteren Wert der Doppelten mit "Duplikat" zu kennzeichnen?
Sub DblFind()
' Herbers CD 03397
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Sub Dbl_mehrfach()
myDatei = ComboBox1.Text ' Datei in der gesucht wird
myName1 = ComboBox2.Text ' Suchtabelle
letzteSpalte = ComboBox4.Text ' Suchspalte
Workbooks(ComboBox1.Text).Activate
Set Tab1 = Sheets(ComboBox2.Text) ' = Ausgangstabelle, Suchtabelle
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, letzteSpalte).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(letzteSpalte), Cells(iRow, letzteSpalte)) = 1 Then
Cells(iRow, neueSpalte) = "einfach"
End If
If WorksheetFunction.CountIf(Columns(letzteSpalte), Cells(iRow, letzteSpalte)) > 1 Then
Cells(iRow, neueSpalte) = "mehrfach in Spalte " & letzteSpalte
End If
'??? If WorksheetFunction.CountIf(Columns(letzteSpalte), Cells(iRow, letzteSpalte)) = 1 Then
' Cells(iRow, neueSpalte2) = "Original"
' End If
'??? If WorksheetFunction.CountIf(Columns(letzteSpalte), Cells(iRow, letzteSpalte)) = 1 Then
' Cells(iRow, neueSpalte2) = "Dupilkat"
' End If
Next iRow
End Sub
Code eingefügt mit: Excel Code Jeanie
Besten Dank für eine Hilfe!
mfg
Erich