Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Beispiel zur IsEmpty-Funktion

Beispiel zur IsEmpty-Funktion


In diesem Beispiel werden die Daten in der ersten Spalte von Sheet1 sortiert und anschließend alle Zeilen gelöscht, die doppelt vorhandene Daten enthalten.

Worksheets("Sheet1").Range("A1").Sort _
    key1:=Worksheets("Sheet1").Range("A1")
Set currentCell = Worksheets("Sheet1").Range("A1")
Do While Not IsEmpty(currentCell)
    Set nextCell = currentCell.Offset(1, 0)
    If nextCell.Value = currentCell.Value Then
        currentCell.EntireRow.Delete
    End If
    Set currentCell = nextCell
Loop