Zeilenumbruch auslesen und in Textdatei übertragen
07.02.2007 09:14:48
Fritz
ich lese mit dem untenstehenden Makro eine Tabelle aus und schreibe damit den Quelltext für eine HTML-Datei (weil ich den von Ecxel fabrizierten Quellcode nicht gebrauchen kann).
In einigen der Zellen befinden sich Zeilenumbrüche, die ich auch auslesen müsste. Also es stehen z.B. zwei Namen untereinander wie:
Frau Plottke
Frau Sauerbier.
Kann mir bitte jemand dabei helfen diesen Zeilenumbruch in meinem Makro unterzubringen?
Sub HtmlSchreiben()
Dim Zelle As Range
Dim Bereich As Range
Dim Dat As String
Dim Pfad As String
Set Bereich = ActiveSheet.Range("A1:A200")
Pfad = Sheets("Help").[a1]
Dat = "HTML_Seite.html"
Open Pfad & "\" & Dat For Output As #1
Print #1, "<table>"
For Each Zelle In Bereich
If Not Zelle = "" Then
Print #1, "<tr><td>" _
& Zelle.Text & "</td><td>" _
& Zelle.Offset(0, 1) & "</td><td>" _
& Zelle.Offset(0, 2) & "</td><td>" _
& Zelle.Offset(0, 3) & "</td><td>" _
& Zelle.Offset(0, 4) & "</td></tr>"
End If
Next Zelle
Print #1, "</table>"
Close #1
MsgBox "Die HTML-Datei wurde im Verzeichnis " & Pfad & " erzeugt"
Shell ("explorer.exe " & Pfad)
End Sub
Eine Lösung wäre ja vielleicht, dass nach dem zweiten Leerzeichen von links ein Zeilenumbruch eingefügt würde. aber ich kriege das nicht mehr gebacken.
Grüße und schon mal Danke.
Fritz