SetFocus schlägt fehl
29.10.2015 11:08:03
PQuest:-)
ich nutze in eiunem userform eine Combobox. Trage ich dort einen Wert ein, wird überprüft, ob er existiert. Wenn ja, dannn erscheint eine Meldung.
Wird diese mit Ja beantwortet, soll das Formular mit den entsprechenden Daten aus einer Tabelle befüllt werden.
Bei Nein soll die Combobox geleert werden UND den Focus erhalten. Hier genau liegt das Problem. Der Focus landet immer auf dem nächsten Feld in der Reihenfolge.
Eine weitere Kuriosität ist die, dass, seit ich diese Sub eingefügt habe, Excel ab und zu abstürzt.
Private Sub cbPatID_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Checking for duplicates
Dim rngPatID
Dim ws As Worksheet
Dim LoPCol As Long, LoPRow As Long, LoPLastRow As Long
Set ws = Worksheets("ListOfPatients")
With ws
LoPCol = 1
LoPRow = 8
LoPLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngPatID = .Range(.Cells(LoPRow, LoPCol), .Cells(LoPLastRow, LoPCol)).Find(cbPatID.Text) _
If Not rngPatID Is Nothing Then
If MsgBox("This Patient ID already exist! Do you want to edit this patients data?", _
vbYesNo) = vbYes Then
'Formular mit Werten öffnen
Else
Me.Controls("cbPatID").Text = vbNullString
Me.Controls("cbPatID").SetFocus
End If
End If
End With
End Sub
Mit Bitte um Unterstützung,
PQuest:-)