Thema Datum  Von Nutzer Rating
Antwort
Rot NextFind Button
 23.04.2007 19:03:30 Horst
NotSolved
24.04.2007 09:29:03 Rasta
NotSolved
02.05.2007 15:49:36 Maddin
NotSolved

Ansicht des Beitrags:
Von:
Horst		 Datum:
23.04.2007 19:03:30		 Views:
2158		 Rating:
     
Antwort:
  Ja
Thema:
NextFind Button
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot NextFind Button
 23.04.2007 19:03:30 Horst
NotSolved
24.04.2007 09:29:03 Rasta
NotSolved
02.05.2007 15:49:36 Maddin
NotSolved