Objektvariable oder With Blockvariable n.festgeleg
02.03.2006 17:42:50
Josef
Unter UserForm_Initialize hab ich
TextBox19.Text = Application.UserName eingetragen.
hierdurch wird beim Öffnen der Userform in der Textbox19 der Username, welche in den Optionen von Excel unter Allgemein eingetragen ist, eingetragen.
Beim Starten wird mir der unter Betreff eingetragene Fehler angezeigt, wenn der UserName in der Textbox19 nicht in der SpalteA in der Tabelle2 gefunden wird.
Wird der Name gefunden, läuft alles korrekt ab.
Wie könnte ich bitte den Fehler so abfangen, dass
1.) der Fehler nicht angezeigt wird,
2.) die Userform geschlossen wird und
3.) die aktive Arbeitsmappe ohne speichern ebenfalls geschlossen wird?
Danke
Josef
Private Sub TextBox19_Change()
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)
End Sub
Anzeige