UserForm - letzter Versuch
07.10.2003 11:41:36
Carsten
Hallo zusammen,
ich habe diese Frage hier bereits mehrfach gestellt. Leider konnte mir bisher niemand helfen.
Vielleicht findet sich im letzten Versuch doch noch eine Lösung.
Ich habe eine Userform. Durch einen Klick auf einen Button wird eine Suchfunktion gestartet, je nach Einstellung nur im aktuellen Blatt oder aber über alle Tabellenblätter.
Den Code für diese Suchfunktion habe ich im Netz gefunden. Beim Original-Code wurde nach jeder Fundstelle eine MsgBox aufgerufen um nachzufragen ob die Suche fortgesetzt werden soll. Ich möchte jedoch nicht mit einer MsgBox arbeiten sondern die Ausführung des Codes anhalten bis erneut der Button in der UserForm gedrückt wird. Das ganze soll also genau wie die Excel-Suchfunktion funktionieren.
Leider schaffe ich es nicht, nach einer Fundstelle das Makro zu stoppen. Ich kann die UserForm auch nicht über .Show ansprechen, da sie zur Laufzeit nicht ausgeblendet ist.
Ich hoffe, Ihr versteht mein Problem und habt evtl. doch noch eine Lösung für mich.
Hier noch der derzeitige Code:
Option Explicit
Private Sub CommandButton1_Click()
Dim t As Worksheet, z As Range, SuchW As String, counter As Integer, ausgabe As String, knopf As Integer, erste As String, i As String
SuchW = TextBox1.Value
If SuchW = "" Then Exit Sub
For Each t In Worksheets
t.Activate
Set z = t.Cells.Find(SuchW)
If Not z Is Nothing Then
erste = z.Address
Do
z.Activate
UserForm1.Show
Set z = Cells.FindNext(after:=ActiveCell)
Loop Until erste = z.Address
End If
If UserForm1.CheckBox3 = Enabled Then Else Exit Sub
Next t
End Sub
Gruß
Carsten