Russische Sprache

Forumthread: Russische Sprache
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Russische Sprache

Russische Sprache

16.05.2007 16:14:00

Hallo,
ich habe folgendes Problem.
Ich erhalte eine Datei die mit 3 Sprachen gefüllt ist.
1 Spalte = Englisch
2.Spalte = Französisch
3.Spalte = Russisch
Die Datei ist als .csv
Mein Problem...
die russische Sprache wird nicht korrekt angezeigt. Kann irgendwie Kyrillisch als Font angeben?
Danke!
Gruß AW

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Russische Sprache

ransi
AW: Russische Sprache

21.05.2007 09:55:01

AW

AW: Russische Sprache

ransi

Hallo
LAss diesen mal Code in einer leeren Tabelle laufen.
Der schreibt dir alle alle installierten Schriftarten in eine Tabelle.
Dann must du mal suchen ob die gesuchte Schriftart bei dir vorhanden ist..

Option Explicit

Public Sub Installierte_Schriften()
Dim i As Integer
Dim Font_liste
Dim E As Integer
Range("B2").Select
ActiveWindow.FreezePanes = True
Set Font_liste = Application.CommandBars.FindControl(ID:=1728)
For i = 1 To 255
    Cells(1, i + 1) = "CHR(" & i & ")"
Next
For E = 0 To Font_liste.ListCount - 1
    Cells(E + 2, 1) = Font_liste.List(E + 1)
    For i = 1 To 255
        Cells(E + 2, i + 1) = Chr(i)
    Next
    Rows(E + 2).Font.Name = Font_liste.List(E + 1)
Next
With Columns
    .Font.Size = 12
    .AutoFit
End With
Range("AH1").Select
End Sub

Wenn ja, einfach die Spalte in der Schriftart formatieren.
ransi

AW: Russische Sprache

21.05.2007 09:55:01

Danke, habe ich versucht. Leider hat es mir nicht weitergeholfen.
Nur zur Info...
ich benötige keine SchriftART sondern die russische Sprache. Er zeigt mir kein Kyrillisch an. Sorry, vllt hab ich mich falsch ausgedrückt.
Gruß
AW