VBA in Excel 2013 doet iets anders dan in Excel 2010

[willema]

Dag allemaal,

deze eenvoudige code is een onderdeel van een DoubleClick-Event

 Range(Cells(3, LaatsteKolomNa + 1), Cells(76, LaatsteKolomVoor)).Select
 With Selection
    .Borders(xlEdgeBottom).Weight = xlThin
    .Borders(xlEdgeRight).LineStyle = xlNone
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
 End With
 Cells(3, 1).Select
 MsgBox "Rij " & ActieveRij & " werd verwijderd.", vbExclamation, "TH Basissjabloon v" & vs

Als ik deze code uitvoer (Excel 2013) blijft op de achtergrond van de Messagebox het bereik geselecteerd (= donker) staan. Pas na klikken op de OK knop wordt Cel A3 gekozen.
Nochtans staat Cells(3, 1).Select vóór de MsgBox.
Ik probeerde alles met ScreenUpdating, CutCopyMode, enz.. zonder resultaat.

Nu net probeerde ik dit bestand uit op een oude desktop met Excel 2010. En daar werkte het wel!!!

Heeft iemand een idee wat dit zou kunnen zijn ?
Zou het kunnen dat dit niet met VBA te maken heeft, maar met de videoprestaties van de laptop (nochtans een stevige 64-bits Windows 7 laptop van HP).
Ik heb gemerkt dat sinds Excel 2013 op deze laptop staat (vroeger was dat ook Excel 2010) dat het scherm wat achter blijft.
Soms ga je van het ene werkblad naar het andere en blijven er stukken van de gegevens/celkleuren van het eerste achter op het scherm.
Heeft iemand dezelfde ervaring met de switch van Excel 2010 naar 13 ?

 

[OctaFish]

Wat is toch die obsessie met het continue selecteren van cellen? Jij niet alleen hoor...

    With Range(Cells(3, LaatsteKolomNa + 1), Cells(76, LaatsteKolomVoor))
       .Borders(xlEdgeBottom).Weight = xlThin
       .Borders(xlEdgeRight).LineStyle = xlNone
       .Borders(xlEdgeTop).LineStyle = xlNone
       .Borders(xlInsideVertical).LineStyle = xlNone
       .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With

 

[willema]

Hey Octafish,

ik ben ondertussen ook bezig met het opruimen van al die overbodige Selections. Het is die macrorecorder die het mij bij mijn prille VBA-stapjes zo heeft geleerd. En oude gewoontes leer je niet zo snel af ;-)

Nu, los daar van, klopt het toch niet dat de selectie zichtbaar blijft op de achtergrond van de MsgBox (en dit alleen met Excel 2013).

 

[E v R]

Heb in XL2013 geen probleem met jouw code, zou zeggen, videoprestaties....

 

[willema]

dankjewel Eric,

ik hou het daar (= videoprestaties) ook bij.
Vreemd dat Excel 2013 er zoveel eenvoudiger er uit ziet en dat die toch zoveel meer vraagt van processor en grafische kaart (zelfs met uitgeschakelde animaties).

 

[snb]

andere obsessies

    With Range(Cells(3, LaatsteKolomNa + 1), Cells(76, LaatsteKolomVoor))
       .boders.LineStyle = xlNone
        with .Borders(xlEdgeBottom)
           .Weight = xlThin
           .linestyle=...
        end with
    End With

 

[snb]

@Octa

Weer jij waarom er bij de iconen van het editscherm 'reageren op dit bericht' en ' geavanceerd ' wél een icoon staat voor het invoeren van code tags en bij het editscherm 'snel reageren' en 'aanpassen' van een bericht niet ?
Kan die icoon daar niet ook toegevoegd worden ?