Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei mit Umlauten erstellen

Textdatei mit Umlauten erstellen
16.12.2016 15:53:10
Werner
Hallo Forum,
ich habe mal wieder ein Problem und bei meiner Suche keine Lösung gefunden.
Beim erstellen einer eternen Text-Datei benutze ich die "Print"-Funktion. Wenn allerdings in meinen Daten ein Umlaut enthalten ist, so wird der entsprechenden Teil meiner Ausgabezeile verändert, was natürlich bei der Weiterverarbeitung zu Problemen führt.
Beispiel: Print #1, "mein Test-Text: äöüÄÜÖß"
In meiner Text-Datei steht dann:
mein Test-Text: 巼Ŝן
Wie kann ich dieses Problem lösen? oe statt ö ist keine Lösung!!
Gruß aus dem Schwabenland
Werner

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei mit Umlauten erstellen
16.12.2016 16:28:24
UweD
Hallo
bei mir kommt der Text richtig an.
Userbild
erzeugt mit:
Sub dgdgdg()
    Close #1
    Open "C:\Temp\test.txt" For Output As 1
    Print #1, "mein Test-Text: äöüÄÜÖß"
    Close #1

End Sub
LG UweD
Anzeige
AW: Textdatei mit Umlauten erstellen
16.12.2016 16:40:08
Luschi
Hallo UweD,
damit 'Close #1' einem nicht auf die Füße fällst, mache ich das so: 

Sub dgdgdg()
Dim ff As Integer
ff = FreeFile
Open "C:\Temp\test.txt" For Output As #ff
Print #ff, "mein Test-Text: äöüÄÜÖß"
Close #ff
End Sub
Gruß von Luschi
aus klein-Paris
Danke
16.12.2016 17:18:40
Martin
Hallo Luschi,
mir ist 'Close #1' zwar noch nie auf die Füße gefallen, aber die FreeFile-Funktion kannte ich bislang nicht und finde ich interessant. Nach längerer Zeit mal wieder was dazugelernt, danke!
Viele Grüße
Martin
bei mir auch,
16.12.2016 17:54:16
Michael
Hi,
aber Uwe war (wie so oft) schneller.
Ich denke, der Punkt ist: womit wird die Textdatei wieder geöffnet? Mit dem Editor geht es ja offensichtlich.
Oder: ist es gar ein Mac?
Schöne Grüße,
Michael
Anzeige
AW: Textdatei mit Umlauten erstellen
16.12.2016 16:35:17
GraFri
Hallo Werner
Hab ich gefunden, vielleicht kannst du damit etwas anfangen.
' Gefunden unter:
' http://www.aboutvb.de/khw/artikel/khwansiascii.htm
Private Declare Sub OemToChar Lib "user32" Alias "OemToCharA" _
(ByVal StrFrom As String, ByVal StrTo As String)
Private Declare Sub CharToOem Lib "user32" Alias "CharToOemA" _
(ByVal StrFrom As String, ByVal StrTo As String)
Public Function ASCIItoANSI(ByVal AsciiString As String) _
As String
OemToChar AsciiString, AsciiString
ASCIItoANSI = AsciiString
End Function


Public Function ANSItoASCII(ByVal AnsiString As String) _
As String
CharToOem AnsiString, AnsiString
ANSItoASCII = AnsiString
End Function
Sub Text_mit_Umlauten()
' Verwendung bei separatem Ausgangs- und Zielstring:
Dim Quelle As String
Dim Ziel As String
Quelle = "Ärger ist öfter üblich"
Ziel = ANSItoASCII(Quelle)
' Verwendung bei gleichem Ausgangs- und Zielstring:
Dim Text As String
Text = "Ärger ist öfter üblich"
Text = ANSItoASCII(Text)
End Sub
mfg, GraFri
Anzeige
AW: Textdatei mit Umlauten erstellen
16.12.2016 18:46:21
Werner
Hallo GraFir,
danke für Deine Hinweise. Auch mit CharToOem war ich nicht erfolgreich.
Inzwischen habe ich festgestellt, dass Notepad die Daten wieder in Umlaute umsetzt. Mein Problem ist jedoch, dass die Daten von einer Anwendung (Fritz!Box-Telefonbuch) verarbeitet wird. Und diese Anwendung hat mit den Umlauten, so wie sie in der File vorhanden sind, Probleme.
Ich habe eine Print der Hex-Darstellung des Anfangs meiner Datei beigefügt:
Userbild

43 Forumthreads zu ähnlichen Themen

Textdatei erstellen über Makro
cooler_kern

Hallo,
ich müsste mit einem Makro einfach die Spalte "A" in eine Textdatei speichern.
Kann mir jemand helfen?
Ich kenne mich leider mit Makros nicht so gut aus.
Danke......
24.03.2011 21:22:53
Thread-ID: 1207514
11 Beiträge
Anzeige
TXT Datei erstellen
chris58

Hallo !
Ich habe eine Frage bezüglich der Erstellung von Txt.Dateien. Der u.a Code, erzeugt mir für alle Spalten eines Excel Dokumentes eine Txt.Datei. Wie kann ich es erreichen, das in dieser Txt.Datei als Inhalt die Spalten B,C und D aufscheinen und als Dateiname das was in der Spalte A s...
05.08.2011 16:35:23
Thread-ID: 1225058
15 Beiträge
Einfache Textdatei erstellen
Tim

Hallo,
ich habe eine Tabelle, bei der sich auf Blatt5 immer nur ein Wert ändert, dieser jedoch sehr oft (Eingabe erfolgt in Zelle G7.
Könnt Ihr mir sagen, wie ich hierzu eine Textdatei erstelle, in der alle Eingaben in G7 auf diesem Blatt protokoliert (könnte z.B. bei Workbook_Close g...
09.04.2012 15:18:07
Thread-ID: 1258474
19 Beiträge
Anzeige
formatierte Textdatei aus Exel erstellen...
Rainer

Hallo zusammen,ich brauche eine unter Exel vorhandenen Datenbank als Textfile.
Soweit noch okay..., aber wie bekomme ich Exel dazu die unterschiedlich langen Zellinhalte auch im Textformat so darzustellen? Leider verwende Exel immer nur eine feste Spatenbreite dann im Textformat, sodas die S...
08.07.2002 15:11:31
Thread-ID: 134739
6 Beiträge
Aus Excel 2010 per Makro neue TXT-Datei erstellen
Florian

Hallo zusammen,
ich habe grad ein kleines Problem. Ich möchte gerne eine Excel-Dateie erstellen. Mit dieser Excel-Dateie möchte ich für ein Forum eine Liste erstellen. Hier können die Teilnehmer verschiedene Daten eintragen.
Mit einem Butten soll die Liste sortiert werden und anschließe...
10.03.2014 11:39:19
Thread-ID: 1352859
3 Beiträge
TXT-Datei erstellen
Pepi

Hallo zusammen
Ich will (muss) wieder mal eine txt Datei erstellen. Vor einiger Zeit bekam ich über dieses Forum den Code in der Beispielmappe. (Durch "Datei speichern unter" als *.txt hat es immer wieder Gänsefüsschen im Text - deshalb diese Art von Code.)
https://www.herber.de/bbs/use...
17.04.2014 12:09:49
Thread-ID: 1357700
5 Beiträge
txt.Datei erstellen
Dirk

Hallo User,ich habe mal eine Frage?
ist es möglich per VBA eine Textdatei zu erstellen,
wobei der Name für die Textdatei aus einer Zelle
kommen soll.
z.B A1 = Test.txt
jetzt soll auf knopfdruck eine Textdatei erstellt werden
die Test.txt heißt.mfg Dirk
23.07.2002 15:00:07
Thread-ID: 139524
3 Beiträge
Excel-Text-Datei Macro
Mike R.

Hallo,ich habe ein Makro entworfen das mir eine Textverkettung in eine Txt-Datei speichert. Jetzt wollte ich dieser Textdatei gerne unten immer eine Uhrzeit mit einfügen. Leider wirft er mir immer den Wert nicht die uhrzeit. Also in der Textdatei steht dann 0,7666656565 anstatt 11:00 oder so......
13.08.2002 11:46:45
Thread-ID: 147955
10 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
10
2
14
18
9
5
2
4
2
9
3
1
8
2
12
2
4
1
2
1
2
4
5
7
2