Private Sub fa_Gruppenx_ColumnClick(ByVal nCol As Long, Button As Integer)
 
      With fa_Gruppenx
 
         DragMannschaft = .Columns(nCol).Caption
         old_Row = -1
         old_Col = -1
 
         DragStartLB = "fa_Gruppen"
         DragSpielKlasse = T_Spielklassen_Kürzel_x
 
         .Drag
      End With
 
End Sub