VBA für index-vergleich

[HH-Joh.]

Hallo Helmut,

danke für deine Unterstützung. Jetzt hab ich es verstanden.
Der Code klappt nun wie vorgesehen.

Gruß
Johanna

[HH-Joh.]

so geht es jetzt gut

Code: Alles auswählen

Sub KundenFinden()
Dim Suchzelle As String
Dim Kdno As String
Dim rngFound As Range
Dim firstAddress As Variant
Dim Frage As String

'Suchzelle = Worksheets("Kunden").Range("G3").Value
Frage = InputBox("Bitte geben Sie einen Wert ein", "Werte-Eingabe", , 200, 500)
MsgBox Frage

Suchzelle = Frage
 
With Worksheets("Kunden").Range("b2:b300")

Set rngFound = .Find(What:="*" & Suchzelle & "*", LookIn:=xlValues)
   
  If Not rngFound Is Nothing Then
    Do
     firstAddress = rngFound.Address
      Kdno = rngFound.Offset(, -1).Value
      Set rngFound = .FindNext(rngFound)
      MsgBox Kdno
     Loop While rngFound.Address <> firstAddress
     
      MsgBox "Suche abgeschlossen."
    Else
       MsgBox "Suche war ergebnislos."
  End If
  End With
End Sub

[HH-Joh.]

Hallo in die Runde,
der Code funktioniert gut, wenn der Suchbegriff nur einmal in der Liste vorkommt. Habe ich aber den Suchbegriff zweimal, so komme ich aus der Schleife nicht mehr raus. Die Suche fängt dann wieder von vorne an.
Habt ihr einen Denkanstoß für mich, wie ich den Code umschreiben kann, dass auch dieser (zwar seltene Fall) abgefedert werden kann.
Danke im voraus.

Johanna

[HKindler]

Hi,

überlege dir einmal ganz genau was wohl mit firstaddress gemeint sein könnte und wann du dir dann diese merken solltest...

[HH-Joh.]

Hallo Helmut, danke für den Tipp. So klappt es jetzt.

Code: Alles auswählen

Option Explicit
    Sub KundenFinden2()
    Dim Suchzelle As String
    Dim Kdno As String
    Dim rngFound As Range
    Dim firstAddress As Variant
    Dim Frage As String
    Dim Name As String

    'Suchzelle = Worksheets("Kunden").Range("G3").Value
    Frage = InputBox("Bitte geben Sie einen Wert ein", "Werte-Eingabe", , 200, 500)
    MsgBox Frage

    Suchzelle = Frage
     
    With Worksheets("Kunden").Range("b2:b300")

    Set rngFound = .Find(What:="*" & Suchzelle & "*", LookIn:=xlValues)
           'MsgBox rngFound.Address
           
      If Not rngFound Is Nothing Then
      firstAddress = rngFound.Address
        Do
             Name = rngFound
             MsgBox Name
             Kdno = rngFound.Offset(, -1).Value
            Set rngFound = .FindNext(rngFound)
            MsgBox Kdno
         Loop While rngFound.Address <> firstAddress
          MsgBox "Suche abgeschlossen."
        Else
           MsgBox "Suche war ergebnislos."
      End If
      End With
    End Sub