Soru kelime içindeki karakter sayısını bulma

[vivident]

Merhaba

Kelime içindeki "-" sayısını bulmaya çalışıyorum. Forumda araştırdığımda formul paylaşılmış. ben buna vba ile yapmak istiyorum. kodu çevirdim ama hata alıyorum

Örnek
6 - TR42_R23 - TR42_R23
"-" sayısı : 2

Sub deneme()
a = Len(Sheets("ABC").Cells(1, 1)) - Len(Substitute(Sheets("ABC").Cells(1, 1), "" - "", ""))
MsgBox a
End Sub

 

[Korhan Ayhan]

Deneyiniz.

a = Len(Sheets("ABC").Cells(1, 1)) - Len(WorksheetFunction.Substitute(Sheets("ABC").Cells(1, 1), "-", ""))

Bu da olabilir..

MsgBox UBound(Split(Sheets("ABC").Cells(1, 1), "-"))

 

[vivident]

Teşekür ederim korhan bey