Willekeur in Excel VBA

[anoniem]

:-? Betreft een Windows 2000 Excel VBA applicatie, op een netwerk server door meerdere personen shared gebruikt. In de sheet staat een kolom met datum velden. De kolommen ernaast bevatten informatie die bij een bepaalde datum horen. Ik heb een Excel macro geschreven, die eerst de informatie op een vaste manier in de datumvelden zet. Daarnaast een macro die een bepaalde periode kan selecteren en daar de bijbehorende info uit kan halen. De datum wordt uit 3 Textboxen op een Userform samengesteld: DD-MM-JJJJ, bijvoorbeeld [code:1:573e7b65b6]worksheet("Sheet1").cells(21,1) = Textbox1.text + "-" + Textbox2.text + "-" + Textbox3.text[/code:1:573e7b65b6] De datum verschijnt dan netjes in het veld. De zoekopdracht wordt op dezelfde manier samengesteld door DD-MM-JJJJ in te vullen in een Userform. De macro stelt dan weer de datum samen. Nu doet het volgende merkwaardige probleem zich voor. Op mijn PC werkt het niet goed en ook niet bij enkele anderen. Als de dag van de maand kleiner als 13 is ruilt hij dag en maand om. Bijv. * 7 januari wordt ingevoerd als 07-01-2003 en wordt gezocht als 1 Juli (invoer 07-01-2003) Dit gaat niet goed. als de zoekopdracht verandert in 01-07-2003 vindt hij wel 7 januari * 14 december wordt ingevoerd als 14-12-2002 en wordt gezocht als 14 december (invoer 14-12-2002) Wel goed. Bij een aantal mensen die hetzelfde Excel bestand van de server gebruiken werkt het wel goed. Die kunnen gewoon de DD-MM-JJJJ aanduiding volgen voor alle combinaties. Wie weet hier een oplossing voor?

[anoniem]

Heeft waarschijnlijk met de landinstellingen te maken. Met [b:ba938fef74]DateSerial[/b:ba938fef74] over rule je dat probleem, zie onderstaand voorbeeld. Succes. [b:ba938fef74]Sub datum() dag = "12" maand = "1" jaar = "2003" mydate = DateSerial(Val(jaar), Val(maand), Val(dag)) weergave = Format(mydate, "dd mmm yyyy") ActiveSheet.Cells(21, 1) = weergave End Sub[/b:ba938fef74]