noch was...
09.10.2003 13:26:31
MisterBurns
ich hab da noch eine frage an dich:
wenn ich deinen code hernehme:
Sub Fallabschluss()
Dim i%, letzte%
letzte = Cells(Rows.Count, 11).End(xlUp).Row
For i = 6 To letzte
If Cells(i, 11) = "Fallabschluss" Then
Cells(i, 12) = 0
End If
Next i
End Sub
wie muss ich es anstellen, dass er mir dann die ganze Zeile LÖSCHT? also nicht
in spalte L auf null setzen, sondern einfach löschen!
danke nochmals!
berni
Anzeige