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) = "Verjaardag???" Then
ActiveCell.Offset(0, 6) = "Verjaardag"
ElseIf ActiveCell.Offset(0, 13) = "Trouwerij???" 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

 

[vvanasperen]

Klik hier -> de oplossing...

 

[huijb]

Wat is hier de bedoeling. Deze gaat dicht. Drukken op de misbruikmelding is genoeg. Je mag in die andere verder.