Excelsuche mit mehreren Ergebnissen
26.10.2022 15:41:51
Ronald
Ich habe einen Beispielcode von hier
https://www.herber.de/forum/archiv/804to808/807985_mehrere_Ergebnisse_suchen.html
Dim ErsterSuchbegriff
strSuchString = txtKundennummer_Kd5.Text
With Worksheets("SVF_offen").Range("E17:E3500")
Set rngCell = .Find(2, LookIn:=xlValues)
If Not rngCell Is Nothing Then
Worksheets("SVF_offen").Range("BE" & ActiveCell.Row).Value = "ja"
ErsterSuchbegriff = rngCell.Address
Do
rngCell.Value = 5
Set rngCell = .FindNect(c)
Loop While Not rngCell Is Nothing And rngCell.Address ErsterSuchbegriff
End If
End With
1. Welchen Datentyp hat die Variable ErsterSuchbegriff (Adresse)?
2. Set rngCell = .Find(2, LookIn... was macht die 2. Anzahl möglicher Ergebnisse wirds sicher nicht sein.
3. rngCell.Value = 5... was macht die 5? Ist das die Anzahl Suchdurchläufe? Sollte da nicht ein kompletter Durchgang reichen?
4. Sehe ich das richtig, daß an diese Stelle Worksheets("SVF_offen")... mein eigener Code kommt, was Excel jeweils machen soll, wenn ein Suchergebnis gefunden wird?
5. Wäre der Code soweit richtig oder hat sich irgendwo ein Fehler eingeschlichen? Getestet habe ich ihn bisher noch nicht.
Danke im Voraus.
Gruß Ronald