Private Sub txtText1_LostFocus()
    If aktuelle_funktion = "abfrage1" Or aktuelle_funktion = "abfrage2" Then
        DoEvents
        Call abfragen
    End If
End Sub
 
Private Sub cmdButton_Click(Index As Integer)
 
Msgbox (“Reagiert”)
    Dim r As Variant
    Dim i As Variant
    Dim flag As Boolean
    If Index = 11 Then
    'Ende Button
        If Left$(aktuelle_funktion, 8) = "abfragen" Then
            Call auswahl
        End If