ausschliessen, dass zeile 2 gelöscht wird
08.09.2005 11:42:46
frank
ich habe folgendes problem mit meinem code:
ich möchte vermeiden, dass wenn zelle f2 auf ja gesetzt wird die ganze zeile gelöscht wird sondern in zeile 2 dann nur die inhalte ab zeile 3 soll das makro die ganze zeile löschen...
hintergrund dafür ist das ein weiteres makro die formatierungen usw. aus zeile 2 ausliest und daraus eine neue zeile einfügt
danke schonmal
gruß frank
ps hier der code
Sub lo()
Dim i As Long
For i = Range("F65536").End(xlUp).Row To 1 Step -1
On Error Resume Next
If WorksheetFunction.CountIf(Cells(i, 6), "JA") > 0 Then Cells(i, 6).EntireRow.Delete
Next
End Sub