Bestimmte Zeilen löschen
06.06.2004 23:40:35
Beat
Ich versuche verzweifelt folgende Aufgabenstellung zu lösen:
Wenn in einer Zelle in der Spalte B ein 'a' steht und wenn in der selben Zeile in der Spalte C der Zelleninhalt nicht mit '3' oder '/' beginnt, sollen alle Zeilen inkl. dieser gelöscht werden bis in einer Zelle in der Spalte B wieder ein 'a' steht. Dann das Ganze wieder von vorne bis ans Ende der Tabelle.
So sieht mein Versuch aus:
Sub Löschen()
a = "a"
c1 = "<>3*"
c2 = "<>/*"
y = 2 'Zeile
z = 2 'Spalte B
n = 3 'Spalte C
Do While Cells(y, z) <> ""
If Cells(y, z) = a Then
If Cells(y, n).Value Like c1 Or Cells(y, n).Value Like c2 Then
Do While Cells(y, n).Value = a
Rows(y).EntireRow.Delete
Loop
End If
End If
y = y + 1
Loop
End Sub
Was mach ich falsch?
Danke schon mal
mfg Beat
Anzeige