VBA: Lauftext in kyrillischen Buchst. in Textbox?

Computer: Software & Programmierung Visual Basic
#1

Hi,
ein Text " Привет, Арита,……." soll als Lauftext in einer Textbox laufen.
Schreibt man den Text in einer normalen Datei, kopiert ihn und legt ihn mit STRG V in die Textbox selbst, erscheint er dort.
Kopiert man ihn in die Eigenschaft „Text“ der Box, erscheinen nur ??? ???
Auch die Variable Lauftext = " Привет, Арита,…….", Starte den Lauftext, bringt nur ??? ???
Kann mir jemand dabei helfen, den russischen Text zum Laufen zu bringen?
Gruß Wilhelm

#2

ein Text " Привет, Арита,……." soll als Lauftext in einer Textbox laufen.
Schreibt man den Text in einer normalen Datei, kopiert ihn und
legt ihn mit STRG V in die Textbox selbst, erscheint er dort.
Kopiert man ihn in die Eigenschaft „Text“ der Box, erscheinen
nur ??? ???
Auch die Variable Lauftext = "
Привет,
Арита,…….", Starte den Lauftext,
bringt nur ??? ???

Hi Wilhelm,
ich kenne deinen Lauf-Code nicht, bei einem Textfeld in einer Tabelle:

Option Explicit
Sub tt()
Dim sString As String
sString = ChrW$(&H418) & ChrW$(&H41D) & \_
 ChrW$(&H422) & ChrW$(&H415) & \_
 ChrW$(&H420) & ChrW$(&H41D) & \_
 ChrW$(&H410) & ChrW$(&H426) & \_
 ChrW$(&H418) & ChrW$(&H41E) & \_
 ChrW$(&H41D) & ChrW$(&H410) & ChrW$(&H41B)
TextBox1 = sString
End Sub

Gruß
Reinhard

#3

Hi Reinhard,

es funktioniert tatsächlich, wenn man die CHR-Zeichen in die Variable „Lauftext“ legt. Mein Lauftext ist länger als „International“, nämlich:

Привет, Арита, поздравляю Вас с Днем рождения. Желаю вам в следующем году всего самого хорошего, прежде всего радости на работе в канцелярии. Ваш Демланд

Kannst Du mir einen Tip geben, wo ich die CHR-Zeichen für das kyrillische Alphabet finde?

Gruß Wilhelm

#4

es funktioniert tatsächlich, wenn man die CHR-Zeichen in die
Variable „Lauftext“ legt. Mein Lauftext ist länger als
„International“, nämlich:
Kannst Du mir einen Tip geben, wo ich die CHR-Zeichen für das
kyrillische Alphabet finde?

Hi Wilhelm,
ungetestet, rechne &H415 in Dezimal um, müßte 4*256 + 1*16+ 5 sein.
Dann

sub tt ()
for n= 1 to 2000
 cells(n,1)=chrw(n) 
next n
end sub

und schaue halt wo da welche Zeichen sind.
Gruß
Reinhard

1 Like