Option Explicit
Public fTipp(44, 1) As Long
Public fSchein(11, 1) As Long
 
Public Sub Datenfelder_füllen()
Dim iLeft As Integer
Dim iTop As Integer
Dim x As Integer
'--- Array für Tippkästchen mit Positionswerten füllen
  iTop = mmToTwips(270) / 7   '27 mm = 270 Zentel
  iLeft = mmToTwips(190) / 5  '19 mm =190 Zentel
  Erase fTipp 'Array Tippfeld löschen
  For x = 0 To 44
    fTipp(x, 0) = Fix(x / 6) * iTop
    fTipp(x, 1) = (x Mod 6) * iLeft
    'Debug.Print TwipsToMillimeter(fTipp(x, 0)), TwipsToMillimeter(fTipp(x, 1))
  Next x
'--- Array für Spielschein mit Positionswerten füllen
  iTop = mmToTwips(310)
  iLeft = mmToTwips(1140) / 5
  Erase fSchein 'Array Spielschein löschen
  For x = 0 To 11
    fSchein(x, 0) = Fix(x Mod 2) * iTop
    fSchein(x, 1) = (x Mod 6) * iLeft
    'Debug.Print TwipsToMillimeter(fSchein(x, 0)), TwipsToMillimeter(fSchein(x, 
    ' 1))
  Next x
End Sub
 
Public Function mmToTwips(ByVal Zehntel As Long) As Long
Dim vItem As Variant
Dim dTmp As Double
    vItem = Zehntel / 100
    dTmp = 1440 * vItem
    dTmp = dTmp / 2.54
    If dTmp >= 0 And dTmp <= 32767 Then
      mmToTwips = dTmp
    Else
      mmToTwips = 0
    End If
End Function
Public Function TwipsToMillimeter(ByVal nTwips As Long) As Long
Dim vItem As Variant
Dim dTmp As Double
    vItem = nTwips * 100
    dTmp = vItem / 1440
    dTmp = dTmp * 2.54
    dTmp = CInt(dTmp)
    If dTmp >= 0 And dTmp <= 32767 Then
      TwipsToMillimeter = dTmp
    Else
      TwipsToMillimeter = 0
    End If
End Function