Ik heb een sheet waarin alle velden verschillende soorten gegegevens staan. Als laatste symbool staat overal een vierkantje.. behoorlijk irri, is er een formule of filter waarmee ik alle gegevens uit mijn sheet naar een nieuwe sheet kan kopieren waarbij het laatste teken van ieder veld word weg gelaten?
Simpel: zoek en vervang het karakter (
)
Iets lastiger is dit misschien een optie:
en dan natuurlijk aanpassen naar keuze. Dit haalt van alle cellen an A1 t/m J10 het laatste karakter weg
Iets lastiger is dit misschien een optie:
code:
1
2
3
4
5
6
7
| On Error Resume Next
For kolom = 1 To 10
For rij = 1 To 10
Cells(rij, kolom).Value = Left(Cells(rij, kolom).Value, _
Len(Cells(rij, kolom)) - 1)
Next rij
Next kolom |
en dan natuurlijk aanpassen naar keuze. Dit haalt van alle cellen an A1 t/m J10 het laatste karakter weg
[ Voor 1% gewijzigd door F_J_K op 03-09-2003 16:23 . Reden: layout verbeterd ]
'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)