Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Zeichen zählen im String (VBA)
2,809 views
Skip to first unread message
Guido Neugebauer
Mar 9, 2004, 10:01:45 AM3/9/04
to
Moin,
ich habe einen gefüllten String (VBA) und möchte nun
wissen, wie oft ein bestimmtes Zeichen darin vorkommt.
Gibt es dafür einen Befehl?
Gruß,
Guido
Frank Kabel
Mar 9, 2004, 10:24:34 AM3/9/04
to
Hi
z.B.:
Dim str as string
Dim str_search as string
Dim Count_str
....
Count_str = (len(str)-len(replace(str,str_search,"")))/len(str_search)
z.B.:
Dim str as string
Dim str_search as string
Dim Count_str
....
Count_str = (len(str)-len(replace(str,str_search,"")))/len(str_search)
--
Regards
Frank Kabel
Frankfurt, Germany
Unknown
Mar 9, 2004, 5:10:19 PM3/9/04
to
Hallo Guido,
angenommen in der Zeichenkette "Der Affe frist Bananen" soll ermittelt
werden wie oft der Buchstabe "a" enthalten ist, dann wie folgt:
angenommen in der Zeichenkette "Der Affe frist Bananen" soll ermittelt
werden wie oft der Buchstabe "a" enthalten ist, dann wie folgt:
Sub AnzahlZeichen()
Const strText As String = "Der Affe frist Bananen"
Const strZeichen As String = "A"
MsgBox "Das """ & strZeichen & """ kommt " & Len(strText) - _
Len(Replace(strText, strZeichen, "")) & "x vor!"
End Sub
MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung
Guido neugebauer
Mar 10, 2004, 5:42:19 AM3/10/04
to
Hat funktioniert!!! Danke!!!!
0 new messages