Schleifenfehler bitte um Hilfe
Frank
ich habe eine Suchspalte, die ich nach einem Wert (gr001) durchsuche. Solange dieser Wert untereinander steht, bekomme ich meine Ergebnise. Sobald ein anderer Wert (gr002) darin steht, bricht die Schleife ab, und gibt mir die anderen Ergebnise nicht mehr.
Beispiel:
445454 GR001
444 GR001
55 GR001
5 GR001
6 GR001
66666 GR002
In dem folgenden Source Code bricht er bei GR002 ab.
Beginn = 1
Bis = 20
ActiveSheet.Cells(vergleichw_zeile, vergleichw_spalte).Select
Do While Beginn kleiner gleich Bis
For i = 1 To 1
If ActiveSheet.Cells(vergleichw_zeile, vergleichw_spalte) = ActiveSheet.Cells(nummer_zeile, 4) Then
ActiveSheet.Cells(vergleich_zeile, 3).Select
Selection.Copy
ActiveSheet.Cells(ergebnis_zeile, 7).Select
ActiveSheet.Paste
ergebnis_zeile = ergebnis_zeile + 1
vergleich_zeile = vergleich_zeile + 1
nummer_zeile = nummer_zeile + 1
End If
Next i
Beginn = Beginn + 1