• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

nog een verandering in mijn overzicht..

  • Onderwerp starter Onderwerp starter jtvd
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
J

jtvd

Gebruiker
Lid geworden
14 aug 2006
Berichten
108
Hallo..

Ik had nog een vraagje over mijn bank overzicht.. :o
Had de vorige al afgemeld..

Ik krijg als bedrag b.v. de volgende getallen
20.05
5.10
300.00
Dit zijn in Exel geen bedragen maar voor de bank wel..
ik doe er een voorbeeld bij met hoe ik ze van de bank krijg.

Mijn vraag kan ik dit omzetten naar echte getallen of euro's..
Zodat ik er een som / berekening van kan maken?
 

Bijlagen

ExcelAmateur zei:
jtvd,

Het kan ook met een macro, zie file.
Klik om te vergroten...

En wat doe je als er al 000 , 00 in de cel staat ? kan ook met deze dan mag er zelf aa 000 . 00 staan
Code: 
Private Sub CommandButton1_Click()
  For Each Cl In Columns(1).SpecialCells(2)

  Cl.Replace What:=".", Replacement:=","
  
  Next
End Sub
 
Aan Danny

De berekening werkt prima.. maar door het invoegen van een extra kolom kom ik niet uit met de bankgegevens die ik download..
Door de extra kollom komen de gegevens onder een ander kolom te staan..
De berekening zou dus in de zelfde kolom gebeuren


Aan ExcelAmateur..
De knop "getallen omzetten" werkt niet ik kan drukken wat ik wil..
Als het werkt zou het een optie kunnen zijn..
 
jtvd zei:
Aan ExcelAmateur..
De knop "getallen omzetten" werkt niet ik kan drukken wat ik wil..
Als het werkt zou het een optie kunnen zijn..
Klik om te vergroten...
Aan die knop is een macro verbonden , Alt F11 of een rechtermuisklik op de tab van het tabblad kom je in de VB editor waar de macro staat .
 
jtvd,

Aan ExcelAmateur..
De knop "getallen omzetten" werkt niet ik kan drukken wat ik wil..
Als het werkt zou het een optie kunnen zijn..
Klik om te vergroten...
Ik heb hem net even gedownload en hij werkt hier perfect.
Start de macro anders eens uit de VBA omgeving.

Je kunt toch wel macro's gebruiken?
Ik bedoel dat Excel ze niet uitsluit?
 
Laatst bewerkt:
:o:o:o

Exel gaf het boven aan dat de macro's uit veiligheidsredenen had uitgeschakeld..

Inmiddels staat het weer aan..
En ja het werkt prima...

Visual basic gevonden...
Ik zal er even mee stoeien..
Laat het weten of het gelukt is om ze in te passen im mijn overzicht..

tot zover alvast bedankt..:thumb:

JTvD
 
aan ExcelAmateur..

Het programma werkt prima in de excelbestand die u hebt meegestuurd maar ik krijg m niet in mijn overzicht..
Wat heb ik gedaan..
Ik heb via visual basic een knop aangemaakt en daartonder de inhoud van uw knop gekopïeert
Bij staan de omrekengetallen in kolom 3 vandaar dat bij columns nu een 3 staat.
Deze kopie heb ik gemaakt:
Code: 
Private Sub CommandButton1_Click()
For Each cl In Columns(3).SpecialCells(2)
    cl.NumberFormat = "$* #,##0.00_)"
    cl.Value = Replace(cl, ".", ",") * 1
  Next
End Sub

Alleen ik krijg een foutmelding :
Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen
Kunt u mij uitleggen hoe u deze gemaakt hebt..
 
Laatst bewerkt door een moderator:
jtvd,

Op welke regel geeft hij de fout?
Als je in de VBA zit kun je met F8 door de macro lopen en zal hij bij de fout stoppen.
Zelf heb ik bij mij de kolom gewijzicht naar 3 (kolom C) en het werkt goed.

Ik heb een knop gebruikt uit de ActiveX-besturingselementen en jij misschien uit Formulierbesturingselementen?
Zelf gebruik ik ook Excel 2007

Kijk anders ook even bij SpecialCells in de help van Excel, het kan zijn dat het daaraan licht.
 
Laatst bewerkt:
jtvd,

Als jouw code in een Module staat moet je dit gebruiken;
Code: 
Sub omzetten()
For Each cl In Columns(1).SpecialCells(2)
    cl.NumberFormat = "$* #,##0.00_)"
    cl.Value = Replace(cl, ".", ",") * 1
  Next
End Sub
In mijn file die je heb zit de code achter de knop en niet in een module.
 
De foutmelding )nr 13' zit in de regel cl.Value = Replace(cl, ".", ",") * 1

Ik heb nu gebruikt een ActiveX-besturingselement..
En ik heb de code gebruikt die u getypt hebt..

Als fout geeft hij aan Typen komen niet met elkaar overeen


Het makkelijkst is natuurlijk dat u uw bestandje even op C2 zet..
En even hier plaatst..

Maar ja..dan weet ik nog niet hoe het ging.. :o
 
For Each cl In Columns(1).SpecialCells(2)
=> Columns(1) = kolom A
als jij het in kolom C wil hebben maak je der gewoon :
Columns(3) van of kolom C ;)
 
jtvd,

In #8 gaf je aan dat de code in mijn file goed werkte.
Het probleem is gekomen nadat je het in je eigen file heb geplaatst.
Mijn bestandje hier plaatsen heeft weinig zin omdat dat je dat bestandje al heb gedownload.

Zet even in een ander bestandje, hoe je het gemaakt heb hier, kan ik kijken of ik het kan vinden.
Het is toch vreemd dat het in mijn bestandje wel werkt bij je en in je eigen bestandje niet.

Voor kolom C
Code: 
Private Sub CommandButton1_Click()
  For Each cl In Columns(3).SpecialCells(2)
    cl.NumberFormat = "$* #,##0.00_)"
    cl.Value = Replace(cl, ".", ",") * 1
  Next
End Sub
 
Laatst bewerkt:
jtvd,

Ik denk dat ik het weet.
Volgens mij heb je in C1 geen getal staan maar tekst.
Als dit zo is maak er dan deze code van.
Code: 
Private Sub CommandButton1_Click()
  For Each cl In Range("C2:C100").SpecialCells(2)
    cl.NumberFormat = "$* #,##0.00_)"
    cl.Value = Replace(cl, ".", ",") * 1
  Next
End Sub
 
Als er tekst staat in cel C1 dan deze
Code: 
Private Sub CommandButton1_Click()
  For Each Cl In Columns(3).SpecialCells(2).Offset(1, 0)
  Cl.Replace What:=".", Replacement:=","
  Next
End Sub
 
Hallo

Ik ben er uit het werkt

Het klopte wat je zei..
Ik denk dat ik het weet.
Volgens mij heb je in C1 geen getal staan maar tekst.
Als dit zo is maak er dan deze code van.

Het werkt nu in mijn programma...
Voorlopig ben ik er uit..
Allen dank voor deze mooie aanpassing..
Ik ben er zeer blij mee..:thumb::thumb:
 
jtvd,

Dit had je bij de vraag stelling miet vermeld.
Zo zie je dat een voorbeeld bestand je met de goede informatie de oplossing sneller wordt gevonden.
Dus plaats de volgende keer een goed voorbeeld bij de vraag en vergeet deze niet als opgelost te zetten.
 
Tja als ik het wist had ik het wel gemeld...

Als u het niet verteld had had ik er niet naar gekeken.. :o

Ik ga m melden als opgelost...

Nogmaals bedankt :thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan