Userform
23.03.2015 09:07:46
Florian
ich möchte über eine Userform Datensätze in einer Liste suchen und in einem weiteren Reiter ausegeben. Dazu habe ich mir etwas aus dem Netz zusammengebastelt.
Mein Problem: Wird ein Eintrag gefunden, poppt direkt über der Userform eine Msgbox auf.
Meine Frage: Wie kann ich die "Weiter"-Funktion von der Msgbox in die Userform integrieren?
Anbei mein Code.
Vielen Dank!
Gruß
Florian
______________________________________________
Private Sub Suchen_Click()
Dim WkSh As Worksheet
Dim iSpalte As Integer
Dim iIndex As Integer
Dim sSuchbegriff As String
Dim rZelle As Range
Dim sFundst As String
Dim bGefunden As Boolean
If Controls("TextBox1").Value "" Then
bGefunden = True
End If
If bGefunden = True Then
sSuchbegriff = Controls("TextBox1").Value
Else
MsgBox "Es wurde keine Eingabe getätigt.", _
48, " Hinweis für " & Application.UserName
TextBox1.SetFocus
Exit Sub
End If
Me.Weiter.Visible = bGefunden = True
Set WkSh = Worksheets("Datenbank")
With WkSh.Columns(1)
Set rZelle = .Find(sSuchbegriff, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
For iIndex = 2 To 3
Controls("TextBox" & iIndex).Value = WkSh.Cells(rZelle.Row, iIndex).Value
Next iIndex
'Hier muss auf der Bezug auf den Commandbutton "Weiter" geschaffen werden!?
If MsgBox(" Weitersuchen? ", vbYesNo, _
" Frage an " & Application.UserName, 100, 100) = vbNo Then
Exit Sub
Else
Set rZelle = .FindNext(rZelle)
If rZelle.Address = sFundst Then
MsgBox "Es gibt keine weiteren zum Suchbegiff passenden Einträge.", _
48, " Hinweis für " & Application.UserName
End If
End If
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "der Suchbegriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName
End If
End With
End Sub