Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
800to804
800to804
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeile loeschen wenn

Zeile loeschen wenn
11.09.2006 18:05:13
Andrea
Hallo,
ich hoffe mir kann jemand helfen. Ich moechte gerne ein Makro schreiben das folgenden Zweck erfuellt: In Spalte A, B und C meiner Tabelle stehen Werte. Wenn die Werte in Spalte A,B,C in Zeile i identisch sind mit den Werten in Spalte A,B,C in Zeile i-1 dann soll Zeile i geloescht werden.
Anbei der VBA code den ich bislang habe (funktioniert nur leider nicht so ganz).
Kann jemand helfen?

Sub delete_if()
Dim i As Long, Letzte As Long
Letzte = Range("A65536").End(xlUp).Row
For i = Letzte To 1 Step -1
If Range("A" & i).Value = Range("A" & i - 1).Value Then
If Range("B" & i).Value = Range("B" & i - 1).Value Then
If Range("C" & i).Value = Range("C" & i - 1).Value Then
Rows(i).EntireRow.Delete
End If
End If
End If
Next i
End Sub

Tausend Dank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile loeschen wenn
11.09.2006 18:25:01
Matthias
Hallo Andrea,
der Code schaut doch ganz gut aus - du musst nur die Schleifenbedingung ändern: da im Code der Ausdruck i-1 steht, darf i nur bis 2 runterzählen (Range("A0") führt sonst zum Fehler):

For i = Letzte To 2 Step -1

Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige