Office: (Office 2016) Hilfe! Loop ohne Ende ...

Sub FindeProd_Zeilen()
Dim c As Range
Dim firstAddress As String

With Worksheets("Terminverschiebungen").Columns(Spalte_Produktion)
Set c = .Find(UserForm.TextBox_Produktion.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Row
Do
Sheets("Terminverschiebungen").Cells(c.Row, Spalte_Anzahl_TV).Value = Anzahl
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub

Moin zusammen,

folgender Zusammenhang:

• Es soll geprüft werden, ob der Wert der UserBox bereits existiert. Existiert dieser Wert bereits, dann soll dieser Loop laufen. Und zwar soll er alle Werte in den Zeilen mit den doppelten Werte und der Spalte "Spalte_Anzahl_TV" (globale Variable) überschreiben mit einem neuen Wert (Anzahl). Der wurde vorher bereits um 1 erhöht.
• ABER: er findet immer nur den ersten Wert und überschreibt diesen immer und immer wieder, ohne Ende ohne Stop.Was mache ich verkehrt? Habe die Formel hierher: Range.Find-Methode (Excel) | Microsoft Docs und umgeschrieben. Aber wahrscheinlich falsch...

DANKE vorab!!!

 

:D ich habe es gerade selbst gelöst... Wenn ich schon mit einer Anzahl arbeite, kam ich auf die Idee, doch einfach mit einer for i = 1 to Anzahl zu arbeiten.... :D Zack, Problem gelöst.

 

Du hast zwar eine Lösung, aber hier trotzdem für dich und andere Ineressierte der prinzipielle Code, wie man es mit einer Loop-Schleife richtig löst:

Code:

Sub FindeProd_Zeilen()
    Dim c As Range
    Dim firstAddress As String
    Dim Anzahl As Long
    Anzahl = 10
    With Worksheets(1)
        Set c = .Columns(1).Find("A", LookIn:=xlValues)
        If Not c Is Nothing Then
            firstAddress = c.Address '<== beachte !!!
            Do
                .Cells(c.Row, 5).Value = Anzahl
                Set c = .FindNext(c)
            Loop While Not c.Address = firstAddress  '<== beachte !!!
        End If
    End With
End Sub

---

 

Klasse, vielen Dank. Ich sehe meinen Fehler.