Schleife - bei Fund nicht abbrechen
15.02.2021 17:33:54
Fred
Hallo Excel,- VBA Profis,
ich habe vor längerer Zeit ein Makro hier im Forum kopiert und mit bescheidenen Kenntnissen an meinen Tabellenaufbau angepasst. Das Makro vergleicht / sucht in Blätter "BasisNeu" / "Wahl1" in entsprechenden Bereichen und trägt ggf. Werte in "Wahl1" ein. Bis her alles OK.
Nun ist es allerdings so, dass wenn in "Wahl1" das Mako "fündig" geworden ist und Einträge gesetzt hat, die nächste Zeile in Blatt ""BasisNeu" "abgearbeitet" wird.
Ich möchte allerdings, das wenn in Sheet "Wahl1" fündig geworden ist, bis zum ende der Liste in Blatt "Wahl1" weiter gesucht wird,- da es evt noch weitere "Treffer" geben kann.
Das Makro;
Sub suchenErgaenzen()
Dim ArZiel, ArQuelle, rngZiel As Range, n&, c&
With Sheets("Wahl1")
Set rngZiel = .Range("A14", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 19)
End With
ArZiel = rngZiel.Value2
With Sheets("BasisNeu")
ArQuelle = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 29).Value2
End With
For n = LBound(ArQuelle) To UBound(ArQuelle)
For c = LBound(ArZiel) To UBound(ArZiel)
If ArZiel(c, 3) = ArQuelle(n, 3) Then
If ArZiel(c, 6) = ArQuelle(n, 6) Then
ArZiel(c, 8) = ArQuelle(n, 8)
ArZiel(c, 9) = ArQuelle(n, 9)
ArZiel(c, 10) = ArQuelle(n, 10)
ArZiel(c, 11) = ArQuelle(n, 11)
ArZiel(c, 12) = ArQuelle(n, 24)
ArZiel(c, 13) = ArQuelle(n, 25)
ArZiel(c, 14) = ArQuelle(n, 26)
ArZiel(c, 15) = ArQuelle(n, 27)
ArZiel(c, 16) = ArQuelle(n, 28)
ArZiel(c, 17) = ArQuelle(n, 29)
Exit For
End If
End If
Next
Next
rngZiel.Value = ArZiel
End Sub
Wie wird das Makro geändert, so das in "Wahl1" bis zum letzten Eintrag gesucht wird?
Gruss
Fred