verrücke Reaktion des Makros
05.10.2017 10:13:55
Hans-Jürgen
ich habe etwas gant Verrücktes, was ich mir nicht erklären kann:
In einer Sub, in der es um die Fehlerbehandlung geht, sieht es wie folgt aus: (Cases gekürzt dargestellt)
Sub Fehler_abfangen(SERRR, BERRX, BERRY)
Dim t As String 'Fehlertext
Select Case Err.Number
Case 1001:
t = "Dies ist ein Pflichtfeld"
End Select
If BERRY = 0 Then
BERRY = 1
End If
Application.Goto Reference:=Worksheets(SERRR).Cells(BERRY, BERRX)
MsgBox t
FSTOP = True
End Sub
Die übergebenen SERRR, BERRX und BERRY kennenzeichnen den Reiter, die Zeile und die Spalte, in denen der Fehler aufgetreten ist.
Ich will nun, so wie es eigentlich da steht, dass das System ERST auf die Seite mit dem Fehler springt und DANN den Text ausgibt. Es passiert aber genau umgekehrt: Erst kommt die Msgbox, und sobald man "OK" gedrückt hat, springt er auf die Seite.
Wer weiß, woran das liegen könnte?
Vielen Dank
Hans-Jürgen