Hello,
having really trouble to recreate your error. Okay, here i will show you my trying:
1. Flying into a star system, that TCE didnt have into its database (crosschecked with Cartography panel and Navigation).
2. Reaching the system, TCE displays the Star System Database panel, the name automatically entered.
3. Going to the galaxy map, checking the first reference SOL, paste the name into the the navigation search box, clicking then into the panel again, entering the distance, hitting enter to complete.
4. Clicking back to the search box, pasting WYRD into, clicking again into the panel, enterering the distance, hitting enter to complete.
5. Clicking back to the search box, pasting VEGA into, clicking again into the panel, enterering the distance, hitting enter to complete.
6. Clicking back to the search box, pasting LOGAD into, clicking again into the panel, enterering the distance, hitting enter to complete.
7. Now the SAVE button appeared, the State of Exploration Combobox is highlighted. Didnt touch the Star System Note box.
8. Pressing SAVE, panel is closing. Done.
Are you doing it the same way, or what differs? Thanks for helping me here.
differences :
1. I do not copy an paste de 4 system names, I type them in.
2. I do not press enter to complete !
You did ask me if I pressed enter in a previous post and I answered no. lol
It just didn't register with me that you wanted me to press enter lol
Sorry !
Still, TCE should not be that easy to crash !
I just did it your way, pressing enter for the 4 ref. and I still got an error, but not exactly the same :



Followed by error 9
Sub GetExploreData()
Dim SX As Double, SY As Double, SZ As Double, ZX As Double, ZY As Double, ZZ As Double, SID As Long, ZID As Long, z As Long, SZD As Double, ArDistance(1 To 50000) As Double
Dim ArExTemp As Variant, ArTemp As Variant, ArExploData As Variant, a As Long, Zeile As Long, lLZeile As Long, ArStars As Variant, x As Long
ReDim ArExTemp(1 To 100, 1 To 5), ArExploData(1 To 1000, 1 To 5)
ReDim ArTemp(1 To AzStars)
' Dim t As Double
' t = Timer
' MsgBox Timer - t & " sec", , "Makrolaufzeit"
x = 0
Worksheets("ExploreData").Range("A2:E1000001").ClearContents
Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1).ClearContents
Application.Calculation = xlCalculationManual
SID = ActualStarID
SX = Ar_DBStars(SID, 3)
SY = Ar_DBStars(SID, 4)
SZ = Ar_DBStars(SID, 5)
For z = 1 To AzStars
ZID = Ar_DBStars(z, 1) ' Ziel Stern
ZX = Ar_DBStars(ZID, 3)
ZY = Ar_DBStars(ZID, 4)
ZZ = Ar_DBStars(ZID, 5)
ArDistance(z) = Round(Sqr(WorksheetFunction.Power((SX - ZX), 2) + WorksheetFunction.Power((SY - ZY), 2) + WorksheetFunction.Power((SZ - ZZ), 2)) + 0.000001, 2)
If ArDistance(z) <= Jump_Limit Then
x = x + 1
ArExploData(x, 1) = Ar_DBStars(z, 1)
ArExploData(x, 2) = Ar_DBStars(z, 2)
ArExploData(x, 3) = ArDistance(z)
ArExploData(x, 4) = Ar_DBStars(z, 6)
ArExploData(x, 5) = Ar_DBStars(z, 7)
End If
Next z
' With Application.WorksheetFunction
' Worksheets("Navigation_Sort").Range("S2:S" & AzStars + 1) = .Transpose(ArDistance)
' End With
Application.Calculation = xlCalculationAutomatic
' ArTemp = Worksheets("Navigation_Sort").Range("K2:K" & AzStars + 1)
Worksheets("ExploreData").Range("A2:E" & x + 1) = ArExploData
Worksheets("ExploreData").Activate
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ExploreData").Sort.SortFields.Add Key:=Range( _
"C2:C100001"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("ExploreData").Sort
.SetRange Range("A1:E100001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
AzCarto = 0
Do While Worksheets("ExploreData").Cells(2 + AzCarto, 1).Value <> 0
AzCarto = AzCarto + 1
Loop
ArExTemp = Worksheets("ExploreData").Range("A2:E" & z + 1)
Worksheets("Exploration").Range("A2:E1001").ClearContents
Worksheets("Exploration").Range("A2:E" & AzCarto + 1) = ArExTemp
Ar_Carto = Worksheets("Exploration").Range("A2:E" & AzCarto + 1)
End Sub
Last edited: