Getallen in een Macro worden herkend als tekst.

[Snellesjaak]

Beste helpers,

Het probleem is inmiddels opgelost. Bedankt voor het meedenken!

Topic mag gesloten worden.

 

[snb]

Suggestie 1

Maak van deze opneem-VBA echte VBA zonder select, activate, selection, activecell, etc. en zonder de fouten die je tijdens het opnemen maakte.
Daar wordt de zaak al een stuk overzichtelijker van.
Onduidelijk is of de macro wordt gedraaid na import van het tekstbestand (met welke methode) of daaraanvoorafgaand.

 

[Snellesjaak]

Beste SNB,

Bedankt voor je reactie. Ik heb de macro inclusief alle (overbodige) handelingen neergezet om zoveel mogelijk info te verstrekken. De macro wordt gedraaid na import van het txt bestand in Excel.

 

[Wigi]

De code is redelijke troep als je het mij vraagt.

Bv. dit:

    Range("N11").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("N12").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("N13").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("N14").Select
    ActiveCell.FormulaR1C1 = "1"

wordt:

    Range("N11:N14").Value = 1

En aan het lijstje van snb met te verwijderen VBA-constructies, mag je de ScrollRow ook gerust toevoegen.

Wigi