Datum uit cel vergelijken met een woord.

[Koos Timmer]

Hallo.

Alweer een vraag over tijd en datum.

Ik ben al een poosje aan het stoeien met tijd, datum en weeknummers.

Nu is het zo dat als ik een woord uit een file of txt vergelijk met bv uur of dag of week jaar etc de vergelijking niet mogelijk is.

het uit de cel afkomstige woord =NU() of =VANDAAG() met de eigenschap van b.v. Jaar of maand, geeft ook goed het jaar of de maand weer in een cel.
alhoewel dat het om een getal gaat die steeds veranderd net als de klok.

dit getal vergelijk ik met de formule =ALS(H1=K1;"Waar";"Onwaar")
in cel H1 staat een b.v. het woord Maart en in cel K1 staat de formule waaruit de maand wordt weergegeven als Maart, dit vergelijkt
de formule als Onwaar omdat Cel K1 een getal schijnt te zijn en niet het woord die je ziet op het scherm.

Ik hoop dat het te volgen is.

Wie weet hier een oplossing voor.

Groeten Koos.

 

[Wigi]

=H1=TEKST(K1;"mmmm")

Wigi

 

[Koos Timmer]

Hallo Wigi.

Super snelle reactie van jou.

en het werkt perfect hoor.

maaaaar nu zit ik weer met de vergelijking van de week.

dus de weernummer perfect weergegeven in een cel maar dan ?

Groeten koos.

 

[Wigi]

En hoe geef je die weeknummer weer?

 

[Koos Timmer]

Hallo Wigi.

Ik bedoel.

=H1=TEKST(K1;"mmmm")

Ik zou denken :

=H1=TEKST(K1;"ww")

Dit Bedoel ik.

Groeten Koos.

 

[Wigi]

En waarom kan je niet testen met de inhoud van K1, rechtstreeks?

 

[Koos Timmer]

Hallo Wigi.

Ik begrijp je niet helemaal ?

Ik ben dus een weeknummer 28 afkomstig uit een file naam aan het vergelijken met de huidige weeknummer uit een formule.

dat is het probleem.

ik dacht dat ik klaar was met mijn scipt maar de formule ALS THEN GOTO etc bleek niet te werken omdat het niet in de vergelijking om twee teksten gaat.

groeten Koos.

 

[Wigi]

Met CStr kan je altijd converteren naar een String (tekst dus)

 

[Koos Timmer]

Hallo Wigi.

ik zal eens kijken of ik dat voorelkaar krijg.

zal eens zoeken naar een voorbeeldje.

Groeten Koos.

 

[Koos Timmer]

Hallo Wigi.

Ik kom der niet uit.

begrijp er niets meer van.

zie file ( deze file is niet goed ). kijk verder op daar staat hij goed.


Ik hoop dat je me kunt helpen.

wie weet er nog een goed boek over dit soort dingen ?

groeten Koos.

Ps

 

[Haaren101]

Ik begrijp helemaal niets van het bijgaande voorbeeld. Waarom zijn alle velden als tekst geformatteerd?

Maar met de formule =ALS(B1=E5,"week gelijk","week ongelijk") werkt het toch goed?

Ron

 

[Wigi]

Of in B18:

=ALS(E7=WAARDE(D15);"Jaar Gelijk aan";"Jaar Niet gelijk aan")

Maar eigenlijk snap ik er ook geen bal van...

Wigi

 

[Koos Timmer]

Hallo.

nee stom van mij hoor . deze file moest het zijn.

Groeten koos.

Ps ik haal soms echt de boel door elkaar.

 

[Wigi]

Voor E12: zet

=JAAR(VANDAAG())

in A1

opgemaakt als jjjj.

E18 werkt ook als je doet

=TEKST(A1;"jjjj")+0

in D15 en in A1 doe je

=VANDAAG()

(dit laatste bv opgemaakt als jjjj, maar zoals hieronder staat is de opmaak irrelevant voor berekeningen).

Kortom, wat je ziet is (mogelijk) iets anders dan wat er in de cel echt staat en waar Excel mee rekent. Het is niet omdat =VANDAAG() in een cel staat, opgemaakt als jjjj, dat er dan 2007 in die cel komt te staan. Je ziet wel 2007, maar Excel rekent in het achterhoofd met de datum van vandaag.

Wigi

 

[Koos Timmer]

Hallo Wigi.

Je zult wel denken wat een gestuntel.
en je hebt gelijk moet ik bekennen.

volgens mij moet het nu werken zie bijgesloten file.
zou jij deze ook eens willen inzien of ik het bij het goede eind heb ?

trouwens heb ik er al weer een probleem bij gekregen mischien weet jij wat ik nu weer vernield heb.
het probleem is als ik een blad copieer naar een andere file, copieert hij de formules rij en kolom hoogte breedte etc niet meer mee.
Dit was ook het probleem bij mijn eerste bijgevoegde file denk ik.

Tja jullie zullen wel lachen denk ik

Nogmaals bedankt voor jullie geduld.

Groeten Koos.

 

[Wigi]

Doe het zo:

In D22 zet je:

=B1

Dan zowel D22 als D15 als Standaard opmaken via Celeigenschappen. (Maar verandert niets aan de uitkomst).

Wigi

 

[Koos Timmer]

Hallo Wigi.

werkt nu goed.

Mischien wil je me nog met het volgende helpen.
als ik het volgende opneem in mijn workboog script.
hij springt niet over de opdracht ActiveWorkbook.Save heen.

If Worksheets("Blad1").Range("a40").Value = "niet opslaan" Then GoTo Spring:

ActiveWorkbook.Save

Spring:

Application.quit

End Sub

 

[Wigi]

En wat staat er dan in A40?

Volgens mij wordt Quit uitgevoerd, en slaat Excel het bestand op omdat de hele Excel applicatie afgesloten wordt.

 

[Koos Timmer]

Hallo Wigi.

in cel A40 staat of Opslaan of Niet Opslaan

afhankelijk van een uitkomst uit een formule in dat blad1.


Groeten Koos.

 

[Wigi]

Doe maar een voorbeeldbestandje.