Herbers Excel-Forum - das Archiv

Character eines Strings auslesen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
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
Excel-Beispiele zum Thema " Character eines Strings auslesen"
Nach Textimport Strings in Zahlen wandeln Sortierung mit Formel-Leerstrings am Ende
Aufteilen eines Strings mit Zeilenumbrüchen Strings, die wie Zahlen aussehen, in Zahlen umwandeln
Teilstrings vergleichen und markieren Mehrfachauswahl aus ListBox auslesen
Dateien aus Listbox auslesen und öffnen Bereich in RefEdit-Element eingeben und auslesen
Auslesen der Arbeitsmappeneigenschaften UserName aus der Windows-Registry auslesen