Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unicode Kyrillisch mit VBA bearbeiten

Unicode Kyrillisch mit VBA bearbeiten
Otto
Hallo Guten Tag,
Meine Testumgebung: Excel 2003 SP2, Multilingual unter Windows XP SP-2
Ich scheitere zur Zeit an kyrillischen Buchstaben
konkret möchte ich eine Textdatei erstellen, deren Name aus kyrillischen Zeichen besteht und deren Inhalt auch zum Teil aus kyrillischen Zeichen besteht.
Als Testbeispiel habe ich in A1 von "Tabelle1" den Text "Приемни" geschrieben. Nun versuche ich über VBA eine Datei dieses Namens zu erzeugen. Das klappt bei mir nicht.
Hier seht ihr meinen Versuch:
Die Function GetUniCodeString habe ich mir von Bernd bei
http://www.excel-center.de/foren/read.php?2,16535,16541#msg-16541
besorgt. Den Hinweis darauf fand ich hier:
https://www.herber.de/forum/archiv/604to608/t607292.htm
Kann mir bitte jemand die Scheuklappen von den Augen reißen?
Gruß Otto

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Unicode Kyrillisch mit VBA bearbeiten
24.07.2009 09:32:50
bst
Morgen Otto,
keine Ahnung ob es mit VBA überhaupt möglich ist kyrillische Zeichen in den Dateinamen zu bekommen.
Was schon geht ist es eine Unicodedatei mit kyrillischen Zeichen zu erzeugen.
Du musst dazu:
a) Die BOM an den Anfang der Datei schreiben, siehe: http://de.wikipedia.org/wiki/Byte_Order_Mark
b) den ganzen Text inklusive aller Leerzeichen, Absatzmarken, ... mit GetUniCodeString umkodieren, nicht nur die kyrillischen Zeichen selber!
HTH, Bernd
--
Option Explicit

Sub Kyrill()
    Dim strPath As String, strText As String
    
    strPath = "E:\temp\test.txt"
    strText = Worksheets("Tabelle1").Range("A1")
    
    Open strPath For Output As #1
    Print #1, Chr(255); Chr(254); ' die BOM schreiben, Achtung da muss ein ; ans Ende !
    Print #1, GetUniCodeString(strText); ' den Text umkodieren und schreiben, auch hier muss ein ! ans Ende
    Close 1
    Shell "notepad " & strPath, vbMaximizedFocus
End Sub

Function GetUniCodeString(s As String) As String
    Dim i As Integer ' Zähler über die einzelnen Bytes des Unicode-Strings
    
    GetUniCodeString = ""
    For i = 1 To LenB(s)
        GetUniCodeString = GetUniCodeString & Chr(AscB(MidB(s, i, 1)))
    Next
End Function


Anzeige
AW: Unicode Kyrillische Dateinamen mit VBA
24.07.2009 12:02:22
Otto
Hallo Bernd,
vielen Dank für Deine Unicode-Aufklärung mit BOM! Und zusätzlichen Dank für die Anmerkung zum Semikolon am Ende des Print.
Das Schreiben von kyrillischem Text klappt jetzt wunderbar.
Da ich aber mit dem Explorer kyrillische Dateinamen erzeugen kann und auch Russen oder Bulgarinnen sicher ihre Dateien im kyrillischen Zeichensatz benamsen, gehe ich davon aus, dass es dafür auch eine Lösung gibt.
Vielleicht mir hier noch jemand auf die Sprünge helfen!
Danke!
Otto
AW: Unicode Kyrillisch mit VBA bearbeiten
24.07.2009 17:31:27
Anton
Hallo Otto,
probiers so:

Sub b()
  Set fso = CreateObject("Scripting.FileSystemObject")  
  Set MeineDatei = fso.CreateTextFile("D:\temp\" & Range("A1") & ".txt", True, True)  
  For i = 1 To 5  
    MeineDatei.WriteLine Range("A1")
  Next
  MeineDatei.Close
  Set fso = Nothing  
  Shell "notepad " & "D:\temp\" & Range("A1") & ".txt", vbMaximizedFocus
End Sub  

mfg Anton
Anzeige
AW: Unicode Kyrillisch mit VBA bearbeiten
24.07.2009 18:27:22
Otto
Hallo Anton,,
Wunderbar! so hab ich mir das vorgestellt! ohne viele Schnörkel!
Es geht sogar mit Stringvariablen!
Als Testbeispiel habe ich in A1 von "Tabelle1" den Text "Приемни" geschrieben. Nun versuche ich über VBA eine Datei dieses Namens zu erzeugen. Das klappt!

Gruß Otto
AW: Unicode Kyrillisch mit VBA bearbeiten
24.07.2009 22:37:46
bst
Abend Anton,
Sehr schöne Lösung.
cu, Bernd

299 Forumthreads zu ähnlichen Themen

Formel automatisch durch Wert ersetzen (vba)
Tanja

Hallo liebe Leute,
Ich hab in meiner excel-Mappe, in den Zellen: M2:M14 Formeln, die eine ganze Zahl als Ergebnis erzeugen.
So, und nun möchte ich das 1. Berechnungs-Ergebnis quasi "einfrieren".
Mein Problem: Ich möchte kein Makro per Hand auslösen müssen, sondern der Code soll voll...
07.08.2008 21:59:00
Thread-ID: 1000110
5 Beiträge
Anzeige
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Watchdop für VBA
peter

Hallo VBA Cracks,
Im 5 Minuten-Abstand hole ich mir via Webabfrage Daten aus dem Internet. Nun kann es passieren, dass das VBA Programm bei einer Abfrage z.B. mehr als 5 Minuten hängen bleibt, was ungewollt ist.
Kann man ein solches Problem umgehen, wenn man mit VBA einen Watchdog reali...
11.08.2008 17:39:00
Thread-ID: 1000934
5 Beiträge
Anzeige
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
geschütztes blatt = Fehlermeldung VBA
Pet


Hallo an Alle,
per Button werden 2 Tabellenblätter kopiert und nur die Werte in eine neue Datei gespeichert.
Dies klappt auch wunderbar!
Doch wenn ich die Blätter schütze bekomme ich immer eine Fehlermeldung.
Beende ich diese Fehlermeldung 1004, werden die Blätter trotzdem...
13.08.2008 18:48:00
Thread-ID: 1001622
3 Beiträge
Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
VBA Lösung für Tabellenblattwechsel gesucht
Nila

Hallo.
Ich habe folgendes vor:
Ich lege derzeit eine Exceldatei mit Steckbriefen von ca. 150 Personen an.
Jeder Steckbrief steht dabei auf einem eigenen Tabellenblatt.
Die Tabellenblätter werden nach der entsprechenden Person benannt.
Zum Beispiel: Name von Tabellenblatt 70:...
14.08.2008 10:07:25
Thread-ID: 1001749
8 Beiträge
Kalenderwoche "von bis" über VBA
bis"

Hi Leute,
ich versuch gerade über VBA eine Tabelle zu erstellen. Irgendwie komm ich aber nicht weiter.
Spalte A: Kalenderwoche z.b 1,2,3,4,5, usw.
SpalteB: Datum von bis: 1.1.09-5.1.09; 6.1.09-13.1.09; usw.
Dahinter wird je nach Bedarf eingetragen.
Auffüllen der Zahlen ist k...
19.08.2008 10:24:25
Thread-ID: 1002828
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
10
4
2
5
2
12
7
2
2
1
1
7
1
2
5
4
5
2
6
2
2
4
2