Public gintnh, gintnn, gintanzahlbt As Integer
Sub variablendeklaration()
gintanzahlbt = ufsystemeingabe.cbanzahlbt.Value
Public gdblNd(1 To gintanzahlbt) As Double
Public gdblNd(1 To gintanzahlbt) As Double
End Sub
Sub eingangswerte()
Dim inti As Integer
For inti = 1 To gintanzahlbt
If IsEmpty(Val(ufsystemeingabe("tbndbt" & CStr(inti)))) = 1 Then
gdblNd(inti) = 0
gdblQd(inti) = 0
Else
gdblNd(inti) = Val(ufsystemeingabe("tbndbt" & CStr(inti)))
gdblQd(inti) = Val(ufsystemeingabe("tbqdbt" & CStr(inti)))
End If
Cells(inti + 10, 1) = gdblNd(inti)
Cells(inti + 10, 2) = gdblQd(inti)
Next
end sub