for schleife verständnis frage
16.03.2006 07:32:06
F
ich habe folgenden Code:
Dim i As Integer
Dim ende As Integer
Dim messungeins As Integer
Dim messungletzte As Integer
Private Sub CommandButton1_Click()
ende = Cells(Rows.Count, 1).End(xlUp).Row 'in SpalteA wird das ende gesucht, die Variable ende bekommt diesen Wert
For i = 4 To ende 'diese Schleife fängt bei A4 an und geht bis zum wert von ende
If Cells(i, 1).Value = Cells(1, 4) Then 'wenn der Text in der Zelle i,1 gleich dem Text von feld1 ist, und
If Cells(i, 2).Value = Cells(2, 4) Then 'wenn der Text in der Zelle i,2 gleich dem Text von feld2 ist und
If Cells(i, 3).Value = Cells(3, 4) Then 'wenn der Text in der Zelle i,3 gleich dem Text von feld3 ist dann
messungeins = i 'Variable messungeins bekommt den wert der zelle /erste Messung
End If
End If
End If
Next i
For i = ende To 4 Step -1 'diese Schleife fängt am ende an und geht bis zur ZelleA4
If Cells(i, 1).Value = Cells(1, 4) Then 'wenn der Text in der Zelle i,1 gleich dem Text von feld1 ist, und
If Cells(i, 2).Value = Cells(2, 4) Then 'wenn der Text in der Zelle i,2 gleich dem Text von feld2 ist und
If Cells(i, 3).Value = Cells(3, 4) Then 'wenn der Text in der Zelle i,3 gleich dem Text von feld3 ist dann
messungletzte = i 'Variable messungletzte bekommt den wert der zelle /letzte Messung
End If
End If
End If
Next i
Cells(1, 1) = messungeins
Cells(2, 1) = messungletzte
Cells(3, 1) = ende
End Sub
Was ich nicht verstehe, messungeins hat den Wert der letzten gefundenen Zelle, und messunletzte hat den Wert der ersten gefundenen Zelle.
Ich hatte gedacht, das es genau umgekehrt ist.
Kann mir das jemand erklären?
Mit freundlichen Grüssen Frank
Anzeige