Feststellen ob mehrere Großbuchstaben in einer Stringvariablen vorhanden sind

04/03/2008 - 17:20 von Karsten Lange | Report spam
Hallo an alle,

suche gerade nach einer Möglichkeit herauszufinden, ob in einer
Stringvariablen mehrere Großbuchstaben enthalten sind. Welche sind egal.
Eigentlich interressiert mich nur ob = 1 oder > 1.

Wert der Variablen könnten bspw. sein:
Mustermann
Mustermann-Musterfrau
Mustermann Musterfrau
MacMustermann
M'Mustermann

Habe so gar keine Idee. Habt ihr einen Gedankenanstoß für mich?


Danke und Gruß Karsten
 

Lesen sie die antworten

#1 Thomas Gahler
04/03/2008 - 17:47 | Warnen spam
Hallo Karsten



Habe so gar keine Idee. Habt ihr einen Gedankenanstoß für mich?


Das wàre ein Ansatz...


Sub demo()
Debug.Print funcGrossbuchstabenZàhlen("abc")
Debug.Print funcGrossbuchstabenZàhlen("Abc")
Debug.Print funcGrossbuchstabenZàhlen("ABc")
Debug.Print funcGrossbuchstabenZàhlen("ABC")
End Sub

Public Function funcGrossbuchstabenZàhlen( _
ByVal strText As String) _
As Long

Const chrA As Integer = 65
Const chrZ As Integer = 90

Dim i As Integer
Dim intZeichen As Integer
Dim lngAnzahl As Long

For i = 1 To Len(strText)
intZeichen = Asc(Mid$(strText, i, 1))
If intZeichen >= chrA And intZeichen <= chrZ Then
lngAnzahl = lngAnzahl + 1
End If
Next i

funcGrossbuchstabenZàhlen = lngAnzahl
End Function



...wenn die grossen Umlaute (ÄÖÜ) und andere Zeichen auch berücksichtigt
werden müsse, so müsste die Schleife angepasst werden.



Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen