Schönen guten Tag,
ich habe das Problem, dass ich eine Suchfunktion für eine Kundendatentabelle erstellen möchte, mein Code jedoch nicht funktioniert!
Die Werte (Namen) nach denen gesucht werden soll stehen in der 5. Spalte.
Das Suchkriterium wird in eine Textbox in einer UserForm eingegeben und über einen Button soll dann nach dem Wert gesucht werden.
Ideal wäre natürlich wenn er auch nur nach anfangsbuchstaben sucht und diese dann markiert (auswählt).
Also der Code ist folgender:
Option Explicit
Dim i As Long
Dim str_Suchstring As String
Dim str_Zelleninhalt As String
Sub cmdsuchen_Click() 'Button'
str_Suchstring = txtsuchen.Value
If str_Suchstring = "" Then
Exit Sub
End If
i = 0
For i = 1 To 500
str_Zelleninhalt = Cells(i, 5)
If str_Suchstring = str_Zelleninhalt Then
Cells(i, 5).Select
Else
MsgBox ("Keine übereinstimmenden Daten gefunden")
End If
Next i
End Sub
Ich hoffe jemand kann mir einen Schubs in die richrige Richtung geben, damit der Code funktioniert!!
Vielen Dank schon mal im Voraus und gemütliche Feiertage!!
Mfg Christian |