Jämföra datum i Excel mha VBA

[Dwinnie]

Nu ger jag upp, klockan är över 3 och det funkar inte.

 

Jag har en textbox där jag skriver i fakturadatum och ett annat där man skriver i summan och en radioknapp där man kan välja valuta. Valutakolumnen plockas fram och sedan är det bara att hitta rätt datum. Datumen är alltid den första i månaden, medan fakturadatum kan vara vad som helst. Därför tar jag det inskrivna datumet, gör datum = dateserial(year(var), month(var), 1).

 

Sedan försöker jag göra workbooks(1).columns(1).find(datum) och det funkar inte.

 

Någon som vet vad jag gör för fel?

 

[XL-Dennis]

Hej,

 

Så här:

 

Private Sub OK_Click()
Dim Datum As Variant
Datum = Me.TextBox1.Text

Datum = DateSerial(Year(Datum), Month(Datum), 1)

ActiveWorkbook.Worksheets(1).Columns(1).Find (Datum)

End Sub

 

 

 

 

[Dwinnie]

Tack!

 

Det var ungefär som jag hade gjort och nu när jag fick bekräftat att jag hade tänkt rätt så kunde jag börja tänka vidare och problemet låg inte där utan när jag försökte göra saker med värdet. Utan dig hade jag fortfarande suttit och försökt hitta felet på fel ställe =)

 

Mattias