Hallo Ihr,
vielleich kann mir wer von euch helfen ich komm einfach nicht weiter.
Ich habe eine suchroutine die funkt. auch klasse nur möchte ich jetzt noch einen Button einbauen wenn er mehr als einen Datensatz findet mit diesen Button zum weiterblättern und wenn er am schluss ist eine Msg box bring es ist kein Satz mehr vorhanden.
hier die Suchroutine:
Private Sub cmdFindData_Click()
Dim rngFound As Range
Dim m_SuchText As String
Beep
m_SuchText = Trim(InputBox(Chr(10) & "Welcher Text/Begriff soll in " _
& Chr(10) & Chr(10) & "der Liste herausgefiltert werden ? " _
& Chr(10) & Chr(10) & Chr(10), "Begriff aus der Liste herausfiltern"))
If Len(m_SuchText) < 1 Then
Beep
MsgBox "Keine Eingabe oder Abbruch", 48, myTitle
'End
End If
Set rngFound = Cells.Find(what:=m_SuchText, LookIn:=xlValues, Lookat:=xlPart)
If rngFound Is Nothing Then
MsgBox "SuchText: " & m_SuchText & " nicht gefunden.", vbInformation, myTitle
Else
g_lngAktZeile = rngFound.Row
Call LoadData
End If
End Sub
wär e lieb wenn wer helfen lönnte
Gruss Horst |