Endlosschleife vBA
02.05.2015 07:27:42
Gisela
ich habe folgendes Problem:
aus der Spalte im Bereich AR19:AR7542 soll jede Zeile in Tabelle 2 geschrieben werden, die die Bedingung AR19=1...AR7542=1 erfüllt. Funzt auch einwandfrei, mein Problem isst nur, dass wenn keine Zelle mit dem Wert 1 in diesem Bereich vorhanden ist, sich das Ganze in einer Endlosschleife windet. Wie bricht der Code ohne Debug-Modus ab, wenn keine Zelle diese Bedingung erfüllt?
Range("A1").Select
Dim i As Integer
Dim cell As Range
i = 19
For Each cell In Tabelle1.Range("AR16:AR7542")
If Not cell Is Nothing Then
If cell.Value = 1 Then
cell.EntireRow.Copy Destination:=Tabelle2.Rows(i)
i = i + 1
End If
End If
Next cell
Sheets("Tabelle2").Select
Sheets("Tabelle1").Select
Rows("16:16").Select
Selection.Copy
...
Beste Grüsse
Gisela