AW: Makro unterbrechen / Userform
29.09.2003 11:00:33
Carsten
Hallo Michael,
ich habe die Suche schon gewälzt, leider vergeblich. Dieser Beitrag ist auch schon der dritte Versuche, weil zu den ersten keine Antworten kamen.
Damit Du genau weißt, worum es geht:
Ich habe eine Userform die der Excel-Suchmaske entspricht. Ich habe jedoch zusätzlich eine Checkbox um über alle enthaltenen Tabellenblätter zu suchen.
Ich habe dann zunächst nach einem Code gesucht, der eben diese Suche über alle Blätter durchführt und diesen so gut wie möglich angepaßt. Leider wird bei den Codes die ich gefunden habe, nach einer Fundstelle eine MsgBox aufgerufen. Genau das will ich nicht.
Über Userform1.show läuft das Makro jedoch durch ohne anzuhalten. Auch, wenn ich ShowModal auf False setze.
Falls Du eine Idee hast...hier der Code wie er bisher aussieht:
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
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ComboBox2.AddItem "In Zeilen"
ComboBox2.AddItem "In Spalten"
ComboBox2.ListIndex = 0
ComboBox1.AddItem "Formeln"
ComboBox1.AddItem "Werte"
ComboBox1.AddItem "Kommentare"
ComboBox1.ListIndex = 0
End Sub
Gruß
Carsten