Hallo Leute,
ich habe versucht meine commandbutton mit if else zu verbinden, aber leider ohne Erolfg.
der Sub sieht wie folgt aus:
Private Sub CommandButton1_Click()
Range("B14").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C32").Select
ActiveCell.FormulaR1C1 = "24"
Range("D32").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E32").Select
ActiveCell.FormulaR1C1 = "39.99"
End Sub
'
Private Sub CommandButton2_Click()
Range("B15").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C33").Select
ActiveCell.FormulaR1C1 = "24"
Range("D33").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E33").Select
ActiveCell.FormulaR1C1 = "39.99"
End Sub
'
Private Sub CommandButton3_Click()
Range("B16").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C34").Select
ActiveCell.FormulaR1C1 = "24"
Range("D34").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E34").Select
ActiveCell.FormulaR1C1 = "39.99"
End Sub
'
Private Sub CommandButton4_Click()
Range("B17").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C35").Select
ActiveCell.FormulaR1C1 = "24"
Range("D35").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E35").Select
ActiveCell.FormulaR1C1 = "39.99"
End Sub
IF else sah so aus
Private Sub MultiPage1_Enter()
'...
If O2_A50_Free_M-kombi.CommandButton1 Then '(hier fehlt mir die Eigenschaft)
Range("B14").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C32").Select
ActiveCell.FormulaR1C1 = "24"
Range("D32").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E32").Select
ActiveCell.FormulaR1C1 = "39.99"
ElseIf O2_A50_Free_M-kombi.CommandButton2 Then '...
Range("B15").Value = "Galaxy A50 (24)"
Unload O2_A50_Free_M_kombi
Range("C33").Select
ActiveCell.FormulaR1C1 = "24"
Range("D33").Select
ActiveCell.FormulaR1C1 = "12.49"
Range("E33").Select
ActiveCell.FormulaR1C1 = "39.99"
End If
kann mir jemand helfen?
|