SelQuality = val(.List(a9)

.ListIndex = a

Private Sub sevQuality_Click()
 
  Static guard As Integer
 
  On Error GoTo err_handler
 
  If guard = 0 Then
    guard = 1
    '.... Hier der "normale Code"
    guard = 0
  Else
    Debug.Print "sevQuality_Click --> Mehrfachaufruf"
  End If
 
  GoTo endproc
err_handler:
  guard = 0 '!!!
  Debug.Print Err.Description
  Debug.Assert False
 
endproc:
 
End Sub