Hilfe, Doppelte
02.12.2004 15:43:24
Peter
kann mr jemand dieses Makro so umschreiben, daß nicht nur die Spalte 4 kontrolliert wird, sondern die Spalte 4 in Verbindung mit Spalte 7.
Also nur doppelte löschen, wenn in Spalte D und Spalte G das gleiche steht
BSP.
D=30466323 G=1268576210 stehen lassen
D=30466323 G=1268576210 löschen
D=30466323 G=1255148500 stehen lassen
D=30478999 G= 54566666 stehen lassen
D=30471000 G= 54566666 stehen lassen
Also nur die Zeilen löschen, wo in D und G der gleiche Wert ist.
Danke
Peter D
Sub DblFind()
Monat = InputBox("Bitte Tabellennamen eingeben)", , Monatsname)
If Monat = "" Then Exit Sub
Sheets(Monat).Select
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Cells.Rows.Count, 4).End(xlUp).Row
For iRow = iRowL To 3 Step -1
If WorksheetFunction.CountIf(Columns(4), Cells(iRow, 4)) > 1 Then
Select Case MsgBox("Der Eintrag """ & Cells(iRow, 4).Value & """ ist doppelt vorhanden!" _
& Chr(13) & "Soll dieser Eintrag gelöscht werden?", vbYesNoCancel, "DOPPELTER EINTRAG")
Case vbYes
Rows(iRow).Delete
Case vbCancel
Exit Sub
End Select
End If
Next iRow
MsgBox "Es wurden keine weiteren Einträge gefunden!", , "Doppelte Einträge suchen"
Sheets("Informationen").Select
End Sub