CommandButton1_Click()
13.09.2016 12:09:26
Tom
mein CommandButton1_Click() funktioniert im Modul1 nicht.
Wenn ich den Code in "Objekte Tabelle1(Tabelle1)" einfüge, funktioniert das ganze.
Was mache ich falsch?
MfG Tom
Private Sub CommandButton1_Click()
Worksheets(1).Range("B11,E11,H11").Interior.Color = RGB(56, 56, 56)
For i = 1 To 4
If Worksheets(1).OLEObjects("ComboBox" & i).Object.ListIndex > 2 Then
Worksheets(1).OLEObjects("ComboBox" & i).Object.ListIndex = 1
End If
Next i
For i = 30 To 40
Worksheets(1).OLEObjects("ComboBox" & i).Object.ListIndex = 1
Next i
End Sub
Anzeige