Hallo Zusammen,
das hier: If Tabelle1.OLEObjects("CommandButton" & a).Object.Caption = Date Then funktioniert nicht.
Aber das: If Tabelle1.OLEObjects("CommandButton" & a).Object.BackColor = &H80FF& Then funktioniert.
Bei .Caption bekomme ich keinen Wert beim debuggen angezeigt und die Bedingung wird, auch wenn sie wahr ist übersprungen. Wie müsste ich das sonst machen?
Und gleich noch ein Problem in diesem Zusammenhang, ich möchte die ComboBox1 füllen
If Tabelle1.OLEObjects("CommandButton" & a).Object.Caption = Date Then
With Etti.ComboBox1
.ColumnCount = 1
.ColumnHeads = False
.RowSource = Tabelle1.Cells(6 + a, 5) normal wird hier ja ein Bereich angegeben
.ColumnWidths = "4cm"
End With
Das funktioniert so natürlich nicht, wie muss ich in diesem Fall die ComboBox füllen?
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter