Geen punt mogelijk maar alleen komma

Status
Niet open voor verdere reacties.
M

monty1a

Gebruiker
Lid geworden
29 dec 2006
Berichten
202
Hallo,

Ik heb in het tabblad “Overzicht” in kolom K7:L206 lengtes staan, deze worden gebruikt in andere tabbladen. Alleen komt het wel eens voor dat er een . (punt) ipv een , (komma) word neergezet en dit gaat dan fout op de andere bladen in de berekening.

Is het mogelijk dat dit op 1 of andere manier word beveiligd dmv. VBA code, zodat de punt automatisch word omgezet naar komma?

Alvast bedankt
 
Probeer dit eens:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
 With Range("K7:L205")
     .Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Value = .Value
    End With
 End Sub
 
Laatst bewerkt:
Hij geeft helaas een foutmelding bij het gedeelte:

Code: 
.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        .Value = .Value
 
Enkel voor de waarden die je invoert, niet die er al staan.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
if not intersect(target,range("k7:l205")) is nothing then
Application.EnableEvents = False
  Target = Application.Substitute(Target, ".", ".")
Application.EnableEvents = True
end if
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan