Suche Schleife für folgenden Befehl:

Forumthread: Suche Schleife für folgenden Befehl:
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Suche Schleife für folgenden Befehl:

18.10.2005 11:43:58

Lena

On Error Resume Next
Cells.Find(What:="Rückfragen", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Delete
Hallo,
wenn mir da jemand helfen könnte, diesen Befehl mehrmals wiederholen zu lassen, wäre ich sehr dankbar.
mfg
Lena

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche Schleife für folgenden Befehl:

18.10.2005 11:58:02

Volker
AW: Suche Schleife für folgenden Befehl:

18.10.2005 23:55:51

Lena
Gern geschehen (o.T.)

19.10.2005 09:27:31

Volker

AW: Suche Schleife für folgenden Befehl:

18.10.2005 11:58:02

Volker

Hallo Lena,
nimm eine while-Schleife:


Sub Makro1()
While True
On Error GoTo weiter
Rows(Cells.Find(What:="Rückfragen", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row).Delete
Wend
weiter:
End Sub

Gruß
Volker

AW: Suche Schleife für folgenden Befehl:

18.10.2005 23:55:51

Lena

funktioniert. Danke!
mfg
Lena

Gern geschehen (o.T.)

19.10.2005 09:27:31

Volker