Evening
Another bug in latest version I'm afraid. When moving between systems, 8/10 get a Run-time error '9' subscript out of range. Debug highlights in ED_Log_Process (Code):
Sub Positions_Status()
Panel_Menu_top.POS_Label.Caption = ""
Panel_Menu_top.POS_Info.Caption = ""
Panel_Menu_top.POS_Juris.Caption = ""
Panel_Menu_top.POS_Eco.Caption = ""
Panel_Menu_top.POS_Date.Caption = ""
Call Check_Marker
If Main_Panel = "TOP" Then
If ChangedStar = True Then
Panel_Menu_top.POS_Label.Caption = "CURRENT POSITION"
Panel_Menu_top.POS_Info.Caption = ActualStarName & " : NEAR PRIMARY STAR"
If ActualStarID <> Worksheets("Werte").Cells(12, 2).Value Then
Panel_Menu_top.DES_Distance.Caption = Worksheets("Data").Cells(76, 4).Text & " LY"
Else
Panel_Menu_top.DES_Distance.Caption = Ar_DBRegStations(ActualStationID, 11) & " LS" [This is the highlighted line]
If Worksheets("DB_Config").Cells(2, 8).Value = True And Worksheets("Navigation_Results").Cells(2, 2).Value <> "" Then
Call Remove_Marker
End If
End If
IntVal = IntVal + 1
If IntVal = 4 Then
ChangedStar = False
IntVal = 0
End If
If UnknownStar = True Then
Panel_Menu_top.POS_Eco.Caption = "UNKNOWN STAR SYSTEM"
Panel_Menu_top.DES_Distance.Caption = "UNKNOWN DISTANCE"
End If
Exit Sub
End If