Hallo.
Ik kopieer nu vaak een reeks getallen van getallen. Hiervoor zou steeds 3 extra nullen moeten toegevoegd worden . Dit mag niet van toepassing zijn op tekst.
Weet iemand hoe dit moet?
Ik gebruikte onderstaande code maar dit geeft helaas het omgekeerde resultaat
Sub appendToExistingOnLeft ()
Dim c as range
For each c in selection
If c.value <> "" then c.value = "000" & c.value
Next
End sub
Welk stuk zorgt dat dit op toepassing is van tekst ? En hoe zorg ik dat dit toegepast kan worden voor de cijfers
Alvast bedankt
Ik kopieer nu vaak een reeks getallen van getallen. Hiervoor zou steeds 3 extra nullen moeten toegevoegd worden . Dit mag niet van toepassing zijn op tekst.
Weet iemand hoe dit moet?
Ik gebruikte onderstaande code maar dit geeft helaas het omgekeerde resultaat
Sub appendToExistingOnLeft ()
Dim c as range
For each c in selection
If c.value <> "" then c.value = "000" & c.value
Next
End sub
Welk stuk zorgt dat dit op toepassing is van tekst ? En hoe zorg ik dat dit toegepast kan worden voor de cijfers
Alvast bedankt