mit dem unten stehenden Makro exportiere ich den Inhalt eines Tabellenblattes in eine Textdatei mit einem bestimmten Format.
Insgesamt habe ich vier Tabellenblätter mit unterschiedlichen Daten, welches Tabellenblatt ich exportier habe ich mit der variablen TB vorher festgelegt. Hierbei wird der Inhalt einer jeden Zelle mit vorangestellter Kennung die im Spaltenkopf steht mit einem Trennzeichen in eine Zeile exportiert.
Nun mein Problem, das ich bisher noch nicht lösen konnte:
Wie kann ich mit diesem Makro den Text im MSDos (OEM) Format Exportieren (wegen der Umlaute und verschiedener Sonderzeichen).
Für Hilfe von euch wäre ich sehr dankbar, da ich hierbei an meine Grenzen gestoßen bin.
Richard
Sub Export()
' Trennzeichen als Texttrenner
Dim TrZei As String
Dim TMP$
Dim z%, s%
TrZei = Worksheets("Parameter").Range("I3")
' ExpDN = festgelegter Filename in der Tabelle Parameter
Open ExpDN For Output As #1
For z = 4 To TB.UsedRange.Rows.Count
If Rows(z).EntireRow.Hidden Then GoTo Weiter
For s = 1 To intColCD
TMP = TMP & CStr(TB.Cells(3, s).Text) & TrZei & CStr(TB.Cells(z, s).Text)
Print #1, TMP
TMP = ""
Next s
Weiter:
Next z
Close 1
End Sub