*

Help!

Problemen met uw pc? De vrijwilligers van oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Recent

Recente berichten

Pagina's: [1] 2 3 4 ... 10
1
Excel / Re: for each vba probleem
« Laatste bericht door SoftAid Gepost op Gisteren om 20:34:19 »
beste glda19,

het moet me toch even van mijn hart... :-[
Je klaagt in een vorig topic over negatieve kritiek.... Ik denk dat dit zeer terecht is  :o

Neem nu dit "Nieuwe" topic (dat gewoon een vervolg is op je vorig topic) en waar je de code van iemand anders in plakt, met een vraag:
hoe kan ik de code die staat na verder: in een aparte functie gieten. Daar die 2 x word aangesproken.
In de code die je meegeeft wordt "verder" zelfs niet gebruikt.
!!! Als je de code zou lezen, dan zou je zien dat er een REM (') staat voor "verder" !!!

En een goto toch verhouder is niet ?
Neen, een GoTo is niet verouderd. Zolang deze code werkt in een macro is deze code nog goed bruikbaar en nuttig om een deel code te herhalen of over te slaan, te ontsnappen uit een conditie, routine.


Vraagje:
Lees je wel wat andere mensen schrijven om jou te helpen? Velen twijfelen er erg sterk aan, ik ook  :(.
Ik ben de eerste om iemand te helpen, maar dan moet jij zelf wel IETS constructief toevoegen aan de probleemoplossing.

Zo ook je schrijfstijl...

- Als je een topic start, getuigd het van beleefdheid om goedendag te zeggen. Een gewoon "Hallo, " is voor ons meer dan voldoende.
- Daarna ga je normaal over naar de vraagstelling, die je goed moet onderbouwen met de nodige voorbeeldbestanden.
- Controleer je berichten vooraleer ze te verzenden.
Net als in Word of andere programma's wordt ook op deze site grammatica gecontroleerd en door een rode onderlijn aangegeven bij schrijf- of -grammaticafouten. Verbeter deze fouten voordat je verzend.
- Plaats code steeds in een code-blok, beschikbaar in de knoppenbalk boven je bericht .
Dat maakt het voor helpers eenvoudiger om te lezen. De tekenreeks "8 + haakje": 8) wordt dan weergegeven als een 8 gevolgd door een haakje, in plaats van de smiley 8)
- Maak de code die je plaatst vrij van oude, door een Remark (') geblokkeerde code.

- En waarom wil je toch steeds wijzigingen aanbrengen in de door de helpers aangegeven code...???
"In den beginne..." vond je teveel "Voorwaardelijke opmaak" storend in het werkblad (van iemand anders), daarna wilde je VBA, maar je kan het niet (goed) lezen of schrijven.
- Nu ga je ook al een paar keer een simpele "GoTo" als verouderd afkeuren...
Als je een GoTo kunt gebruiken of nodig hebt, gebruik die dan. Je gebruikt toch ook " If " en andere "oude" code !!
Als het werkt is het toch goed, niet? Proberen te vereenvoudigen kan je later nog.

- Als je nog een bericht wil verzenden, klik dan eerst eens op de knop ernaast, namelijk de knop "Bekijken".
Dan kan je zelf je bericht zien zoals wij dat zien. Ik hoop dat je ogen dan open gaan, en open blijven.

- Als er iemand antwoord, antwoord dan terug.
Niet antwoorden op aangegeven hulp, en een ander topic starten is zeer onbeleefd.

-En ten slotte, blijf in hetzelfde topic, zolang het over hetzelfde werk gaat ( je kalender in dit geval).
Dit zijn enkele zaken (maar niet alles wat op mijn hart ligt) die ik toch even onder je aandacht wou brengen.

Dank om dit commentaar geduldig te lezen.

:) SoftAid :)             
2
Excel / for each vba probleem
« Laatste bericht door glda19 Gepost op Gisteren om 15:20:25 »
hoe kan ik de code die staat na verder:
in een aparte functie gieten. Daar die 2 x word aangesproken.
En een goto toch verhouder is niet ?

For Each elkeCel In Range("I4:I44,R4:R44")
'If cl = nl Then
'xw = wf.CountIf(Range("I7:I47"), cl) + wf.CountIf(Range("R7:R44"), cl)
'If xw > Yw Then Yw = Yw + 1: GoTo verder
'If nl > 51 Then nl = 0

    If elkeCel = RodeLijnTeller Then
        TweeWeken = wf.CountIf(Range("I4:I44"), elkeCel) + wf.CountIf(Range("R4:R44"), elkeCel)
            If TweeWeken > EenWeek Then
                EenWeek = EenWeek + 1
                'GoTo verder
                Zwartelijn (elkeCel)
            End If
        'If RodeLijnTeller > 51 Then RodeLijnTeller = 0
   
        'EenWeek terug zetten op 1
        EenWeek = 1
   
        ' De onderstelijn dik rood kleuren
        elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
        elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
        ' De lijn aan de linkerkant naar onder dik rood zetten
        elkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = 3
        elkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThick
        ' De lijn aan de rechterkant  naar boven dik rood zetten
        elkeCel.Borders(xlEdgeRight).ColorIndex = 3
        elkeCel.Borders(xlEdgeRight).Weight = xlThick
        RodeLijnTeller = RodeLijnTeller + 4 '
    Else
verder:
        elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
       elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
       elkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
       elkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThin
       elkeCel.Borders(xlEdgeRight).ColorIndex = xlAutomatic
       elkeCel.Borders(xlEdgeRight).Weight = xlThin
       End If
Next
Application.ScreenUpdating = False

End Sub

End Function
3
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door RedHead Gepost op 24 februari 2017, 15:43:20 »
Lap, we hebben nog eens een aangenaam gespreksonderwerp gevonden. Het lijkt wel een discussie terwijl we het in feite allemaal eens zijn met elkaar.
Ha ha ha... bij gebrek aan vragen, gaan wel zlf maar aan de bak als helpers. Altijd gezellig toch? :D

En je oplossing vind ik prachtig! Wist niet dat de TEXT functie zo k de tekstuele weekdag kon bepalen. Maar in dit geval n het zojuist door mij geleerde, kunnen we dus ng een functie uit het geheel schrappen. DIT werkt k...
[English] =TEXT(A1+1;"dddd")

[Dutch] =TEKST(A1+1;"dddd")

P.s. voor de mee-lezers... In cel A1 dus nu gn datum meer, maar een integer waarde van 1 t/m 7. Dit even om verwarring te voorkomen.
4
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door pitufo Gepost op 24 februari 2017, 15:32:18 »
Lap, we hebben nog eens een aangenaam gespreksonderwerp gevonden. Het lijkt wel een discussie terwijl we het in feite allemaal eens zijn met elkaar.

@ RedHead,

Als je akkoord bent dat er iets mee te doen valt
=KIEZEN(A1;"maandag";"dinsdag";"woensdag";"donderdag";"vrijdag";"zaterdag";"zondag")
waarom dan niet gewoon :
=TEKST(REST(A1;7)+1;"dddd")
Wordt vervolgd ?
5
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door RedHead Gepost op 24 februari 2017, 15:19:44 »
Dat is dus wat dizzl reeds plaatste

Ja weet ik, maar het was slechts als extra bevestiging in mijn betoog. ;D
Sterker nog... De TS geeft het zelf in de initile vraag k al aan op die manier. ;)
6
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door SoftAid Gepost op 24 februari 2017, 14:49:35 »
Ha ha ha... Mijn punt is eigenlijk het volgende... WAAROM zou je met de functie Weekday vanuit een datum een week-dagnummer oproepen om DIE uitkomst vervolgens te gaan gebruiken in het omzetten naar de tekstuele weekdag? Dr zit totaal geen logica in. Je kan het dus in 1x vanaf de datum doorzetten naar de tekstuele weekdag dmv de gegeven Text functie met =TEXT(A1;"dddd").

Dat is dus wat dizzl reeds plaatste:
=TEKST(A5;"dddd")

 ;) SoftAid  ;)             
7
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door RedHead Gepost op 24 februari 2017, 14:38:28 »
Ha ha ha... Mijn punt is eigenlijk het volgende... WAAROM zou je met de functie Weekday vanuit een datum een week-dagnummer oproepen om DIE uitkomst vervolgens te gaan gebruiken in het omzetten naar de tekstuele weekdag? Dr zit totaal geen logica in. Je kan het dus in 1x vanaf de datum doorzetten naar de tekstuele weekdag dmv de gegeven Text functie met =TEXT(A1;"dddd").

Mocht je nou ergens de week-dagnummers hebben staan znder dat daar een datum aan ten grondslag ligt, zou je deze tekstueel kunnen omzetten met deze formule
[English] =CHOOSE(A1;"maandag";"dinsdag";"woensdag";"donderdag";"vrijdag";"zaterdag";"zondag")

[Dutch] =KIEZEN(A1;"maandag";"dinsdag";"woensdag";"donderdag";"vrijdag";"zaterdag";"zondag")

Misschien dan nog met een IF structuur er omheen om de #value af te vangen als cel A1 leeg is of als er een foute waarde wordt ingegeven. Maar dat terzijde. ;)
8
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door pitufo Gepost op 24 februari 2017, 12:33:44 »
Hoi SoftAid,

Deze kan ik ook niet plaatsen, gezien het geen geluk is, maar een vaststaand, onwrikbaar feit is, dat 1 januari 1900 op een zondag viel.
Ja natuurlijk, daarom ook mijn stelling dat het voor iedere mogelijke datum zou werken.

Maar los daarvan is de "technisch" juiste werkwijze uiteraard die van dizzl.

Uiteindelijk zeggen we beiden weer hetzelfde : bekijken we vandaag 24/2/2017, dan gebruikt de formule van dizzl effectief die datum om tot "vrijdag" te komen, en jouw formule gebruikt 6/1/1900, met inderdaad dezelfde uitkomst...

Groetjes,
pitufo
9
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door SoftAid Gepost op 24 februari 2017, 11:38:16 »
=TEKST(A5;"dddd")?
Zeer zeker, dizzl... Works as a charm....  :)

Pitufo, ik kan je stelling(en) niet beamen  ;D

RedHead is een groot licht, en ik ben maar een klein lichtpuntje, dat verbleekt bij de kennis van alle andere Excel-helpers hier  :-[
Er zijn grote grootheden, en er zijn kleine grootheden  ;)

Citaat
maar daar is een beetje geluk mee gemoeid, want dat werkt enkel omdat... 1 januari 1900 een zondag was !

Deze kan ik ook niet plaatsen, gezien het geen geluk is, maar een vaststaand, onwrikbaar feit is, dat 1 januari 1900 op een zondag viel.

Excel telt constant met 7 dagen per week in zijn datumnotatie/berekening.
1/1/00 ( 1 ) is een zondag, 8/1/00 ( 8 ) is een zondag ...26/2/2017 ( 42792 ) is een zondag. 
Moest 1 januari 1900 een maandag geweest zijn, dan was vandaag 24/2/2017 een zaterdag, en zou er niets veranderen aan de uitkomst van de formule.
Denk ik toch.... ?

(we gaan er hier van uit dat het Datumsysteem 1900 wordt toegepast)

:) SoftAid :)             
10
Excel / Re: weekdag ,tekst probleem
« Laatste bericht door dizzl Gepost op 24 februari 2017, 10:44:11 »
=TEKST(A5;"dddd")?
Pagina's: [1] 2 3 4 ... 10

www.combell.com