indlæsning i en userform

Lav en userform i din kodeeditor. Lav en tekstbox, en kombobox og en knap.

Brug en kode noget i stil med denne:

Private Sub btnOk_Click()
Dim strDato As String
Dim strDato2 As String

If Me.ComboBoxFremskriv = "" Then
MsgBox "Du skal vælge hvor mange mdr du vil fremskrive med", vbOKOnly
Exit Sub
End If

strDato = Format(Me.txtDato, "yyyy-MM-dd")
strDato2 = DateSerial(Year(strDato), Month(strDato) + Me.ComboBoxFremskriv, Day(strDato))

Range("A1").Select
ActiveCell.FormulaR1C1 = Format(strDato2, "dd-MM-yyyy")
Me.Hide

MsgBox "Opdateringen er afsluttet", vbOKOnly

End Sub

Private Sub UserForm_Initialize()
Me.ComboBoxFremskriv.AddItem "1"
Me.ComboBoxFremskriv.AddItem "2"
Me.ComboBoxFremskriv.AddItem "3"
Me.txtDato.Value = Format(Range("A1"), "dd-MM-yyyy")
End Sub

Jeg skal gerne sende dig et eksempel hvis du har brug for det? (skal bruge din email)

Det ser lovende ud. Du kan sende den til tunerichter@hotmail.com

Jeg skal lige høre om den bare skal gemme et fast sted eller om bruger via en dialog skal vælge hvor filen skal gemmes?

Skal filens navn være brugbart på f.eks. en webserver? Her mener jeg at 01-01-2006.xls kan skabe problemer, men ser pænt ud, mens 01_01_2006.xls er et sikkert filnavn, som vil virke som link på en webserver eller på et delt drev, hvor stien sendes som link i en mail.

Den skal gemmes på et netværksdrev via en dialog, så problematikken med webserveren er uden betydning i denne forbindelse.