Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdMark_Click()
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Cells(.List(i, 1), 10) = "Z"
Next
End With
End Sub
Private Sub cmdSearch_Click()
Dim rng As Range
Dim sFirst As String
Dim i As Integer
ListBox1.Clear
Set rng = Workbooks("Daten.xls").Worksheets("Daten erfassung").Range("E:E").Find(What:=txtSearch, LookIn:=xlValues, _
LookAt:=xlPart, After:=Range("E65536"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox1.AddItem rng, i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Do
Set rng = Workbooks("Daten.xls").Worksheets("Daten erfassung").Range("E:E").FindNext(After:=rng)
If rng.Address = sFirst Then Exit Do
ListBox1.AddItem rng, i
ListBox1.List(i, 1) = rng.Row
i = i + 1
Loop
Else
ListBox1.AddItem "Nichts gefunden!"
End If
End Sub
Private Sub txtSearch_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then cmdSearch_Click
End Sub