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

Foutmelding 1004 macro

Status
Niet open voor verdere reacties.

custommade

Gebruiker
Lid geworden
18 aug 2011
Berichten
18
Beste mensen, mijn 'probleem' in het kort:

Voor mijn werk exporteer ik dagelijks grote bestanden uit SAP naar Excel. Voor de aanduiding van maanden gebruikt SAP getallen die als als celeigenschap 'tekst' hebben.

Voorbeeld:

200901 (= januari 2009)
201106 (= juni 2011)

Allemaal logisch. Maar nu wil ik toch graag dat dit wordt weergegeven als jan-09 en jun-11. Daarom heb ik een macro aangemaakt waarin ik alle waarden van januari 2009 t/m december 2011 heb aangepast (Start --> Zoeken en bewerken --> Vervangen). In het document waarin de macro heb gemaakt ging dit prima. Als ik nu echter een ander document open en ik voer de macro uit krijg ik de melding 'Fout 1004' en het volgende opsporingsbericht:

Sub servicemonth()
'
' servicemonth Macro
' aanpassen service naar maand
'

'
Range("K23").Select
Application.FindFormat.NumberFormat = "@"
Application.ReplaceFormat.NumberFormat = "[$-413]mmm/yy;@"
Cells.Replace What:="200901", Replacement:="jan 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Cells.Replace What:="200902", Replacement:="feb 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Cells.Replace What:="200903", Replacement:="maa 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Cells.Replace What:="200904", Replacement:="apr 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Cells.Replace What:="200905", Replacement:="mei 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
Cells.Replace What:="200906", Replacement:="jun 2009", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
ReplaceFormat:=True
End Sub

Wie kan mij aangeven wat ik kan doen om dit tegen te gaan, en dus voor alle documenten die getallen bevatten als hierboven vermeld, gewoon maand en jaar te zien krijg als ik mijn macro uitvoer?

Bij voorbaat dank voor de reacties!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan