Suchfunktion

Private Sub Ausführen_Click()
Dim Z As Long
For Z = 1 To x ' steht für den letzten Eintrag in der Spalte
If Cells(Z, SuchSpalte) = Me.TextBox1.Value Then
Cells(Z, SuchSpalte).Select
Exit Sub
End If
Next Z
End Sub

Private Sub nach_Datum_Click()
SuchSpalte = 11
End Sub

Private Sub nach_Kanal_Click()
SuchSpalte = 9
End Sub

Private Sub nach_Name_Click()
SuchSpalte = 3
End Sub

Private Sub nach_Nummer_Click()
SuchSpalte = 1
End Sub

Private Sub nach_QTH_Click()
SuchSpalte = 4
End Sub

Private Sub nach_Skip_Click()
SuchSpalte = 2
End Sub

Private Sub TextBox1_Change()
Public SuchSpalt As Integer
End Sub

Private Sub UserForm_Click()
SuchSpalte = x
End Sub