Slash teken vervangen door underscore

[mulderm]

Hallo,

Ik heb een sheet waarbij sommige cellen een slash / instaan.
Vb. cel A2 staat C1/C2, cel A8 staat Selectie B1/B2
Nou wil ik met een stukje VBA-code een aantal sheets bijmaken met de naam van de
inhoud van die cel.
Alleen de namen van de sheets accepteert geen slash-teken.
Zo wil ik automatisch de slash-teken vervangen door een underscore _.
Dus een sheet wordt bijgemaakt met als naam C1_C2 en nog een sheet met de naam
Selectie B1_B2.
De inhoud van de cellen moeten dus blijven staan, alleen m.b.v. VBA-code worden 2
sheets bijgemaakt met de namen C1_C2 en Selectie B1_B2.
De code kijkt dus ook waar de slash-teken staat en vervangt deze met de _ voor de
naam van de sheet.

Wie kan mij helpen?

Groeten,
mulderm

 

[Wigi]

Welke code heb je tot nu toe reeds? Want een _ in plaats van / is uiteindelijk maar gewoon Replace dat je moet gebruiken...

 

[mulderm]

Wigi,

Ik heb nog helemaal geen code, weet niet hoe.
Wil alleen bijv. inhoud van cel A2 is: C1/C2 gebruiken om een nieuw sheet bij te maken
met de naam C1_C2.
De inhoud van A2 moet blijven staan

Groeten,

mulderm

 

[Ginger]

....oplossing staat hier...

Groet, Leo

 

[mulderm]

Dank jullie wel voor de hulp.
Weer wat geleerd.
Oplossing:

Sub VoegSheetToe()
For Each c In Selection
With Sheets.Add( ,Sheets(Sheets.Count))
.Name = Replace(c.Value, "/", "_")
End With
Next
End Sub


Groeten,

mulderm