Userform nach zwei Varianten suchen
28.11.2014 11:17:45
Katharina
ich möchte in meiner Userform die Möglichkeit haben nach dem Vornamen sowie dem Nachnamen zu suchen.
Bisher habe ich nur nach dem Vornamen gesucht und es hat einwandfrei funktioniert.
Versuche ich nun noch den Nachnamen dazu zunehmen, bekomme ich als eine Fehlermeldung "Next ohne for".
Nehme ich next raus, bekomme ich die Meldung "IF ohne END IF"
Hat da jemand eine Idee, was falsch sein könnte?
Was ich in meinen vorherigen Code eingefügt habe, habe ich fett markiert
Private Sub CmdOK_Click()
Dim x As Variant
Dim z As Integer
Dim temp As String
Dim i As Variant
Dim zieldatei As Variant
z = Sheets("Tabelle2").UsedRange.Rows.Count
x = TxtVorname and TxtNachname
temp = 0
For i = 2 To z
If Sheets("Tabelle2").Cells(i, 5) = x Then
temp = 5
If Sheets("Tabelle2").Cells(i, 3) = x Then
temp = 3
Exit For
End If
Next
If temp = 5 Or 3 Then
Unload Me
zeile = i
Userform2.Show
Else
TxtVorname = ""
txtNachname = ""
End If
End Sub
Anzeige