Datum wordt tekstveld

[snb]

Verander bij de landinstellingen in Windows je tijdnotiatie.

in excel zal deze code

Application.International(xl24HourClock)

als resultaat 'onwaar' geven.

Als je bij de Windowsinstellingen de 24-uurs klok hebt ingesteld loopt mijn macro jou net zo zonnig als bij mij.

 

[Hoornvan]

Scripter,

Ik zie dat je het al opgelost heb.:thumb:
Met zoeken en vervangen gaat het ook, alleen als ik dit dan met de recorder opneem, lukt het daarna alleen met de code niet.
Krijg met de opgeneomen code dan de oude situatie, 2:15:00PM vreemd.

@snb Dit geeft bij mij een fout bij International, wou het even testen.

Application.International(xl24HourClock)

 

[snb]

@Wim

  msgbox Application.International(xl24HourClock)

 

[Scripter]

Heren bedankt!
Helaas kan ik op werk niet bij mijn windows instellingen, maar ga dit thuis zeker testen.
En Wim, het probleem dat de opgenomen macro niet hetzelfde reageerd als de handeling tijdens het opnemen... mij nog steeds een raadsel. Als iemand weet hoe dit kan...

 

[Hoornvan]

@snb bedankt voor de code.
Hij geeft bij mij waar maar toch lukt het niet?

Zoals ik in mijn vorige bericht al aan gaf, de spatie weghalen werkt met Zoeken en Vervangen.
Neem ik deze handelingen op met de recorder en laat daarna de code werken, wordt het niet zo gedaan als met Zoeken en Vervangen.
Ik denk dat de code dan niet alles heeft genoteerd?

Het probleem heeft TS zelf opgelost en daar ging het om.

 

[snb]

Geen verklaring, wel eenvoudige oplossing:

Sub tst()
  With Sheets("Conversie").Range("K:L")
    .Replace " ", "", xlValue, xlPart
    .Replace "AM", "", xlValue, xlPart
    .Replace "PM", "", xlValue, xlPart
  End With
End Sub

 

[Hoornvan]

snb,

dank u wel.
Deze code werkt perfect. (de hand van de meester)

 

[Scripter]

"iets" kortere code dan wat ik had verzonnen
En idd Hoornvan, al stoeiende kom ik ik steeds iets verder. Soms niet op de ideale manier, maar als het werkt...dan werkt het!
Werkt super!! Beide heren bedankt voor het meedenken :thumb: