ich habe hier eine Datei wo ich in ConboBoxen das Datum eingebe. Was muß ich im Code ändern das das letzte datum in der Combobox wieder angezeigt wird?
nfg Peter
Private Sub CommandButton1_Click()
With Worksheets("Tabelle1")
.Cells(1, 21) = CDate(ComboBox1 & "." & ComboBox2 & "." & ComboBox3)
End With
Me.Hide
UserForm1.Show
'Range("T1").Select
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
With ComboBox1
For i = 1 To 31
.AddItem i
Next i
End With
With ComboBox2
For i = 1 To 12
.AddItem i
Next i
End With
With ComboBox3
For i = 1904 To Year(Date)
.AddItem i
Next i
End With
End Sub