makro abbrechen
08.07.2005 08:37:39
mehmet
ich haette 2fragen:
1. wie kann man bei workbook_open eine textbox0 leer bekommen und
2. wenn der textbox0 ist, bekomme ich eine fehlermeldung "code execution has been interrupted"
weg bekomme ich es mit der esc-taste
dann ist alles wieder ok
hier ein kurzer ausschnitt vom code:
Private Sub TextBox3_Change()
Dim Zelle As Range, Adresse As String
ListBox3.Clear
With Workbooks("Blanko0.xls").Sheets(3).Range("A2:G9999")
Set Zelle = .Find(What:=TextBox3.Value, LookAt:=xlPart)
If Not Zelle Is Nothing Then
Adresse = Zelle.Address
Do
ListBox3.AddItem Zelle.Value
ListBox3.List(ListBox3.ListCount - 1, 1) = Zelle.Row
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> Adresse 'HIER FEHLER
End If
End With
If Adresse <> "" Then Call sortieren3(0, ListBox3.ListCount - 1)
End Sub
kann man diese fehlermeldung unterdruecken?
dank und gruss
mehmet
Anzeige