Mit Zahlen aus Dropdownfeld der Combobox rechnen

ComboBox1.AddItem Worksheets("Basisdaten").Cells(6, i) & "   " & Worksheets("Basisdaten").Cells(51, i)

Private Sub CommandButton1_Click()
Dim frm As UserForm
Dim index As Long
Dim curSheet As Worksheet
Set curSheet = Worksheets(ActiveSheet.Name)
Set frm = Optimierungsfilialen
index = frm.ComboBoxOE1.ListIndex And frm.ComboBoxOE2.ListIndex
Application.ScreenUpdating = False
Sheets("Basisdaten").Activate
Rows("6:6").Select
Selection.Find(What:=index, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Worksheets("Basisdaten").Cells(8, ComboBoxOE1.ListIndex + 3).Select
Selection = "'(" & Worksheets("Basisdaten").Cells(6, ComboBoxOE1.ListIndex + 3) - 8000 _
& "," & Worksheets("Basisdaten").Cells(6, ComboBoxOE2.ListIndex + 3) - 8000 & ")"
curSheet.Select
Application.ScreenUpdating = True
End Sub