Bei nachfolgendem Code, wenn ein Error eintritt, dann wird eine MsgBox geöffnet.
Diese läßt sich danach nicht mehr mit OK schliessen.Was mache ich hier bitte falsch?
Danke
Josef
Private Sub TextBox19_Change()
On Error GoTo WEITER
Dim gefunden As Range
Set gefunden = Workbooks("Barcode.xla").Worksheets("Tabelle2").Range("A:A").Find(TextBox19)
TextBox4 = gefunden.Offset(0, 1)
TextBox16 = gefunden.Offset(0, 3)
WEITER:
Unload UserForm1
MsgBox "Sie haben für diese Applikation keine Berechtigung."
'ActiveWorkbook.Close
End Sub