Ausgabe als Textdatei - ohne Fliestext
24.09.2013 13:27:12
Fabio
habe eine Tabelle gebastelt, die mir einen "markierten Bereich" in ein bestimmtes HTML-Format umsetztzt und dann in eine leere text-Datei kopiert. Dein Teil aus der Textdatei kann ich dann in meine HTML-Aufstellung übernehmen.
Der Code in der jweiligen Zelle schaut so aus:
1. Zelle
=HTML_Codex!$A$8&HTML_Codex!$A$5&HTML_Codex!$A$3&$A2&HTML_Codex!A4
2. Zelle
==HTML_Codex!$A$3&$A3&HTML_Codex!$A$4
etc.etc.
Das Ergebnis in der Textdatei dann so:
td>href="http://www.sportver-test/testinchen.tester/" target="_blank">Testinchen Tester/td> _
_
_td> href="http://www.sportver-test/bertra.tester/" target="_blank">Bertra Tester __
(gekürzt damit der nicht die HTML-Befehle im Forum anzeigt)td>
Wie kann ich erreichen das dies dies dann nicht als "Flies-Text" schreibt, sondern je Zelle eine "eigene Zeile" macht - so das dass ganze dann in der Text-Datei einfach übersichtlichter ausschaut?
Vielen Dank für alle Tips!
Fabi
N.S. Hier ist der Code (aus dem Forum) für das "exportieren markierter Bereich als textdatei":
Sub Tabelle_als_TXT_erstellen()
'falls die Zieldatei noch nicht vorhanden ist,
'wird sie erstellt
Dim Datei As String, Text As String
Dim Zeile As Range
Dim zeigen
Dim tmp
On Error GoTo Fehler
'Zieldatei festlegen
Datei = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".txt"
Open Datei For Output As #1 'Zieldatei öffnen
For Each Zeile In Selection.Rows
tmp = WorksheetFunction.Transpose(Zeile)
tmp = WorksheetFunction.Transpose(tmp)
tmp = Join(tmp, vbTab)
'reinschreiben
Print #1, tmp
Next Zeile
Close #1 'Zieldatei schließen
zeigen = Shell(Environ("windir") & "\notepad.exe " & Datei, 1)
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
End Sub