Datensätze löschen

Bild

Betrifft: Datensätze löschen
von: Josef
Geschrieben am: 26.04.2005 12:04:52
Hallo!
Ich habe ca. 50000 Datensätze.
In Spalte L sind sogenannte VSNR Nummern eingetragen, wobei diese VSNR öfters vorkommen können und auch nur einmal vorhanden sind.
Ich müßte jetzt alle Datensätze markieren oder löschen wo die VSNR Nummer nur einmal vorkommt. Kommt die VSNR Nr mehrfach vor, dann sollten diese Datensätze erhalten bleiben.
Bei einer Markierung müßte ich dann die Datensätze nach Farben sortieren.
Gäbe es hier bitte eine VBA Lösung ?

Danke

Josef

Bild

Betrifft: AW: Datensätze löschen
von: Reinhard
Geschrieben am: 26.04.2005 12:29:50
Hallo Josef,

Sub tt()
For z = ActiveSheet.Range("L65536").End(xlUp).Row To 2 Step -1
    If Application.WorksheetFunction.CountIf(Columns(12), Cells(z, 12)) = 1 Then Cells(z, 12).EntireRow.Delete
Next z
End Sub

Viele Grüße
Reinhard
Bild

Betrifft: AW: Datensätze löschen
von: Josef
Geschrieben am: 26.04.2005 12:32:20
Hallo Reinhard!

Danke für Deine Hilfe.

Josef
 Bild

Beiträge aus den Excel-Beispielen zum Thema "SUMMEWENN mit zwei Kriterien"