Hallo zusammen,

ich habe das probelm ,dass ich eine schleife in meinem makro habe welche kein ende findet, wie kann ich diese beenden?
folgender Sachverhalt:
im tabellenblatt Tabelle3 wird die 5.zeile ab der 2.spalte durchsucht, ob der wert "0" in einer Zelle steht, es kann jedoch auch vorkommen dass der wert "0" nicht gefunden werden kann. Wie beendet man die schleife, wenn in der 5.Zeile alle zellen in denen werte stehen überprüft wurden und nur noch leere zellen folgen?

mir liegt folgendes makro vor:

Sub diagramm()

Dim Zeile As Integer
Dim Spalte As Integer

Zeile = 5
Spalte = 2
kfound = False

Sheets("Tabelle3").Activate
Do Until kfound
If ActiveSheet.Cells(Zeile, Spalte).Value <> "0" Then
Spalte = Spalte + 1

Diagramm1.SetSourceData Source:=Sheets("Tabelle3").Range("B4:GT250"), _
PlotBy:=xlRows
Else

Diagramm1.SetSourceData Source:=Sheets("Tabelle3").Range(Cells(4, 2), Cells(250, Spalte - 1)), _
PlotBy:=xlRows
kfound = True

Exit Do
End If
Loop
End Sub

Vielen Dank
Gruß sebal