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

VB zoeken en vervangen in hele werkmap

Status
Niet open voor verdere reacties.
K

Knollo

Gebruiker
Lid geworden
26 nov 2017
Berichten
31
Ik heb de volgende macro opgenomen om in een werkmap alle punten door komma's te vervangen:

Code: 
Windows("Cijferlijsten.xlsx").Activate
    Range("A2").Select
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
       :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Windows("Klassenoverzicht.xlsm").Activate
    Range("A1").Select

Dit werkt helaas alleen voor het betreffende werkblad. Hoe kan ik dit aanpassen zodat dit voor alle tabbladen (= gehele werkmap) werkt?

Dank U.
 
Dit zal wel voldoende zijn :

Code: 
Sub cobbe()
For Each ws In ThisWorkbook.Sheets
 ws.Cells.Replace What:=".", Replacement:=","
Next ws
End Sub
 
@Cobbe, excuseer, maar het blijkt toch niet te werken. Aanvankelijk dacht ik dat het werkte, maar nu krijg ik de volgende foutmelding:

Microsoft Visual Basic
Fout 438 tijdens uitvoering:
Deze eigenschap of methode wordt niet ondersteund door dit object

De fout vindt plaats bij deze regel:

ws.Cells.Replace What:=".", Replacement:=","


Wat kan dit zijn?
 
Test deze eens:
Code: 
Sub cobbe()
For Each ws In ThisWorkbook.Sheets
 ws.UsedRange.Replace What:=Chr(46), Replacement:=Chr(44)
Next ws
End Sub

Chr(46) = . en Chr(44) = ,
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan