Office: Excel VBA Exit aus der Schleife verhindern

Hallo, ich denke, ich habe ein tatsächlich einfaches Problem. Komme aber nicht auf die Lösung. In dieser Schleife x bis 507 wird eine Funktion aufgerufen, die in einer anderen Liste einen Namen sucht. Einmal wird die Funktion aufgerufen und x hat sofort den Wert 508. Ob mir jemand sagen könnte, wie VBA dazu bewegt werden kann, diesen Wert beim aktuellen zu belassen und nur auf x = x + 1 zu reagieren. Ich wäre wirklich dankbar.

Sub AusgeschiedeneSpielerMarkieren()
Dim x As Integer
Dim Suchname As String
Dim Feldname As String

For x = 4 To 507
Suchname = Cells(x, 2).Value 'was wir suchen wollen, wird festgelegt

If NameInMitgliederGefunden(x, Suchname) = 0 Then
Feldname = CStr(x)
Feldname = "C" + Feldname
Range(Feldname).Interior.Color = RGB(215, 234, 45)
End If

Next x
'MsgBox (x) 'hier wird nach der ersten Abfrage das Ende angezeigt
Range("A1").Select
End Sub

______________________________________________________________
Function NameInMitgliederGefunden(ii As Integer, Name As String) As Integer
NameInMitgliederGefunden = 0
For ii = 4 To 507
If Cells(ii, 15).Value = Name Then
NameInMitgliederGefunden = 1
ii = 507
End If
Next ii
End Function

Deaktiviere ich diese Schleife, läuft alles. Aber ich will ja die ganze Liste durchsuchen. Und der Zähler hat ja mit der ersten Schleife gar nichts zu tun.

 

Hallo,
Wenn Du kein ByVal schreibst, übergibst Du einen Verweis auf X an die Funktion NameInMitgliederGefunden. (ByRef ist der Standard)
Auch wenn Du die Variable dort ii nennst, ist es doch die gleiche Speicherstelle.

Soll ii unabhängig von x sein musst Du ein ByVal davor schreiben:

Code:

Function NameInMitgliederGefunden(ByVal ii As Integer, Name As String) As Integer

 

weiterhin überschreibst du dir "ii" mit 4 somit hat der übergebene Wert von ii überhaupt keinen Einfluss.
Function NameInMitgliederGefunden(ii As Integer, Name As String) As Integer
For ii = 4 To 507

um eine for-Schleife abzubrechen, schreibt man "exit for". ii = 507 kannst du da weglassen. Es führt nämlich zu dem von dir unerklärlichen Ergebnis. Die for-Schleife zählt noch einmal hoch und ii = 508 ist größer als 507. Schleife wird beendet.

 

update
du könntest auch nur dieses Konstrukt versuchen
Sub AusgeschiedeneSpielerMarkieren()
Dim x As Long, y As Long
Dim Suchname As String

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For x = 4 To 507

Suchname = Cells(x, 2).Value 'was wir suchen wollen, wird festgelegt

For y = 4 To 507
If Cells(y, 15).Value = Suchname Then
Range("C" & y).Interior.Color = RGB(215, 234, 45)
Exit For
End If
Next y

Next x
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

MsgBox "Suchlauf beendet" 'hier wird nach der ersten Abfrage das Ende angezeigt
Range("A1").Select
End Sub

 

@ralf_b: Hatte mir auch überlegt weitere Punkte aufzulisten. Der Code macht in vielen Bereichen wenig Sinn.
Einen Range-Bezeichner so aufzubauen, wenn man .Cells(row,col) offensichtlich kennt.
Rückgabewert der Funktion als Integer, wenn sie nur Wahr oder Falsch zurückgibt.
usw.

Aber wir haben alle mal angefangen und haben im lauf der Zeit aus Fehlern gelernt.

 

Deshalb habe ich auch versucht verständlich zu erklären was ich festgestellt habe. Und ich weis wie übel es ist wenn man mangels Kenntnissen versucht aus diesem Objektdschungel was Brauchbares heraus zu bekommen. Mittlerweile geht's bei mir bissel besser.

 

Vielen Dank für die Hilfen. Ich setze das gern um. Und: tatsächlich hab ich nicht gesehen (die Bäume vor dem Wald), dass der Übergabeparameter ii mit [ for ii = 4 to 507 ] obsolet ist. Ich schüttele gerade meinen eigenen Kopf, Dank nochmals.