Character eines Strings auslesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

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

Bild


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


Bild


Betrifft: AW: Character eines Strings auslesen
von: Folker
Geschrieben am: 23.09.2003 17:58:27

Merci funzt.


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Character eines Strings auslesen"