PDA

Vollständige Version anzeigen : ascii code oder chr() hochzählen!


maba
18.04.2001, 09:18
HELP!
Wie kann ich den ascii code oder die chr() funktion hochzählen lassen? Ich habe es mit dem unten angeführten code probiert aber die Datentypen stimmen nicht überein. Vielleicht erkennt einer meinen Fehler und kann mir helfen.
Hier ein Auschnitt von Code:


Do Until c = Chr(90)
c = Chr(65) + 1
loop

Ich möchte in Variable c das ABC hochzählen lassen, im ersten Schleifendurchgang soll in Variablen c = A stehen im zweiten Durchgang c = B im dritten c = c usw.

Bin für jede Hilfe sehr Dankbar

Grüße maba

Manuela Kulpa
18.04.2001, 12:55
Hallo maba!

Versuche es mal mit einer For-Next-Schleife. Z.B.

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Public</FONT> <FONT COLOR=#000080>Sub</FONT> TestChr()

<FONT COLOR=#000080>Dim</FONT> c <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>String</FONT>
<FONT COLOR=#000080>Dim</FONT> lStart <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

<FONT COLOR=#000080>For</FONT> lStart = 65 <FONT COLOR=#000080>To</FONT> 90
c = Chr(lStart)
Debug.<FONT COLOR=#000080>Print</FONT> c
<FONT COLOR=#000080>Next</FONT> lStart

<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

HTH