• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Toevoegen van letter als het eerste teken in een cel een cijfer is.

Status
Niet open voor verdere reacties.

Tijger81

Gebruiker
Lid geworden
2 jan 2010
Berichten
397
Hallo,
Ik wil een macro maken die een letter kan toevoegen aan een cel. Ik heb nu dit:
Code:
Sub Add_Asterisk(
    Dim r As Range
    With Selection
        For Each r In Selection
            r.Value = "a" & r.Value
        Next
    End With
End Sub

Dit werkt wel, maar plaatst altijd de letter a voor de inhoud in een cel.
Ik wil eigenlijk dat de letter a alleen geplaatst wordt als de inhoud van de cel begint met een cijfer. Bijv: 1000 wordt dan door de macro a1000

Ik heb natuurlijk al gegoogled, maar kom er niet uit...
 
Laatst bewerkt door een moderator:
Code:
Sub Add_Asterisk()
Dim r As Range
    With Selection
        For Each r In Selection
            If IsNumeric(Left(r.Value, 1)) Then r.Value = "a" & r.Value
        Next
    End With
End Sub

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan