Hoe kan ik met VBA in Excel een gedeelte van de tekst selecteren?

[vvanasperen]

Hallo allemaal,

Het gaat om het volgende...

Ik heb een excel-bestand waar ik in bijvoorbeeld kolom F een aantal omschrijvingen heb die
hetzelfde beginnen, maar anders eindigen

Verjaardag van Ronald
Trouwdag van Nynke
Verjaardag feest bij Vincent
Verjaardag Iris 30 jaar
Trouwdag vandaag van Jan
Verjaardag van Rolf
Trouwdag JIPPIE

Nu wil ik met VBA automatisch kolom F doorlopen om van alle verschillende omschrijvingen (in
bovengenoemd voorbeeld) twee categorieën te maken...

Ik heb onderstaande gevonden, maar daarmee moet ik alle verschillende omschrijvingen invoeren,
zodat er automatisch één categorie van wordt gemaakt.
Het moet volgens mij kunnen dat je van de linkerkant een bepaald aantal tekens opgeeft en als
dat dan bijvoorbeeld 'Verjaardag' (10 tekens) is, dat de cel automatisch in alleen Verjaardag wordt
veranderd...

Sub uitvoeren()

Sheets("verjaardag").Select
Range("A2").Select

Do Until ActiveCell = Empty

If ActiveCell.Offset(0, 6) = [COLOR="Red"]"Verjaardag???" [/COLOR]Then
    ActiveCell.Offset(0, 6) = "Verjaardag"
ElseIf ActiveCell.Offset(0, 13) = [COLOR="red"]"Trouwerij???"[/COLOR] Then
    ActiveCell.Offset(0, 5) = "automatische Trouwerij"

End If

ActiveCell.Offset(1, 0).Select

Loop
End Sub

Wie kan me hier mee helpen? Ik stel alle suggesties iig enorm op prijs. Alvast bedankt...

Met vriendelijke groet,

Vincent

 

[Roncancio]

Onderstaande macro zoekt vanaf regel 1 en vervangt de tekst.

Sub Dagen()
Dim lRij As Long
    lRij = 1
    While Range("F" & lRij) <> ""
        Range("F" & lRij).Value = Left(Range("F" & lRij), WorksheetFunction.Find(" ", Range("F" & lRij)))
        lRij = lRij + 1
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[vvanasperen]

Het was even puzzelen, maar ik heb het voor elkaar gekregen! Bedankt voor je hulp... :thumb:

 

[snb]

Zonder VBA

Menubalk/bewerken/vervangen/zoek Verj*/vervangen Verjaardag
Menubalk/bewerken/vervangen/zoek Troo*/vervangen Trouwerij

 

[Roncancio]

Zonder VBA

Menubalk/bewerken/vervangen/zoek Verj*/vervangen Verjaardag
Menubalk/bewerken/vervangen/zoek Troo*/vervangen Trouwerij

Correctie:
Menubalk/bewerken/vervangen/zoek Trou*/vervangen Trouwerij

Met vriendelijke groet,


Roncancio

 

[snb]

Dat werkt inderdaad een stuk sneller !:thumb: