Herbers Excel-Forum - das Archiv
Character eines Strings auslesen
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Character eines Strings auslesen
von: Folker
Geschrieben am: 23.09.2003 15:53:18
Hallo
wie kann man durch die Buchstaben eines Strings loopen?
Mit
for i = 0 to len(activecell)
If Asc(activecell.Characters(ii, 1).Text) = 32 then ...
next
funktioniert es für einen Zellinhalt. Leider befinde ich mich aber in einer Textbox einer Userform und da gibt es Characters nicht. Das schreiben des Textboxinhaltes in eine Zelle und dann auslesen find ich etwas umständlich. Es gibt doch sicher auch eine Möglichkeit durch einen Textstring zu loopen.
Danke
Betrifft: AW: Character eines Strings auslesen
von: Nike
Geschrieben am: 23.09.2003 15:59:33
Hi,
hier mal ein Beispiel:
Sub Teiler()
Dim str1 As String
Dim str2 As String
Dim intstep As Integer
str1 = "Hallo"
intstep = 1
Do
str2 = str2 & Mid(str1, intstep, 1) & " "
intstep = intstep + 1
Loop Until intstep = Len(str1) + 1
MsgBox str2
End Sub
Bye
Nike
Betrifft: AW: Character eines Strings auslesen
von: Folker
Geschrieben am: 23.09.2003 17:58:27
Merci funzt.