Eventure,
Found an error 13 for you, type mismatch, code stopped on the pointer shown.
As a result of selecting trade, followed by commodity search, selecting Palladium, resulting in listing 6 or so buying stations.
Selecting the first one in the list, and waiting for the destination system to be displayed, did not show this system, but poped up an error window with the error listed.
Here's the screenshot:
View attachment 22128
Failed in this VBA Code:
Private Sub Show_Goods_Click()
If Me.Show_Goods.Column(1, Me.Show_Goods.ListIndex) <> "" Then
Worksheets("Werte").Cells(55, 2).Value = Me.Show_Goods.Column(1, Me.Show_Goods.ListIndex)
If Worksheets("Werte").Cells(55, 2).Value <> Worksheets("Werte").Cells(15, 2).Value 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
Call DES_Commodities
Call DES_Display
Call Trade_Advisor
Call Check_Size
If Main_Panel = "TOP" Then
--> Panel_Menu_top.DES_Info.Caption = Worksheets("Werte").Cells(14, 2).Value & " : " & Worksheets("Werte").Cells(15, 2).Value
If Worksheets("Werte").Cells(14, 2).Value = Worksheets("Werte").Cells(4, 2).Value Then
Panel_Menu_top.DES_Distance.Caption = Worksheets("Werte").Cells(18, 5).Text & " LS"
Else
Panel_Menu_top.DES_Distance.Caption = Worksheets("Werte").Cells(16, 5).Value & " LY"
End If
Panel_Menu_top.DES_Juris.Caption = Worksheets("Werte").Cells(16, 2).Value & " SPACE"
Panel_Menu_top.DES_Eco.Caption = Worksheets("Werte").Cells(17, 2).Value
Panel_Menu_top.DES_Label.Caption = "SELECTED DESTINATION"
Else
Hope this is enough info for you, you have the database you fixed earlier it's almost identical.