Hi, just starting with 1.36beta.
1. Got an error and a crash when I tried keeping TCE.ini,
so I erased everything and started again with everything new, without problems.
2. Mouse switch between the game an TCE seem much improved !
3. Can't change the value for #of bodies in DATABASE - START SYSTEM
4. Added my first station, scanned the commodities and got an error when I clicked on save

(did it twice, with the same result)
Run-time error '9':
Subscript out of range
Can't execute code in break mode
Sub DES_Commodities()
Dim Station_ID_S As Long, Station_ID_Z As Long, ArExport As Variant, ArImport As Variant, b As Long, c As Long, lLZeile As Long
Station_ID_Z = Worksheets("Werte").Cells(13, 2).Value
ReDim ArExport(1 To AzGoods, 1 To 3) As Variant
ReDim ArImport(1 To AzGoods, 1 To 3) As Variant
For c = 3 To AzGoods + 2
DoEvents
If ArData_Buy(c, Station_ID_Z + 2) <> 0 And ArData_Buy(c, Station_ID_Z + 2) <> "" Then
ArExport(c - 2, 1) = ArData_Buy(c, 2)
ArExport(c - 2, 2) = ArData_Buy(c, Station_ID_Z + 2)
ArExport(c - 2, 3) = ArData_Buy(c, Station_ID_Z + 2) - ArData_Goods(c - 2, 3)
End If
If ArData_Sell(c, Station_ID_Z + 2) <> 0 And ArData_Sell(c, Station_ID_Z + 2) <> "" And ArData_Sell(c, Station_ID_Z + 2) - ArData_Goods(c - 2, 3) > 0 Then
ArImport(c - 2, 1) = ArData_Sell(c, 2)
ArImport(c - 2, 2) = ArData_Sell(c, Station_ID_Z + 2)
ArImport(c - 2, 3) = ArData_Sell(c, Station_ID_Z + 2) - ArData_Goods(c - 2, 3)
End If
Next c
Worksheets("DES_Export").Range("A2:C" & AzGoods + 1).ClearContents
Worksheets("DES_Export").Range("A2:C" & AzGoods + 1) = ArExport
Worksheets("DES_Export").Activate
ActiveWorkbook.Worksheets("DES_Export").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DES_Export").Sort.SortFields.Add Key:=Range( _
"C2:C1001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DES_Export").Sort
.SetRange Range("A1:C1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Worksheets("DES_Import").Range("A2:C" & AzGoods + 1).ClearContents
Worksheets("DES_Import").Range("A2:C" & AzGoods + 1) = ArImport
Worksheets("DES_Import").Activate
ActiveWorkbook.Worksheets("DES_Import").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DES_Import").Sort.SortFields.Add Key:=Range( _
"C2:C1001"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DES_Import").Sort
.SetRange Range("A1:C1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub