Oft haben wir große Tabellen, in denen in einer Spalte immer
wieder die gleichen Einträge vorkommen. Um die entsprechenden
Zeilen bis auf eine zu löschen, kann das folgende VBA-Programm
verwendet werden.
Zuerst ist die Tabelle nach der Spalte mit den doppelten
Einträgen zu sortieren. Wenn diese nicht in der Spalte "A"
stehen, muss das Makro angepasst werden.
Das Makro setzt in Zeile 2 der entsprechenden Spalte an, und
vergleicht den Inhalt mit dem in der Zeile darüber stehenden Wert.
Ist dieser gleich dem in der aktuellen Zeile, wird diese
komplett gelöscht. Auf diese Weise arbeitet sich das Programm
Zeile für Zeile weiter nach unten, bis die erste freie Zelle
erreicht ist.
Wer Wert auf eine Sicherung der gelöschten Zeilen legt, kann
die auskommentierten Programmzeilen einfach aktivieren und
muss aber dann die Tabellenblattnamen im Makro anpassen.
Das Makro kopiert dann jede gelöschte Zeile in ein anderes
Worksheet der gleichen Mappe.
Damit in der Sicherungstabelle keine bestehenden Daten überschrieben
werden, erfolgt wärend der Laufzeit eine Prüfung, wo sich die letzte
benutze Zeile auf dem Sicherungsblatt befindet. Zwei Methoden dazu
sind hier vorgestellt (siehe: "so geht's auch").
Bitte nur jeweils eine davon im Makro aktiv stellen.