ich möchte über eine Userform nach Kategorien suchen. Der Code funktioniert auch einwandfrei. Nun habe ich die Schaltfläche auf das Tabellenblatt 1 verschoben und die Daten, nach denen gesucht werden soll auf das Tabellenblatt 2 verschoben. Allerdings sucht er mir noch immer im Tabellenblatt 1, was ich nicht nachvollziehen kann. Weiß jemand woran das liegen könnte?
Private Sub CmdOK_Click()
Dim x As Long
Dim z As Integer
Dim temp As String
Dim i As Variant
Dim zieldatei As Variant
z = Sheets("Tabelle 2").UsedRange.Rows.Count
x = txtKategorien
temp = 0
For i = 2 To z
If Cells(i, 5) = x Then
temp = 5
Exit For
End If
Next
If temp = 5 Then
Unload Me
zeile = i
Userform2.Show
Else
MsgBox "nicht vorhanden!", vbExclamation
Kategorien = ""
End If
End Sub
Danke