AW: Prüfen ob alle Textboxen gefüllt
02.04.2014 13:13:19
ANNAnas
Also vom Prinzip her sollen beide Ereignisse miteinander verknüpft werden:
Private Sub TextBox27_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Hier wird die Suche in der Tabelle für den Schuss erstellt
If KeyCode = 13 Then
Dim liSuche As Integer, liMsg As Integer, liSuche1 As Integer
For liSuche = 0 To ListBox1.ListCount - 1
For liSuche1 = 0 To ListBox1.ColumnCount - 1
If InStr(1, ListBox1.Column(liSuche1, liSuche), TextBox27.Text) > 0 Then
ListBox1.ListIndex = liSuche
liMsg = MsgBox("Weitersuchen?", vbQuestion + vbYesNo)
If liMsg = vbNo Then Exit Sub
End If
Next
Next
End If
End Sub
Private Sub TextBox27_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim objtxt As Object
For Each objtxt In UserForm1.Controls
If TypeName(objtxt) = "TextBox" Then
If objtxt.Value = "" Then
MsgBox " Es wurden nicht alle Textfelder ausgefüllt.!", 48
Exit Sub
End If
End If
Next
End Sub
Das heißt, dass die Suche erst dann anläuft, sobald alle Textboxen gefüllt sind.
Habt ihr eine Idee wie ich das umsetzen kann?