excel fout? hoe krijg ik dit opgelost....

[roycke]

als ik bijgevoegd bestand in access wil importeren krijg ik een foutmelding.
nu heb ik de fout gevonden maar ik vraag me af hoe ik hem doe oplossen. graag jullie hulp.
Als jullie bijgevoegde sheet bekijken in kolom H staan er getallen in hele of met 1 of 2 decimalen achter de komma. Ga ik naar de celeigenschappen dan staat er bij beide standaard. met toch is het bij de ene cel een getal een getal en bij de andere tekst.....
alvast bedankt!Bekijk bijlage Map4.xls

 

[madmuppet]

enig idee hoe dat zo gekomen is dan? Heb je die waarden ergens uit een of ander tabelletje gekopieerd? Is het bestand geconverteerd? Een import uit een DBF ofzo?

 

[Ad Becude]

roycke,

Zet in I1: =H1*1 en trek dit door tot I16.
Selecteer I1:I16 > Kopieren (selectie behouden)> Plakken speciaal > waarden
Alle cellen hebben nu de opmaak standaard, en kun je Kolom H verwijderen.

 

[robdgr]

@Ad, Of ergens een 1 zetten, kopiëren en de cellen in H markeren, plakken speciaal - vermenigvuldigen.

 

[roycke]

@ad,
Bedankt voor deze oplossing! het gaat hierover 10800 records. (uren registratie verwerken in Acces) dus ik zal er in VBA maar een script van maken.

@rob,
kan je jou oplossing nader uitleggen? ik begrijp hem niet helemaal.

 

[Haije]

roycke,

rob bedoelt het volgende:

zet in (bv) I1 en 1
selecteer I1 en druk op Ctrl + C (=kopieer)
selecteer H1:H10800 en kies voor
bewerken > plakken speciaal > vermenigvuldigen.

alle cellen H1:H10800 worden nu met 1 vermenigvuldigd en dat veroorzaakt dat evt tekst die op getallen lijken geconverteerd worden naar getallen.

 

[robdgr]

@Haije, dank voor je uitleg

@roycke, een script is dus niet nodig, zie de bijlage

 

[roycke]

Super!!!
harstikke bedankt voor jullie hulp.
Ben blij dat er toch nog mensen zijn die elkaar helpen.

 

[Haije]

roycke,

graag gedaan; zet je de vraag nog even op "opgelost"?

 

[roycke]

ik heb hem toch op niet opgelost moeten zetten...
De bovengenoemde oplossingen werken perfect, echter alleen wanneer ik het handmatig doe toepassen.
Zodra ik de oplossing door een macro laat uitvoeren worden te waarden niet aangepast....
iemand een oplossing?
bijgevoegd is de file incl. de macro.
ik hoop dat iemand de "fout" kan vinden.



Bekijk bijlage import.part01.rarBekijk bijlage import.part02.rar

 

[Gert Bouwmeeste]

Ik zie 2 RAR-bestanden maar krijg ze niet geopend. Deze macro doet het wel (voor de hele kolom H)

Sub test()
    Range("I1").Value = 1
    Range("I1").Copy
    Range("H:H").PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[roycke]

hoi Gert,

Dat werkt helaas ook niet....

ik heb mijn file opgeschoond zodat ik hem in 1x kan zippen.
Hopend op de oplossing van iemand.
gr.

Bekijk bijlage import.zip

 

[Gert Bouwmeeste]

Deze werkt wel, althans bij mij onder 2003

Sub mcrSagita()
Dim LlastCell As Long
    
    Application.ScreenUpdating = False
    
    LlastCell = Range("B65536").End(xlUp).Row
    Range("B2").Select
    For Omzetten = 2 To LlastCell
          ActiveCell.Value = ActiveCell.Value * 1
          ActiveCell.Offset(1, 0).Range("A1").Select
    Next
    
    LlastCell = Range("C65536").End(xlUp).Row
    Range("C2").Select
    For Omzetten = 2 To LlastCell
          ActiveCell.Value = ActiveCell.Value * 1
          ActiveCell.Offset(1, 0).Range("A1").Select
    Next

    LlastCell = Range("F65536").End(xlUp).Row
    Range("F2").Select
    For Omzetten = 2 To LlastCell
          ActiveCell.Value = ActiveCell.Value * 1
          ActiveCell.Offset(1, 0).Range("A1").Select
    Next
    
    LlastCell = Range("H65536").End(xlUp).Row
    Range("H2").Select
    For Omzetten = 2 To LlastCell
          ActiveCell.Value = ActiveCell.Value * 1
          ActiveCell.Offset(1, 0).Range("A1").Select
    Next
    
    Application.ScreenUpdating = True

End Sub

Kolom G heb ik overgeslagen daar zitten ook alfanumerieke waarden in.

 

[roycke]

Super bedankt
Dit werkt perfect.
En nog bedankt voor de extra optie. Nu flikkert tenmi ste niet meer het beeld van links naar rchts over het scherm tijdens al deze bewerkingen. Dit heb ik dus op het hele document toegepast.
Dus nu heb ik dubbel geleerd.