ich habe ein Makro, mit dem ich alle Zellen eines Sheets durchsuchen kann. Dieses hat folgende Form:
Private Sub CommandButton1_Click()
Dim Such
Dim Zelle
Such = InputBox("Bitte geben Sie Ihren Suchbegriff ein", "Suche")
If Such = "" Then Exit Sub
If IsNumeric(Such) Then Such = Such * 1
' es werden alle Zellen untersucht
For Each Zelle In Cells
If Zelle.Value = Such Then
Zelle.Select
Exit Sub
End If
Next Zelle
End Sub
Das Makro funktioniert einwandfrei, allerdings habe ich mit folgenden Dingen ein Problem:
1. sobald mein Makro ein Ergebnis gefunden hat, bricht es ab. Leider sollte mein Makro manchmal auf eine andere Zelle springen. Also hier meine erste Frage- wie kann ich einen Button "Weiter Suchen" einbauen? So dass ich nach dem ersten Ergebnis mir auch noch andere Ergebnisse anschauen kann?
2. der Kasten, in dem ich meinen Suchbegriff eingebe verschwindet immer sobald ich die Suche gestartet habe. Wie kann ich es schaffen, dass der Kasten solange zu sehen bleibt, bis die Suche beendet ist. Dieses waere fuer mich sehr wichtig, da ja das gesamte Sheet durchsucht wird und ich auch mal den Vorgang abbrechen moechte und ich nicht immer auf die Escape Taste druecken moechte und dann automatisch VBA geoeffnet wird.
3. Ich moechte die Suche zusaetzlich von einem anderen Blatt aus starten koennen (die Suche sollte allerdings auf dem anderen Blatt stattfinden und sobald ein Ergebnis vorliegt sollte das zu durchsuchende Blatt geoeffnet werden)- wie kriege ich das hin?
Ich weiss, dass das sehr viele Fragen auf einmal sind aber umso mehr wuerde ich mich ueber Eure Hilfe freuen!!!! Sagt mir bitte auch, wenn Ihr glaubt, dass man mir mit meinem Problem nicht helfen kann!
Viele Gruesse,
Philip