Herbers Excel/VBA-Archiv
Zeilen Löschen
- Zeilen Löschen von Ulf vom 06.10.2003 12:08:26
- AW: Zeilen Löschen - von Mac4 am 06.10.2003 12:15:07
- Danke Marc - von Ulf am 06.10.2003 12:21:25
- Danke Marc - von Ulf am 06.10.2003 12:21:25
- AW: Zeilen Löschen - von Mac4 am 06.10.2003 12:15:07
 |
Betrifft: Zeilen Löschen
von: Ulf
Geschrieben am: 06.10.2003 12:08:26
Hallo Excel Fans,
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
 |
Betrifft: AW: Zeilen Löschen von: Mac4
Geschrieben am: 06.10.2003 12:15:07
Hallo Ulf,
so müsste es gehen:
Sub test() For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(i, 1).Value = "STOPP" Then Rows(i).EntireRow.Delete shift:=xlUp End If Next End Sub
Marc
| |
Betrifft: Danke Marc von: Ulf
Geschrieben am: 06.10.2003 12:21:25
Danke für deine Hilfe es funzt super.
ulf
| |