On Error
05.03.2022 20:54:16
oraculix
In meiner Userform habe ich einen VBA Code der sich manchmal nicht oft aber doch aufhängt (Excel muss Abgebrochen werden)
Frage:
Wie kann ich einen Absturz verhindern ?
Welcher Code ist besser On Error Resume next oder On Error Resume Exit Sub? Oder gibt es noch was besseres?
Bin für jeden Vorschlag dankbar den ich noch in den untenstehenden Code einfügen kann.
'bei Return Makro ausführen
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim TB As Worksheet, rng As Range, C As Range, TTXT As String, firstAddress As String
Dim Anz As Integer, JaNein As Variant, Arr, i As Integer
Set TB = Sheets("Schauspieler")
Set rng = TB.Range("A1:IZ300")
With TextBox1
If .Text "" Then
Set C = rng.Find(.Text, lookat:=xlPart)
If Not C Is Nothing Then
firstAddress = C.Address
Do
Set C = rng.FindNext(C)
' Fundstellen sammeln
TTXT = TTXT & "; " & C.Address(0, 0)
Anz = Anz + 1
Loop While Not C Is Nothing And C.Address firstAddress
Arr = Split(TTXT, "; ") 'Array zum Anspringen
For i = 1 To Anz
JaNein = MsgBox(Anz & "x gefunden in:" & vbLf & TTXT & vbLf & vbLf _
, vbYesNo, "Zum Treffer " & i & " / " & Anz & " hinspringen? J / N")
If JaNein = vbYes Then
Application.Goto Range(Arr(i))
Else
Exit For
End If
Next
Else
MsgBox "Kein Fund"
End If
End If
End With
End If
End Sub
GrußOraculix