If Stations_Mod = True And TCE_start = False Then
Worksheets("Data").Cells(63, 2).Value = ActualStarName
Me.Head.Caption = "EDIT REGISTERED STATION"
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "0;100"
Me.ComboBox1.RowSource = "DB_Stars!A2:B" & AzStars + 1
Me.ComboBox1.ListIndex = Worksheets("Data").Cells(64, 2).Value - 2
Me.ComboBox1.Locked = False
Worksheets("Werte").Cells(74, 5).Value = Worksheets("Werte").Cells(3, 2).Value
Me.TextBox2.Value = ActualStationName
Me.TextBox3.Value = Worksheets("Werte").Cells(80, 5).Value & " LIGHTSECONDS"
Me.TextBox4.Value = Worksheets("Werte").Cells(88, 5).Value
Me.TextBox4.Locked = False
Me.ComboBox2.ListIndex = Worksheets("Werte").Cells(76, 5).Value - 2
Me.ComboBox3.ListIndex = Worksheets("Werte").Cells(77, 5).Value - 2
If Worksheets("Werte").Cells(75, 5).Value <> 0 Then
Me.ComboBox4.ListIndex = Worksheets("Werte").Cells(75, 5).Value - 2
Else
Me.ComboBox4.ListIndex = -1
End If
Me.CheckBox1.Value = Worksheets("Werte").Cells(84, 5).Value
Me.CheckBox2.Value = Worksheets("Werte").Cells(85, 5).Value
Me.CheckBox3.Value = Worksheets("Werte").Cells(79, 5).Value
Me.CheckBox4.Value = Worksheets("Werte").Cells(86, 5).Value
Me.CheckBox5.Value = Worksheets("Werte").Cells(78, 5).Value
Me.CheckBox6.Value = Worksheets("Werte").Cells(87, 5).Value
Worksheets("Werte").Cells(24, 2).Value = Worksheets("Werte").Cells(3, 2).Value
Worksheets("Werte").Cells(25, 2).Value = Me.TextBox2.Value
Worksheets("Werte").Cells(28, 2).Value = Worksheets("Werte").Cells(80, 5).Value
Worksheets("Werte").Cells(22, 5).Value = Worksheets("Werte").Cells(75, 5).Value
Worksheets("Werte").Cells(26, 2).Value = Me.ComboBox1.Column(1)
Worksheets("Werte").Cells(24, 8).Value = Me.ComboBox1.Column(0)
Worksheets("Werte").Cells(29, 2).Value = Me.ComboBox2.Column(0)
Worksheets("Werte").Cells(30, 2).Value = Me.ComboBox3.Column(0)
If Me.ComboBox4.ListIndex <> -1 Then
Worksheets("Werte").Cells(27, 2).Value = Me.ComboBox4.Column(0)
End If
If Me.CheckBox1.Value = True Then
Worksheets("Werte").Cells(22, 5).Value = 1
Else
Worksheets("Werte").Cells(22, 5).Value = 0
End If
If Me.CheckBox2.Value = True Then
Worksheets("Werte").Cells(23, 5).Value = 1
Else
Worksheets("Werte").Cells(23, 5).Value = 0
End If
If Me.CheckBox3.Value = True Then
Worksheets("Werte").Cells(29, 5).Value = 1
Else
Worksheets("Werte").Cells(29, 5).Value = 0
End If
If Me.CheckBox4.Value = True Then
Worksheets("Werte").Cells(28, 5).Value = 1
Else
Worksheets("Werte").Cells(28, 5).Value = 0
End If
If Me.CheckBox5.Value = True Then
Worksheets("Werte").Cells(22, 8).Value = 1
Else
Worksheets("Werte").Cells(22, 8).Value = 0
End If
If Me.CheckBox6.Value = True Then
Worksheets("Werte").Cells(30, 5).Value = 1
Else
Worksheets("Werte").Cells(30, 5).Value = 0
End If
Me.TextBox2.SetFocus
Saving = False
Me.TextBox4.TabStop = True
End If
If Stations_Reg = True And TCE_start = False And AzToReg <> 0 Then
Worksheets("Data").Cells(63, 2).Value = ActualStarName
Me.Head.Caption = "ADD UNREGISTERED STATION"
Me.ComboBox1.ColumnCount = 2
Me.ComboBox1.ColumnWidths = "0;100"
Me.ComboBox1.RowSource = "DB_Stars!A2:B" & AzStars + 1
Me.ComboBox1.ListIndex = Worksheets("Data").Cells(64, 2).Value - 2
Me.ComboBox1.Locked = True
Me.TextBox4.Value = ActualBodyID
Me.TextBox4.Locked = True
Worksheets("Werte").Cells(23, 8).Value = ActualBodyID
Worksheets("Werte").Cells(26, 2).Value = Me.ComboBox1.Column(1)
Worksheets("Werte").Cells(24, 8).Value = Me.ComboBox1.Column(0)
Me.Image.Picture = LoadPicture("")
Me.ComboBox5.RowSource = "To_Register!A2

" & AzToReg + 1
Me.ComboBox5.ListIndex = -1
Me.ComboBox5.Visible = True
End If