Suche nach ID und Namen
14.07.2014 11:42:06
Knoof
Ich habe ein Suchfeld in dem man eine ID eingeben kann und durch den Suchen Button wird diese ID gesucht.
Ist es möglich das gleiche Feld für eine Namenssuche zu verwenden?
Sagen wir der Benutzer kennt die ID nicht, gibt den Nachnamen ein und klickt auf suche, ist das möglich? Habe es bisher noch nicht für beides hinbekommen , nur für die ID.
Private Sub cmdsuchen_Click()
Dim x As Integer
If txtsuche = "" Then
MsgBox ("Bitte füllen Sie das Suchfeld!")
Else
Z = ActiveSheet.UsedRange.Rows.Count
temp = 0
x = txtsuche
For I = 3 To Z
If Cells(I, 1) = x Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
zeile = I
Rows(zeile).Select
MsgBox ("Die Nummer wurde gefunden!")
End Sub