habe folgendes problem lese in uf, combobox datum ein und will es im tabellenblatt
in zelle einfügen funktioniert aber nicht hier eine beispiel datei
Die Datei https://www.herber.de/bbs/user/51582.xls wurde aus Datenschutzgründen gelöscht
gruß
ralf
Die Datei https://www.herber.de/bbs/user/51582.xls wurde aus Datenschutzgründen gelöscht
Private Sub cbAutoDatum_Click()
If cbAutoDatum.ListIndex > -1 Then
ActiveSheet.Range("a5") = CDate(cbAutoDatum.Text)
End If
End Sub
Private Sub UserForm_Activate()
Dim Bis As Byte
Bis = DateSerial(Year(Date), Month(Date) + 1, 0) - DateSerial(Year(Date), Month(Date), 0)
For lngrow = 1 To Bis
cbAutoDatum.AddItem DateSerial(Year(Date), Month(Date), lngrow)
Next
End Sub
Gruß K.Rola