Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1624to1628
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
Inhaltsverzeichnis

Schleifenproblem

Schleifenproblem
04.06.2018 15:26:00
CarVogt
Hallo zusammen,
ich habe in einem Makro folgende Schleife:
i = 1
Set wks = ThisWorkbook.ActiveSheet
With wks
Do While Not Cells(i, 15) = ""
If Cells(i, 14) = "Ja" Then GoTo weiter
If Cells(i, 15) < 0.334 Then Rows(i).Delete
weiter:
i = i + 1
Loop
Es funktioniert auch bis zur letzten Zeile, diese wird leider nicht gelöscht und ich habe keine Ahnung warum. Ist sicherlich eine Kleinigkeit, aber ich finde sie leider nicht.
Gruß
Carsten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleifenproblem
04.06.2018 15:37:49
Rudi
Hallo,
Zeilen immer von unten löschen!
Sub aaaa()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 15).End(xlUp).Row To 1 Step -1
If Cells(i, 14)  "Ja" And Cells(i, 15) 

Gruß
Rudi
AW: Schleifenproblem
04.06.2018 15:44:33
CarVogt
Hat super funktioniert, danke Rudi.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige