Decimaal teken

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedemorgen, zit weer met een vraagje dus dacht stel hem maar ff bij de diehards.

Door middel van een Web Query krijg ik data binnen van een site.
Het betreft data (koersen) van aandelen.

Sinds een paar dagen is deze site enig sinds veranderd waardoor m'n data niet meer klopt.

Voorheen kreeg ik een koers van b.v. AEX - 528,500 binnen

maar nu wordt dat 528,500 18:05:01

de koers en tijd wordt hier gescheiden van een spatie, maar dat is niet zo bij de andere aandelen.

Is er een "makkelijke" manier om deze koers uit dit gegeven te halen?

Heb al iets geprobeerd met MID string om zo de gegevens één voor één in te lezen.
Maar probleem is dat Excel de komma automatisch naar een punt overzet.

Iemand een idee hierover?

Bij Voorbaat dank.

Dutch
 
Laatst bewerkt:
Probeer het eens zo:
Code: 
Dim Koers As String
Koers = Split("528,500 18:05:01")(0)
Koers is dan 528,500

Plaats dit als volgt in een cel:
Range("A1") = "'" & Koers

Of:
Range("A1") = "'" & Split("528,500 18:05:01")(0)
 
Laatst bewerkt:
edmoor zei:
Probeer het eens zo:
Code: 
Dim Koers As String
Koers = Split("528,500 18:05:01")(0)
Koers is dan 528,500

Hoi Edmoor,

Thanks voor het meedenken. Maar helaas werkt niet, blijf die vervelende punt houden..

Hij split het wel maar zet 528.500 neer en dat zou 528,500 moeten zijn.
Klik om te vergroten...
 
Dan heb je m'n bericht niet volledig gelezen.
 
Hoi Edmoor,

krijg deze gegevens aangeleverd via een webquery en deze plaatst het in cel

nu verplaats ik deze gegevens met VBA naar een andere locatie

dit alles met vba omdat het dan automatisch gaat
 
Ja. En in #2 zeg ik dus hoe je daarmee om moet gaan.
Zonder een voorbeeld document kan ik niet duidelijker zijn.
 
Laatst bewerkt:
Hoi Edmoor,

je hebt gelijk dat zonder voorbeeldje het moeilijk wordt.

Was druk vanmiddag dus vandaar.

Heb iets gemaakt als test file.

Het werkt wel als er een spatie tussen Koers en Tijd zit.

Maar bijna alle koersen zijn zonder spatie zie vb-tje.
 

Bijlagen

  • Test #1.xls
    32,5 KB · Weergaven: 52
Dat had ik zo inderdaad niet begrepen. Zet dit eens achter die knop:
Code: 
Private Sub CommandButton1_Click()
    For Each cl In Range("K35:K60").SpecialCells(xlCellTypeConstants)
        If InStr(1, cl, ":") > 0 Then Cells(cl.Row, 11) = "'" & Left(cl, Len(cl) - 8)
    Next cl
End Sub
 
Hoi Edmoor,

net ermee bezig :)

het werkt maar mooiste zou zijn als het geen tekst werd

ff aan het stoeien en denk dat ik het heb..

Code: 
Private Sub CommandButton1_Click()
    For Each cl In Range("K35:K60").SpecialCells(xlCellTypeConstants)
        If InStr(1, cl, ":") > 0 Then Cells(cl.Row, 11) = Left(cl, Len(cl) - 8)                
    Next cl
End Sub

Dus de apostrof weggehaald als tekst teken..

ff de boel nog testen

wel nog een vraagje (om te weten):

die cl die je gebruikt hoeft die niet gedimensioneerd te worden of wordt dat auto. gedaan met de For Each - next lus?
 
Laatst bewerkt:
Die cl wordt automatisch een Range object.
Probeer deze eens:
Code: 
Private Sub CommandButton1_Click()
    For Each cl In Range("K35:K60").SpecialCells(xlCellTypeConstants)
        Range(cl.Address).NumberFormat = "0.000"
        If InStr(1, cl, ":") > 0 Then Cells(cl.Row, 11) = CDbl(Left(cl, Len(cl) - 8))
    Next cl
End Sub
 
ok zal deze ook ff testen, want de huidige geeft problemen omdat ik option explicit gebruik
 
Dat is keurig, maar dan moet je wel die cl als Range dimensioneren.
Option Explicit verplicht je om alle gebruikte variabelen te dimensioneren.

De code in #10 doet het overigens prima in je voorbeeld documentje.
 
Laatst bewerkt:
yep thanks had ik al begrepen

in mn test file werkt het en in het eigenlijke file geeft ie weer die punt inplaats van de komma #2%$#@@

:)

correctie ook in mn testfile geeft ie een punt.

zal ff de 2e testen
 
Laatst bewerkt:
Wat daar dan mee aan de hand kan zijn weet ik dan zo ook niet.
 
Hoi Edmoor, ben eruit denk ik.

Zal nog ff nieuw testfile aanhangen.

Hartstikke bedankt voor de moeite om te helpen.

Vr. Gr.

Rene
 

Bijlagen

  • Test #2.xls
    33 KB · Weergaven: 44
Graag gedaan :)
Daarin werkt het dus goed met dezelfde code.
 
yep klopt.

heb het ff in m'n Updater file gemaakt.

ff uitleg waarvoor :)

hou al jaren koersen bij van aandelen

heb een prog. gemaakt in excel 2003. Liep daar tegen het feit, dat op gegeven moment het geheugen van excel te klein werd als ik update met een webquery.

hierop een apart file gemaakt (updater) om dan de koersen s'avonds te downloaden naar m'n aandelen file.

werkte allemaal prima, tot een paar dagen geleden, is de website weer wat veranderd en komen de data anders binnen.
liep nu tegen dit euvel op maar ook dat is weer verholpen :)

En zo blijven we bezig :)

Vr. Gr.

Rene
 
Het houd ons van de straat, anders slopen we maar bushokjes en zo :p
Tot de volgende keer dan maar :)
 
Lolz, op mijn leeftijd nog bushokjes slopen :)

wordt morgen 65..:d

next time :thumb:
 
Dat duurt voor mij nog even.
Alvast van harte gefeliciteerd! :D
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan