0 verwijderen

[mustangBE]

hallo

ik heb een hele lijst met referenties waar getallen inkomen zaols 0190W45 , 0065T58.
deze lijst moet geimporteerd worden in een appl. en daarvoor moeten de eerste nullen weg.
het moet dus worden 190W45 , 65T58.

hoe kan ik dat doen ?
de getal notatie staat al op standaard.

 

[Marcel79]

kun je een voorbeeldbestandje plaatsen zodat we kunnen zien hoe je beginsituatie er ongeveer uit ziet?

 

[Cobbe]

Probeer deze macro eens, wedden........

Sub O_Verwijderen()
For Each getal In Range("E1:E" & Range("E65500").End(xlUp).Row)
rij = getal.Row
For i = 1 To Len(getal)
If Left(getal, 1) = 0 Then
getal = Right(getal, Len(getal) - 1)
End If
Next
Cells(rij, 6) = getal
Next
End Sub

Met de gegevens in kolom E worden de verbeterde gegevens in kolom F gezet.

Cobbe

 

[snb]

of

Sub eenvoud()
  For each cl in Columns(1).specialcells(2)
    cl= Val(cl) & Split(cl, Val(cl))(1)
  next
End sub

 

[mustangBE]

het is gelukt

thx

 

[Wigi]

Graag de vraag dan op opgelost zetten aub.

 

[IlonadeGroot]

Hallo allemaal,

Ik heb hetzelfde probleem. Nou weet ik alleen niet hoe je b.v. dus deze macro:


Sub O_Verwijderen()
For Each getal In Range("E1:E" & Range("E65500").End(xlUp).Row)
rij = getal.Row
For i = 1 To Len(getal)
If Left(getal, 1) = 0 Then
getal = Right(getal, Len(getal) - 1)
End If
Next
Cells(rij, 6) = getal
Next
End Sub


er in zet. Kan iemand mij uitleggen hoe dat moet?
Alvast bedankt,
Ilona

 

[puppie]

@Ilonadegroot,
Topic is van 2010 de derde maand.
Dan het inbreken in een ander zijn topic is ook niet toegestaan.
Maak even een eigen vraag.