Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doppelte Zeilen Löschen Kriterium in Spalte B

Doppelte Zeilen Löschen Kriterium in Spalte B
Christian
Hallo,
habe noch ein (hoffentlich kleines) Problem kurz vor dem wochenende, folgendes Mokro löscht doppelte Zeilen, dabei steht das kriterium in der ersten Spalte (A), also wenn in Spalte A zweimal der selbe eintrag steht, wird eine Zeile gelöscht:
Dim zz As Long, rngLi As Range
For zz = 1 To Cells(Rows.Count, 1).End(xlUp).Row - 1
If Not IsError(Application.Match(Cells(zz, 1), _
Range(Cells(zz + 1, 1), Cells(Rows.Count, 1)), 0)) Then
If rngLi Is Nothing Then
Set rngLi = Rows(zz)
Else
Set rngLi = Union(rngLi, Rows(zz))
End If
End If
Next zz
If Not rngLi Is Nothing Then rngLi.Delete
Kann jemand das Makro so ändern, das in Spalte B gesucht wird? also wenn in Spalte B 2 mal der gleiche Eintrag steht soll die ganze Zeile gelöscht werden...
Im Voraus vielen Dank!
gruss
christian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Doppelte Zeilen Löschen Kriterium in Spalte B
24.07.2009 16:28:10
Hubert
Hi,
If Not IsError(Application.Match(Cells(zz, 2), _
Range(Cells(zz + 1, 2), Cells(Rows.Count, 2)), 0)) Then
mfg Hubert
AW: Doppelte Zeilen Löschen Kriterium in Spalte B
24.07.2009 16:28:18
So
Hallo auch
Dim zz As Long, rngLi As Range
For zz = 1 To Cells(Rows.Count, 2).End(xlUp).Row - 1
If Not IsError(Application.Match(Cells(zz, 2), _
Range(Cells(zz + 1, 2), Cells(Rows.Count, 2)), 0)) Then
If rngLi Is Nothing Then
Set rngLi = Rows(zz)
Else
Set rngLi = Union(rngLi, Rows(zz))
End If
End If
Next zz
If Not rngLi Is Nothing Then rngLi.Delete
mfG
AW: Doppelte Zeilen Löschen Kriterium in Spalte B
24.07.2009 16:32:47
Christian
Ich liebe dieses Forum ;)
Herzlichen Dank an euch beide für die blitzschnellen Antworten!
viele grüße und ein schönes Wochenende
christian
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige