'VII ein Durchmesserbereich,untoleriert mit einem Druckbreich
            Dim length_X, length_Y As Integer
 
            ElseIf INBo_Düse.Visible = False _
            And TB_DüsenTol.Visible = False _
            And InPU_Druck.Visible = False _
            Then
 
      g = SSP_QT_calcDP_RA(TB_DurchUd_Ra, TB_DurchOd_Ra, TB_UbDruck, _
        TB_ObDruck, ks, 0.1,
SchrittDruck) 'Aufruf der FUnktion 
 
          length_X = UBound(g, 1)
          length_Y = UBound(g, 2)
 
         ' MsgBox (length_X)
         ' MsgBox (length_Y)
          For j = 1 To length_Y
            For i = 1 To length_X
                    Range("B2")(UBound(g, 1) - LBound(g, 1)) = g(j, i)
 
 
 
 
            Next
 
        i = 1
         Next
 
            End If