Doppelte Werte in Zelle löschen in Abhängigkeit
05.05.2008 10:21:00
Detlef
in meiner Exceltabelle möchte ich in "Spalte T" alle doppelten Werte löschen, das funktioniert soweit mit dem unterstehen Makro.
Nun müsste ich das Makro noch erweitern das nur die Einträge in "Spalte T" gelöscht werden, wo der Wert in der jeweiligen "Spalte S" unterschiedlich ist. Im Prinzip sollte jede Zeile in Spalte T wo identisch ist gelöscht werden, aber ist der jeweiligen Wert in "Spalte S" unterschiedlich soll der Wert in Spalte T nicht gelöscht werden.
Hat jemand eine Idee wie ich den untenstehenden Marko erweitern kann?
Gruß
Detlef
Sub DoppelteEinträgeSpalte_Teilsumme_EEG_Anlagenschl_T() 'Doppelte Werte in Spalte T werden gelö _
_
scht'
Dim iRow As Integer
For iRow = Range("T1").CurrentRegion.Rows.Count To 2 Step -1
If Cells(iRow, 20) = Cells(iRow - 1, 20) Then 'in Zeile 20'
Cells(iRow, 20).ClearContents
End If
Next iRow
End Sub
Anzeige