wie kann ich eine schleife erneut vom anfang beginnen lassen wenn es eine bedinngung erfüllt?
https://www.herber.de/bbs/user/54758.txt
Danke
Option Explicit
Sub Nick()
Dim J As Long
Dim i As Long
Dim X1 As String
Dim Y1 As String
Dim n As Long
Dim A()
J = 3
n = 35
For i = 3 To n
' X1 = Cells(i, "L").Value
' Y1 = Cells(J, "P").Value
X1 = 1
Y1 = 1
If X1 >= Y1 Then
' A(i) = X1 - Y1
' Cells(i, "Q").Value = A(i)
' J = J + 1
i = 2 ''' hier sollte er die Schleife wieder bei i=3 anfangen damit er _
jeden wert x1 mit jedem wert y1 nimmt
End If
Next i
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen