Ich möchte aus einer Listbox ein Datum auswählen können das nach anklicken in einer Textbox erscheint. Das Datum in der Listbox sollte nur bis zum aktuellen Datum (heute) gehen aber nur 30 Tage rückwärts.
Danke schon mal im voraus
Gruß
Markus
Ich möchte aus einer Listbox ein Datum auswählen können das nach anklicken in einer Textbox erscheint. Das Datum in der Listbox sollte nur bis zum aktuellen Datum (heute) gehen aber nur 30 Tage rückwärts.
Danke schon mal im voraus
Gruß
Markus
Nee mehrspaltig muß es nicht sein....!
Was gibt es für eine andere Alternative.
Markus
versuch's mal so:
Private Sub ListBox1_Click()
Me.TextBox1 = Me.ListBox1
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 0 To 30
Me.ListBox1.AddItem Date - i
Next i
End Sub
Gruß
Bertram
so solte es gehen (ich habe eine ComboBox anstelle einer Listbox genommen - passt besser...):
Gruß
Mike
Vielen Dank
Gruß Markus