Please install this http://www.microsoft.com/en-us/download/details.aspx?id=23734, if you have the 1004 error. For the 13 error please give me a screenshot of TCE with the error and the code block when pressing debug. The Save message comes, when you encounter an error. TCE loads the TCE.mdb into it, so the workbook content changes every time, but you dont need to save the changes to TCE.
The Panel Control is only for positioning and zoom, all panels are locked.
That link is for Office 2007, since I have 2013 wouldn't this be better ?
https://www.microsoft.com/en-us/download/confirmation.aspx?id=39358
if so, here is the one for people running 2010:
http://www.microsoft.com/en-us/download/details.aspx?id=10910
I know Panel Control is only for positioning.
That is what I have said !
I can pop Commodities and Commodity for positioning
But they did not open for normal use !
Now, by manually copying all the commodities of one of the included station to my newly added station,
I was able to get the Database Commodities to open and even scan and update it's commodities.
but the Commodity window still doesn't want to open.
It seems to me all those errors have a lot to do with missing/empty data fields !
Everything works pretty good when accessing stations that have all the data already filled in.
If we could import .csv from EliteOcr it might solve a lot of problems !
I just got a new one by clicking the trade button
Error 380
Private Sub BTN_Trade_Click()
If Panel_Trade.Visible = False Then
If Panel_POS_Select.Visible = True Then
Worksheets("Werte").Cells(2, 2).Value = Worksheets("Werte").Cells(57, 3).Value
Worksheets("Werte").Cells(3, 2).Value = Worksheets("Werte").Cells(57, 2).Value
Worksheets("DB_Config").Cells(2, 1).Value = Worksheets("Werte").Cells(2, 2).Value
Worksheets("DB_Config").Cells(2, 2).Value = Worksheets("Werte").Cells(3, 2).Value
Call POS_Commodities
Panel_Trade.POS_Display
Panel_POS_Select.Hide
End If
If Panel_DES_Select.Visible = True Then
Worksheets("Werte").Cells(12, 2).Value = Worksheets("Werte").Cells(57, 3).Value
Worksheets("Werte").Cells(13, 2).Value = Worksheets("Werte").Cells(57, 2).Value
Worksheets("DB_Config").Cells(2, 5).Value = Worksheets("Werte").Cells(12, 2).Value
Worksheets("DB_Config").Cells(2, 6).Value = Worksheets("Werte").Cells(13, 2).Value
Panel_Trade.CB_Route.ListIndex = Worksheets("Werte").Cells(53, 5).Value - 1
Call DES_Commodities
Panel_Trade.DES_Display
Panel_DES_Select.Hide
End If
If Panel_Prices.Visible = True Then
Panel_Prices.Hide
Me.BTN_Commodity_Layer.BackColor = &H101010
Me.BTN_Commodity.ForeColor = &HFFFFFF
End If


There is also this minor display bug where the last digit of the date is not displayed in the new position window :
