Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Deadlock

Deadlock
22.11.2002 15:02:55
Michael May
Hi,

ich habe ein kleines Problem. Und zwar hängt sich der nachfolgende Code beim Löschen von Leerzeilen auf. Das stringabhängige Löschen funktioniert.

Sub begriffe_loeschen_michael()
Dim reihe As Integer

For reihe = 1 To 10
If IsEmpty(Cells(reihe, 1)) Then
Rows(reihe).Delete
reihe = reihe - 1
End If

If Cells(reihe, 1).Value Like "*michael*" Then
Rows(reihe).Delete
reihe = reihe - 1
End If
Next reihe
End Sub

Jemand eine Idee?

Cu

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Deadlock
22.11.2002 15:17:50
Boris
Hallo Michael,

lass die Schleife rückwärts laufen:
Von 10 to 1 step -1

Beim Löschen von Zeilen ist das immer vorteilhaft.

Die Zeile Reihe=Reihe-1 kann dann entfallen-

Gruß Boris

Re: Deadlock
22.11.2002 15:19:11
Boris
Allerdings fhlt mir hier auch noch das NEXT.

Gruß Boris

Wo ist meine Brille? Next war Blödsinn
22.11.2002 15:19:54
Boris
.
Re: Deadlock
22.11.2002 15:34:34
Hans W Hofmann
Hübsche Konstuktion:

For reihe = 1 to 10
..
reihe = reihe-1
...
reihe = reihe-1
..
next reihe

Untersuche doch mal, wo reihe im worst case hinwächst?


Gruß HW

Re: Deadlock
22.11.2002 15:35:07
Michael May
Das klappt ja wirklich super hier. Herzlichen Dank.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige