Public
Sub
aaa()
If
OptionButton6 =
True
Then
If
K_Comparison.ComboBox3 =
""
Then
MsgBox (
"not valid!"
)
Exit
Sub
Else
Range(
"F7:J7"
).NumberFormat =
"General"
Range(
"F6:J6"
).NumberFormat =
"General"
With
Sheets(
"Comparison"
)
.Cells(7, 4).Value = K_Comparison.ComboBox3
.Cells(7, 6).Value = K_Comparison.ComboBox4.Value
.Cells(7, 7).Value = K_Comparison.ComboBox5.Value
.Cells(7, 8).Value = K_Comparison.ComboBox6.Value
.Cells(7, 9).Value = K_Comparison.ComboBox7.Value
.Cells(7, 10).Value = K_Comparison.ComboBox8.Value
.Range(.Cells(6, 6), .Cells(6, 10)).FormulaR1C1 = _
"=IFERROR(IF(R7C=0,0,INDEX(Marktuebersicht!C1:C42,MATCH(R7C,Marktuebersicht!C3,0),R6C2)),0)"
End
With
End
If
End
If
End
Sub