Zeilen Löschen
06.10.2003 12:08:26
Ulf
habe folgendes Problem, wie kriege Ich es hin das Excel jeweils die Zeile die in der bei Spalte A "STOPP" steht komplett rauslöscht. Habe versucht einen Code umzuschreiben aber der haut nicht hin.
Sub Storniert_löschenkomplett()
Dim ersterFund As String
Cells.Find(What:="STOPP", After:=ActiveRow, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ersterFund = ActiveCell.Address
Do
If ActiveCell.Column = "STOPP" Then Rows(ActiveCell.Row, ActiveCell.Column - 1).Clear
Cells.FindNext(After:=ActiveCell).Activate
Loop Until ActiveCell.Address = ersterFund
End Sub
danke für eure Hilfe,
Ulf
Anzeige