Ik krijg het datum format niet veranderd.

Status
Niet open voor verdere reacties.
M

Multimeter

Gebruiker
Lid geworden
11 jul 2016
Berichten
48
Gd,

Heb bijgaand voorbeeld bestandje werkend zoals ik het wil op een irritant kleinigheidje na.
Ik zou willen dat cell B3 (na kopieren via de knop) in hetzelfde format komt te staan als B5-B7 enz.
Het komt waarschijnlijk doordat ik eerder bij naamgeving van het nieuwe Worksheet voor dd-mm-yyyy
heb gekozen.
Zelfs als ik het met een formule probeer ipv VBA krijg ik het niet voor mekaar:
=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1)))
Is er een mogelijkheid om dit op te lossen?

bvd

Johan
 

Bijlagen

  • Sample3.xlsm
    25,3 KB · Weergaven: 19
De cellen B5-B7 zijn leeg en staan in de eigenschappen op Standaard.
A1 is ook leeg, dus dan doet je formule inderdaad niets.
 
Excuus, heel erg dom maar ik bedoelde D3-F3 enz. de rode cellen waarin de dagaanduiding komt.
Begrijp ik hieruit dat het met VBA niet wil?
Dat zou ik het liefst willen, die formule was alleen maar een noodsprong.
 
Ik zie dit staan, dat is toch de dagaanduiding?
 

Bijlagen

  • dagaanduiding.png
    dagaanduiding.png
    7,5 KB · Weergaven: 20
klopt maar het gaat om die cellen in het volgende blad, dus na het gebruik van de knop new week.
 
Maak er eens dit van:
Code: 
NewWs.Range("B3:O3").NumberFormat = "[$-nl-NL]d/mmm;@"
 
Ik heb hem er als volgt ingeplakt maar er verandert niets, op het volgende blad komt in cel B3 nog steeds
22-11-2021 ipv 22-nov


Code: 
Private Sub CommandButton1_Click()

Dim OrgWs As Worksheet
Dim NewWs As Worksheet
    Set OrgWs = ActiveSheet
    
     OrgWs.Copy after:=Worksheets(Worksheets.Count)
        Set NewWs = ActiveSheet
          NewWs.Name = Format(DateAdd("d", 7, DateValue(" " & OrgWs.Name)), "dd-mm-yyyy")
           NewWs.Range("B3:O3").NumberFormat = "[$-nl-NL]d/mmm;@"
          NewWs.Range("B3") = NewWs.Name
       NewWs.Range("B5:O29").ClearContents
       
  'Call Format_Firstdate
      
      
    

End Sub
 
Wijzig ook de regel er na in het volgende:
Code: 
NewWs.Range("B3") = DateValue(NewWs.Name)
Je zet er nu tekst in.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan