Makro Zeile überspringen

Sub Makro() Dim i As Integer For i = 2 To 1000 If IsEmpty(Cells(i, 1).Value) Then i = 1000 Else If IsEmpty(Cells(i, 27).Value) Then i = i + 1 End If 'Hier steht weiteres Coding das funktioniert Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro2() Dim i As Long If IsEmpty(Cells(2, 1)) Or IsEmpty(Cells(3, 1) Then Exit Sub For i = 2 To Application.Min(1000, Cells(2, 1).End(xlDown).Row) If Not IsEmpty(Cells(i, 27)) Then MsgBox "Mach was in Zeile " & i End If Next i End Sub

Sub Makro2() Dim i As Long If IsEmpty(Cells(2, 1)) Or IsEmpty(Cells(3, 1)) Then Exit Sub For i = 2 To Application.Min(1000, Cells(2, 1).End(xlDown).Row) If Not IsEmpty(Cells(i, 27)) Then MsgBox "Mach was in Zeile " & i End If Next i End Sub

Hallo Bernd,
wagen wir mal eine Analyse. Gerd hat zwar schon alles geliefert, aber es ist Freitag, Klugscheissertag ;-) (ausserdem mangelt es an interessante Fragen am Feierabend)
For i = 2 To 1000
Es wird angenommen, dass es niemals mehr als 1000 Zeilen zu behandeln gibt.
If IsEmpty(Cells(i, 1).Value) Then
i = 1000
Else
Da ist der "Austiegklausel", um die Sache zu beschleunigen. Es gibt ab der Zeile 2 immer etwas in der Spalte A. Wenn nicht ist das Ende der Liste erreicht. Man zwingt die For-Schleife zu enden, indem i 1000 wird.
Beide zusammen führt dazu, dass man irgendeine Zelle in Spalte A ganz weit unten nehmen könnte und der Sprung nach oben ("End(xlUp)") machen, bis zur letzt befüllte Zelle in der Spalte A. Zwischen A2 und diese Zelle hätten wir dann die ganze Liste:
For i = 2 To Cells(99999, 1).End(xlUp).Row
If IsEmpty(Cells(i, 27).Value) Then
i = i + 1
End If

Wenn die Zelle der beachtete Zeile in Spalte AA (=27) leer ist, sofort auf die nächste springen, um das "Coding, das funktioniert" laufen zu lassen.
Gut gemeint, aber nicht im Sinn von einer stabilen Programmierung: ob die nächste Zelle befüllt ist, wird nicht geprüft.
Besser: das Coding, das funktioniert nur auf "nicht leere Zeilen" anwenden:
If Not IsEmpty(Cells(i, 27).Value) Then
'Hier steht weiteres Coding das funktioniert
End If
Dann ist es alles.


Sub Makro()
Dim i As Integer
For i = 2 To Cells(9999, 1).End(xlUp).Row
If Not IsEmpty(Cells(i, 27)) Then
'Hier steht weiteres Coding das funktioniert
End If
Next i
End Sub

VG
Yal

Hallo Bernd,
bitte übernehme in deiner Beschreibung dieselbe Logik, wie bei der Makro-Verarbeitung: es wird nicht "irgendwas" übersprungen. Es wird etwas getan, wenn eine bestimmte Bedingung zutrifft. Diese Bedingung ist durch


(Cells(i, 6) = "Beispiel1" Or Cells(i, 6) = "Beispiel2" Or Cells(i, 6) = "Beispiel3" Or Cells(i, 6) = "Beispiel4" ) And Not IsEmpty(Cells(i, 27))

gegeben. Wenn diese gesamte Ausdruck "wahr" liefert, nur dann wird etwas getan (ich habe den Not IsEmpty am Ende gestellt, um zu verdeutlichen, dass der "Not" nur auf das isempty wirkt.)
Für die Richtigkeit dieses Ausdrucks musst Du selber ran. Lasst die Makro Schritt-Modus laufen und mit dem Maus über den jeweiligen Ausdruck siehst Du was davon wahr ist und was nicht. Du kannst auch Überwachungsausdrücke verwenden, Du kannst auch Variable verwenden und die Lokalfenster während dem Schritt-Lauf offen haben, usw.
Tipp:


Cells(i, 6) Like "Beispiel*"

oder gar


LCase(Cells(i, 6)) Like "beispiel*"

VG
Yal

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

93 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Zeile überspringen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

93 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread