• 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.

komma of punt

  • Onderwerp starter Onderwerp starter regf
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

regf

Gebruiker
Lid geworden
27 mrt 2009
Berichten
136
in het bestand wat ik toevoeg is het de bedoeling om uren af te trekken of op te tellen, echter gaat het mis als ik de nummerieke punt gebruik.
ik weet dat dit in VBA op te vangen is maar hoe en waar?
als ik bij de invoer de komma gebruik dan gaat het fout, maar als ik bij de aanpassing de punt gebruik gaat het ook fout. alvast bedankt Reg
Bekijk bijlage snipperurenregistratie.xls
 
Ik begrijp je vraag niet echt. Zou je deze nogmaals (in detail) uit kunnen leggen?
 
Code:
Private Sub Aanvullen_Click()
Dim FindString As String, Rng As Range
    FindString = TextBoxNummer.Value
  With Sheet1.Range("B2:B50")
    Set Rng = .Find(What:=FindString, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
      SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
      Rng.Columns(3).Value = Rng.Columns(3).Value + [COLOR="red"]Replace(TextBoxAantal.Value, ".", ",")[/COLOR]
  End With
  TextBoxNummer.Value = ""
  TextBoxNaam.Value = ""
  TextBoxAantal.Value = ""


End Sub

Niels
 
Beste Mensen.
de oplossing van Niels werkt en is precies wat ik bedoelde.
bedankt
Reg
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan