[Excel/VBA] Macro stopt bij cell beginnend met "=" symbool

[Simkin]

Ik probeer een set van karakters te escapen die zich bevinden in een bepaalde excel column. De text in deze column (enkele 1000-en rows) wordt gezet dmv een 'database query'. Bij sommige van de text entries begint de text met een aantal "=" karakters. Zodra de text in een column begint met een '=' karakter stopt de macro met het escapen, zonder een error melding te produceren. Alle rows onder desbetreffende row worden gewoonweg niet meer verwerkt. Daarboven ging alles goed.

Ik vermoed dat de macro de text interpreteert als een formule maar heb hier niets over gevonden (vba ignore formula in cell). Ik hoop dat iemand mij kan uitleggen waarom dit fout gaat en hoe ik dit het beste kan oplossen. Alvast bedankt voor het meedenken

Ik maak gebruik van Office 2007

vb van een cell waar de macro op faalt:

code:

==============================================================
PROBLEM:

The loader functionallity ...

De macro die ik gebruik:

code:

Sub ESCAPE1()
'
' ESCAPE Macro 1
'

'
    Range("I:I").Select
    Selection.Replace What:=Chr(9), Replacement:="/t", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(10), Replacement:="/n", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(13), Replacement:="/r", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(38), Replacement:="&", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(34), Replacement:=Chr(39), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="''", Replacement:=""", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(39), Replacement:="'", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(60), Replacement:="<", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=Chr(62), Replacement:=">", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[pedorus]

Ik denk dat je hier tegen een beperking van excel's selection.replace bent aangelopen, die replaced altijd alsof er general content wordt teruggezet. Dit faalt bij foute formules. Wat wel kan: numberformat van de betrokken cellen op tekst hebben staan ("@"), en dan vba's replace gebruiken in combinatie met for each/value, dus iets als:

Visual Basic:

Sub ESCAPE1()
    Dim where As Range
    Set where = Range("A:A").SpecialCells(xlCellTypeConstants)
    ' if needed where.NumberFormat = "@"
    Dim c As Range
    For Each c In where
        c.Value2 = Replace(c.Value2, "&", "&")
        '...
    Next
End Sub

[Simkin]

Ga ik proberen! thanks

(Nu ook al een probleem (lees:werkt niet) met een andere selection replace, om gek van te worden!)

[Simkin]

@pedorus, bedankt! Je oplossing werkt, heel erg fijn

Nog even geprobeerd om "Selection.NumberFormat = "@"" aan mijn oorspronkelijke macro toe te voegen maar dat haalt niets uit, ben erg blij met je oplossing

[ Voor 58% gewijzigd door Simkin op 12-08-2010 13:10 ]